(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

Kodu Seç

Kodu Kopyala