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