Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Get the created query name

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