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?
Re: System tabledefs in Access
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;"
Re: System tabledefs in Access
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