There is a system table that containes all of the objects in the database.
- what is the name of the table?
- how do I filter out the system and hidden objects
There is a system table that containes all of the objects in the database.
- what is the name of the table?
- how do I filter out the system and hidden objects
first of all, why is the font so big? People are going to think that you're yelling. That's not good forum etiquette.
And secondly, system tables by default, don't allow you to make any changes.
If you are seeing grey-out object names in your database window, you need to right click on the window, and go to the "navigation pane options". There is a check box on the bottom left somewhere that says "Show/Hide System Objects".
Hi IDbeeman,
I don't know what you exactly mean by "filtering out hidden and system objects", but here is some code that looks into an access database and writes the names of not-hidden tables into a worktable in the current database. Maybe you could create something similar for all objects.
===================================
Public Function BuildAccessObjectList(strFile As String) As Integer
On Error GoTo Err_BuildAccessObjectList
Dim cnn As New ADODB.Connection
Dim strConnString As String
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim rst As New ADODB.Recordset
Dim intCO As Integer
strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile
cnn.ConnectionString = strConnString
cnn.Open
rst.Open "twrkAvailableObjects", CurrentProject.Connection, adOpenKeyset, adLockPessimistic
cat.ActiveConnection = strConnString
For Each tbl In cat.Tables
If tbl.Type = "TABLE" Then
If tbl.Properties.Item("Jet OLEDB:Table Hidden In Access") = False Then
rst.AddNew
rst!aobName = tbl.Name
rst.Update
intCO = intCO + 1
End If
End If
Next tbl
BuildAccessObjectList = intCO
Exit_BuildAccessObjectList:
Set cat = Nothing
Set cnn = Nothing
Set rst = Nothing
Exit Function
Err_BuildAccessObjectList:
BuildAccessObjectList = -1
Debug.Print Err.Number & ": " & Err.Description
Resume Exit_BuildAccessObjectList
End Function
=================
hope this helps
nG