Discussion :

[scully2501]

bonjour,

quel est la fonction qui permet de verifier par true ou false si une table est masqué?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub essai_Click()
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
if ""table non masquer""
 tabley = tbl.Name
end if           
Next tbl
End Sub

cette fonction permet d'aller chercher les tables existantes dans la base de données.
si la table est masqué tabley ne recevra pas le nom de la table.

[pgz]

Bonjour,

L'info que tu cherches est dans la proprété Attributes de la table, qui est une combinaison de différentes constante. Celle qui t'intéresse est dbHiddenObject.
Pour tester tu fais un 'ET' logique entre tbl.Attributes et dbHiddenObject. Si le résultat est non nul, la table est cachée;

Bonne chance,

pgz[/code]

[scully2501]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For Each tbl In CurrentDb.TableDefs
masquer = tbl.Attributes And dbHiddenObject
If masquer <> 0 Then
 myvalue = tbl.Name
 End If
Next tbl

est ce bien ainsi? car cela ne fonctionne pas il me retourne toujours zero.

[scully2501]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim tbl As TableDef
Dim db As Database
Set db = CurrentDb()
 
For Each tbl In db.TableDefs
 If Not ((tbl.Attributes And dbSystemObject) Or (tbl.Attributes And dbHiddenObject)) Then
 myvalue = tbl.Name
 End If
Next tbl

grace au mot donné en haut j'ai trouver la formule mais il ne se passe rien il considere toujours que c'est pas masqué ou un objet system. Pourtant j'ai bien dao et ado cochez dans les references

[Frank]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each tbl In db.TableDefs
   If tbl.Attributes = 0 Then
      myvalue = tbl.Name
      MsgBox "" & myvalue & " n'est pas une table caché ou une table        système"
 Else
    MsgBox "la table " & tbl.Name & " est une table caché ou une table système"
 End If
Next tbl

[scully2501]

merci pour ce code.

cel amarche pour les tables systèmes mais pour les tables que j'ai pasqué moi meme cela reste à zéro

[Frank]

zut, exact...

[scully2501]

je n'ai pas trouver de solution donc j'ai fait une logique

ou qd la table commence par MSys je ne prend pas et les tables que je masque moi meme je les nomme en commencant pas MSys

[cafeine]

je n'ai pas trouver de solution donc j'ai fait une logique

ou qd la table commence par MSys je ne prend pas et les tables que je masque moi meme je les nomme en commencant pas MSys

C'est la solution la plus communément acceptée.

[Tofalu]

En effet, il semblerait qu'il y ait un bug.

En effet, si un objet est masqué, sa propriété Attributes n'est pas combiné à dbHiddenObject qui est égale à 1.

Or, si tu fais :

db.TableDefs("LaTable").Attributes = 1

tu t'aperceveras que ta table disparait même si sous Access tu affiches les objets masqués

Etrange, Etrange

En fait, il semblerat qu'une table hiddenobject soit une table temporaire, en fait rien à voir avec la propriété Masqué de la table

[Tofalu]

http://www.developpez.net/forums/vie...901062#1901062

[Maxence HUBICHE]

db.TableDefs("LaTable").Attributes = 1

tu t'aperceveras que ta table disparait même si sous Access tu affiches les objets masqués

tu pourrais pas utiliser les constantes plutôt ?

db.TableDefs("LaTable").Attributes = dbHiddenObject

Etrange, Etrange

En fait, il semblerat qu'une table hiddenobject soit une table temporaire, en fait rien à voir avec la propriété Masqué de la table

Pas une table temporaire...
plutôt l'équivalent de 'très caché'(xlVeryHidden) pour les feuilles de calcul dans excel
D'ailleurs, en faisant :

db.TableDefs("LaTable").Attributes = x.Attributes Xor dbHiddenObject

Elle réapparait

[scully2501]

merci de vos reponses
je vais testé cela dés que possible

[scully2501]

ca marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
masque = Application.GetHiddenAttribute(acTable, tbl.Name)
 If masque = False Then
 myvalue2 = tbl.Name
else
end if

merci encore