En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218277 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

Cacher une table

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 8549 fois

Vous êtes ici :   Accueil » Cacher une table