You could do this in vba code using

[jjonesal]

You could do this in vba code using the TableDef collection like below (probably wouldn't want to do it with a message box though, but...for simplicity's sake...) Or you could just directly query the MSysObjects table (name & type). Each different object type will have a different type value. Be careful that you don't accidentally update the MSysObjects table or you'll cause problems.

Dim dbs As Database
Dim tdf As TableDef

Set dbs = CurrentDb
dbs.TableDefs.Refresh
With dbs
For Each tdf In dbs.TableDefs
MsgBox (tdf.Name)
Next tdf
.Close
End With
End Sub

 

[jjonesal]

Sorry, I thought I was replying to another thread....disregard.