AccessTr.neT

   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