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