Help hiding table in VB

[Dan2kx]

Hello to all you forum goers,

I have another one of my random (to most people) questions

i want a vb routine to hide and unhide tables in access (obviously)
i was thinking of something like this

Dim tdf As DAO.TableDef
    For Each tdf In CurrentDb.TableDefs
        tdf.Attributes = dbHiddenObject
    next

but i want to exclude the system tables etc,
and im not sure what the attribude code is for a normal table to unhide it,

im sure this is an easy one for the experts

thanks in advance

Dan

[ADezii]

I've created a simple Public Sub-Routine for you that will Hide/Unhide any Table. Simply pass to the Routine the Table Name (String), and a Boolean Value (True/False) indicating whether or not to Hide the Table or Unhide it.

1. Sub-Routine definition:
   

   Public Sub HideTable(strTableName As String, blnHide As Boolean)
     Application.SetHiddenAttribute acTable, strTableName, blnHide
   End Sub

2. Sample usage:
   

   'To Hide Table1
   Call HideTable("Table1", True)
    
   'To Unhide Table1
   Call HideTable("Table1", False)

3. To Hide/Unhide ALL Tables excluding System and Temporary Tables:
   

   Dim tdf As DAO.TableDef
    
   For Each tdf In CurrentDb.TableDefs
     If Mid$(tdf.Name, 2, 3) <> "Sys" And Left$(tdf.Name, 1) <> "~" Then
       Call HideTable(tdf.Name, True)      'Hide
       'Call HideTable(tdf.Name, False)    'Unhide
     End If
   Next

4. Some other useless code:
   

   Public Function fIsTableHidden(strTableName As String) As Boolean
     fIsTableHidden = Application.GetHiddenAttribute(acTable, strTableName)
   End Function

5. Useless code usage (is that redundant?):
   

   If fIsTableHidden("Table1") Then
     MsgBox "Table1 is Hidden"
   Else
     MsgBox "Table1 is NOT Hidden"
   End If

[Dan2kx]

i modified the code slightly and get an error, this is what i modified it to

[Dan2kx]

Function SecureTable(qLock As Boolean)
Dim tdf As DAO.TableDef
    For Each tdf In CurrentDb.TableDefs
        If Mid$(tdf.Name, 2, 3) <> "Sys" And Left$(tdf.Name, 1) <> "~" Then
            Application.SetHiddenAttribute acTable, tdf, qLock
        End If
    Next
End Function

error is type mismatch highlighting "SetHiddenAttribute"
have i gone too far (in my ADezii MOD)?

[Dan2kx]

Ahh think i got it, needed to use tdf.name on line #5

Thanks for the help