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

 1026497 visiteurs

 3 visiteurs en ligne

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

Vous êtes ici :   Accueil » Cacher une table