Results 1 to 3 of 3
  1. #1
    ldbeeman is offline Novice
    Windows XP Access 2007
    Join Date
    Sep 2010
    Posts
    1

    Question systems tables


    There is a system table that containes all of the objects in the database.
    1. what is the name of the table?
    2. how do I filter out the system and hidden objects

  2. #2
    ajetrumpet is offline VIP
    Windows Vista Access 2007
    Join Date
    Mar 2010
    Location
    N/A
    Posts
    2,694
    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".

  3. #3
    NoellaG's Avatar
    NoellaG is offline VIP
    Windows 7 Access 2010 (version 14.0)
    Join Date
    Jun 2010
    Location
    Belgium
    Posts
    1,035
    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

Please reply to this thread with any new information or opinions.

Similar Threads

  1. MS-Access in 64 Bit operating systems
    By todd in forum Programming
    Replies: 2
    Last Post: 08-26-2010, 04:25 PM
  2. Replies: 8
    Last Post: 05-25-2010, 04:50 AM
  3. linking tables to other tables
    By detlion1643 in forum Access
    Replies: 1
    Last Post: 01-25-2010, 12:33 PM
  4. Joining tables two tables and another table that is not
    By DevintheDude in forum Database Design
    Replies: 0
    Last Post: 09-12-2007, 08:56 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums