Skip to main content

AccessTr.neT


Kod ile SORGU yaratma

Yandemir
Yandemir
9
7150

Kod ile SORGU yaratma

#1

On Error GoTo Hatada 'Hata olduğunda
Dim ObjQry As DAO.QueryDef 'Objemizi tanıtıyoruz QueryDef
Dim Sql As String 'Sorgumuz için Sql cümlemiz

Sql = "SELECT * FROM TabloAdimiz WHERE ID=1" 'SQL Cümlemiz
QryName = "SorguAdimiz" 'Oluşacak sorgunun adı
Set ObjQry = CurrentDb.CreateQueryDef(QryName, SQL) 'Sorgumuzu Yaratıyoruz

Hatada:
If Err.Number = 3012 Then 'Yaratılan sorgu varsa 3012 hatası verir
CurrentDb.QueryDefs.Delete (QryName) 'Sorgu var ise siler
Resume 'Kaldığın yerden devam et
End If

ObjQry.Close 'Yaratılan sorguyu kapatır kullanıma hazır hale gelir
DoCmd.OpenQuery QryName, acNormal, acEdit ' Sorguyu izletir tablo şeklinde
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kod ile SORGU yaratma - Yazar: Yandemir - 27/02/2013, 00:34
Cvp: Kod ile SORGU yaratma - Yazar: Kur@l - 27/02/2013, 01:37
Cvp: Kod ile SORGU yaratma - Yazar: Yandemir - 27/02/2013, 01:43
Cvp: Kod ile SORGU yaratma - Yazar: access_delisi - 27/02/2013, 02:11
Cvp: Kod ile SORGU yaratma - Yazar: benremix - 27/02/2013, 07:30
Cvp: Kod ile SORGU yaratma - Yazar: assenucler - 28/02/2013, 01:21
Cvp: Kod ile SORGU yaratma - Yazar: SystemFiles - 24/07/2014, 15:00
Cvp: Kod ile SORGU yaratma - Yazar: gulabgang - 24/12/2014, 23:08
Cvp: Kod ile SORGU yaratma - Yazar: oosmaner - 10/09/2015, 16:31
Cvp: Kod ile SORGU yaratma - Yazar: Yandemir - 23/12/2015, 21:37
Task