Bonsoir,
1. Masquer tables
J'ai trouvé le code :
qui permet de masquer ou d'afficher une table. L'inconvénient est qu'il faut mettre la fonction autant de fois qu'il y a de tables.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 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 '// 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 End Function
Comment faire une boucle pour masquer ou afficher toutes les tables?
2. Masquer les requêtes
Lorsque je remplace "Table" par "Query" pour masquer/afficher les requêtes, j'ai une erreur sur :Comment faire?
Code : Sélectionner tout - Visualiser dans une fenêtre à part tdf.Attributes = dbHiddenObject
Jean-Pierre
Partager