vba access masquer l'ensemble requettes - VB/VBA/VBS - Programmation
Marsh Posté le 09-08-2007 à 16:18:20
Laissez tomber, je viens de trouver. Il suffit juste de rajouter en amont le pratique (mais à utiliser avec précautions) "On error resume next".
On Error Resume Next
Dim req As QueryDef, db As Database
Set db = CurrentDb
For Each req In db.QueryDefs
Application.SetHiddenAttribute acQuery, req.Name, True
Next req
Marsh Posté le 09-08-2007 à 16:05:11
J'ai crée une base de données que je vais bientôt mettre à disposition des utilisateurs. Cette base contient environ 1200 requettes.... J'aimerai toutes les masquer pour éviter toute mauvaise manipulation et comme je ne peux pas sélectionner plusieurs requettes à la fois, j'ai pris peur en me disant que je devais masquer les requetes une par une. Une seule solution raisonable, les masquer par code vba:
Dim req As QueryDef, db As Database
Set db = CurrentDb
For Each req In db.QueryDefs
Application.SetHiddenAttribute acQuery, req.Name, True
Next req
Lorsque je lance la macro un message d'erreur me dit "Impossible de modifier les attributs des tables systèmes".
L'un d'entre vous peut-il m'éclairer?