You could do this in vba code using
You could do this in vba code using
(OP)
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
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
RE: You could do this in vba code using