Tester si la table est cachée ou non
Le
Mimi
Bonjour,
J'ai besoin d'utiliser le code qui suit mais impossible de trouver le bout
de code qui permet de tester si la table est cachée ou non.
Dim Db As DAO.Database, tdf As DAO.TableDef
Set Db = CurrentDb
For Each tdf In Db.TableDefs
If table cachée Then
P1
else
P2
end if
Next tdf
Set Db = Nothing
En fait je veux construire une liste des tables de mon appli mais que les
tables cachées n'apparaissent pas.
Merci à ceux ou celles qui pourront m'aider.
Mimi
J'ai besoin d'utiliser le code qui suit mais impossible de trouver le bout
de code qui permet de tester si la table est cachée ou non.
Dim Db As DAO.Database, tdf As DAO.TableDef
Set Db = CurrentDb
For Each tdf In Db.TableDefs
If table cachée Then
P1
else
P2
end if
Next tdf
Set Db = Nothing
En fait je veux construire une liste des tables de mon appli mais que les
tables cachées n'apparaissent pas.
Merci à ceux ou celles qui pourront m'aider.
Mimi
Poser une question
Dans les archives du forum, ce lien pourra peut etre t'aider :
http://groups.google.fr/groups?q=ta...%A9e+group:microsoft.public.fr.access&hl=fr&lr=&ie=UTF-8&selm=8m9pk8%242jv%241%40sshuraac-i-1.production.compuserve.com&rnum=2
Arnaud
"Mimi" news:
C'est exactement ce que je cherchais.
Mimi
"Gafish" news:
Tu as une requête directe...
SELECT MSysObjects.Name, MSysObjects.Type,
MSysObjects.Flags
FROM MSysObjects
WHERE (MSysObjects.Type=1 AND (MSysObjects.Flags=0 OR
MSysObjects.Flags=8)) OR (MSysObjects.Type=6 AND
(MSysObjects.Flags 97152 OR MSysObjects.Flags 97160));
MSysObjects.Type=1 pour les tables internes à Access
MSysObjects.Type=6 pour les tables attachées
MSysObjects.Flags=0 pour les tables internes visibles
MSysObjects.Flags=8 pour les tables internes invisibles
MSysObjects.Flags 97152 pour les tables attachées visib.
MSysObjects.Flags 97160 pour les tables attachées invis.
Ta requête devient donc
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (MSysObjects.Type=1 AND MSysObjects.Flags=0) OR
(MSysObjects.Type=6 AND MSysObjects.Flags 97152);
Bye
Yann