System tabledefs in Access

[drimades]

I'm using:

...
Set dbsAddresses = CurrentDb
'loop tablenames
      For Each tblLoop In dbsAddresses.TableDefs
      With tblLoop
         
        Combo4.AddItem (.Name)
       
      End With
   Next tblLoop
   'loop querynames
   For Each queLoop In dbsAddresses.QueryDefs
      With queLoop
         
        Combo4.AddItem (.Name)
       
      End With
   Next queLoop
...

As a result in the Combobox I have the tablenames and the querynames including the following:

MSysAccessObjects
MSysAccessXML
MSysACEs

etc.
I don't need them. How can I avoid displaying those names in the Combobox?

[RobDog888]

You can execute a sql query to return the tables minus the system tables with a query like...

"SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>'~') " & _
"AND (Left$([Name],4) <> 'Msys') AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;"

[RobDog888]

Or with your current code just check the .Name with an If Then Else code block.

If Left$(.Name, 1)<>'~') Left$(.Name, 4) <> 'Msys' Then
    Combo4.AddItem (.Name)
End If