Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Reference database from DBEngine

Sub exaObjVar()     Dim ws As Workspace     Dim dbLib As Database     Dim tdfBooks As TableDef          Set ws = DBEngine.Workspaces(0)     Set dbLib = ws.Databases![d:\library.mdb]     Set tdfBooks = dbLib.TableDefs!BOOKS          Debug.Print tdfBooks.RecordCount End Sub