Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Lists the tables in the LIBRARY database

Sub exaTables()     Dim dbLibrary As Database     Dim tblLibrary As TableDef     Set dbLibrary = DBEngine.Workspaces(0).Databases(0)     Debug.Print "Tables in LIBRARY"          For Each tblLibrary In dbLibrary.TableDefs         Debug.Print tblLibrary.Name     Next tblLibrary End Sub