System tabledefs in Access

I'm using:

Code:

---

...
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?

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

vb Code:

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

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

vb Code:

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