Recherche
Recherche
Les mémos
Je débute...
Visites

 1002234 visiteurs

 1 visiteur en ligne

Pour cacher une table à l'aide du VBA, on utilisera la fonction suivante :

Function HiddenTable(strTable As String, boHidden As Boolean)
'//
'// Usage :
'// HiddenTable "LaTable", True or False
'//
Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
    If tdf.Name = strTable Then
        If boHidden Then
            tdf.Attributes = dbHiddenObject
        Else
            tdf.Attributes = 0
        End If
    End If
Next
End Function

Si vous faites le test dans la fenêtre d'exécution directe, il faut rafraichir la fenêtre Access pour observer l'effet.

Application.RefreshDatabaseWindow

Catégorie : Les mémos - Tables
Page lue 6727 fois