(27/02/2013, 00:34)Yandemir yazdı:
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
slm bana her türlü ekran büyüklügüne geçildiğinde kendi boyutunu alabilen 32/64 bit uyumlu bir kod verebilirmisniz.
ObjQry.Close 'Yaratılan sorguyu kapatır kullanıma hazır hale gelir
DoCmd.OpenQuery QryName, acNormal, acEdit ' Sorguyu izletir tablo şeklinde
Kod ile SORGU yaratma
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
|
Konuyu Okuyanlar: 1 Ziyaretçi