Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Delete a query

Private Sub TimeToCompletionI()     Dim db As Database     Set db = CurrentDb          Dim qry1 As QueryDef     Dim sSQL1 As String          On Error Resume Next     db.QueryDefs.Delete "temp1"     On Error GoTo 0          sSQL1 = "SELECT * from Employees"          Set qry1 = db.CreateQueryDef("temp1", sSQL1)          DoCmd.OpenQuery qry1.Name End Sub