Get the created query name : Query « Access « VBA / Excel / Access / Word






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

 








Related examples in the same category

1.Creating a Pass-Through Query with ADOX
2.Executing a Pass-Through Query Saved in Access
3.Making Bulk Changes
4.Using a Stored Procedure to Make Bulk Changes to Data in a SQL Server Database
5.Creating a Query Using Code
6.Create Query by using the Database.CreateQueryDef
7.User Defined Property
8.Delete a query
9.Pass parameter to a query
10.Using CreateParameter to delete a company record
11.Execuate query
12.Update a table with QueryDef