display list of table from other database with DAO

yussi ariefiyono — Thu, 08 Apr 2010 07:20:44 +0000

this function will display list of table from other database, it come handy if you want to make a tool for inventory of all your db

Sub displayTable()

Dim dbs As Database

Dim otable As DAO.TableDef

Dim ItemName As String

Set dbs = OpenDatabase(“Db Name”)

For Each otable In dbs.TableDefs

If UCase(Left(otable.Name, 3)) <> “MSY” Then

ItemName = otable.Name

ItemName = Replace(ItemName, “,”, “–”)

debug.print ItemName

ItemName = “”

End If

Next otable

Set otable = Nothing

Set dbs = Nothing

End Sub

UC's Corner » DAO.TableDef

display list of table from other database with DAO