Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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