Kod ile SORGU yaratma

(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