Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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