Aşağıdaki kod Tel_Sorgu isimli sorguyu silip ölçüt olmadan tekrar oluşturur.

DoCmd.DeleteObject acQuery, "Tel_Sorgu"



Dim dbs As DAO.Database

Dim qdf As DAO.QueryDef

Dim strSQL As String

    

Set dbs = CurrentDb

Set qdf = dbs.CreateQueryDef("Tel_Sorgu")

Application.RefreshDatabaseWindow

    

strSQL = "SELECT ay, Kimlik, Model, Adet, Serino FROM Telefon;"

qdf.SQL = strSQL

    

qdf.Close

Set qdf = Nothing

Set dbs = Nothing