M
Malcolm
Hi
Can I get Access to show me a list of all the tables in a database
Thank
Malcolm
Can I get Access to show me a list of all the tables in a database
Thank
Malcolm
B
Brendan Reynolds \(MVP\)
Yes - click on the Tables tab in the Database window! 
OK, I guess you meant programatically? If so, and assuming Access 2000 or
later ...
Public Sub ListTables(ByVal SystemTables As Boolean)
Dim aob As AccessObject
For Each aob In CurrentData.AllTables
If SystemTables Or UCase$(Mid$(aob.Name, 2, 3)) <> "SYS" Then
Debug.Print aob.Name
End If
Next aob
End Sub
OK, I guess you meant programatically? If so, and assuming Access 2000 or
later ...
Public Sub ListTables(ByVal SystemTables As Boolean)
Dim aob As AccessObject
For Each aob In CurrentData.AllTables
If SystemTables Or UCase$(Mid$(aob.Name, 2, 3)) <> "SYS" Then
Debug.Print aob.Name
End If
Next aob
End Sub
M
Malcolm
It worked.Thank-you