Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Reference recordset and table with DBEngine
Sub exaDefaultCollections()
    Debug.Print DBEngine.Workspaces(0).Databases![d:\dbase\library.mdb].TableDefs!BOOKS.RecordCount
    
    Debug.Print DBEngine(0).Databases![d:\dbase\library.mdb].TableDefs!BOOKS.RecordCount
    
    Debug.Print DBEngine(0)![d:\dbase\library.mdb].TableDefs!BOOKS.RecordCount
    
    Debug.Print DBEngine(0)![d:\dbase\library.mdb]!BOOKS.RecordCount
    
    Debug.Print DBEngine(0)(0)!BOOKS.RecordCount
End Sub