Create Query by using the Database.CreateQueryDef : Query « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Query

Create Query by using the Database.CreateQueryDef

 

Sub exaPropertyandMethod()
    Dim dbLib As Database
    Dim qdfExpensive As QueryDef
    Set dbLib = CurrentDb()
    Debug.Print dbLib.Name
    Set qdfExpensive = dbLib.CreateQueryDef("Expensive", "SELECT * FROM BOOKS WHERE Price > 20")
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.User Defined Property
7.Get the created query name
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