Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Tester si la table est cachée ou non

Tester si la table est cachée ou non

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gafish
Bonjour

Dans les archives du forum, ce lien pourra peut etre t'aider :

http://groups.google.fr/groups?q=table+cach%C3%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" a écrit dans le message de
news:
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




Avatar
Mimi
Merci beaucoup

C'est exactement ce que je cherchais.

Mimi

"Gafish" a écrit dans le message de
news:
Bonjour

Dans les archives du forum, ce lien pourra peut etre t'aider :


http://groups.google.fr/groups?q=table+cach%C3%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" a écrit dans le message de
news:
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








Avatar
Yann
Salut,
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

-----Message d'origine-----
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


.