Enumérer les champs d'une table

Version imprimable

Bonjour,

Je souhaite énumérer les champs d'une table dont je stocke le nom dans une liste déroulante. J'ai trouvé un exemple qui liste les champs de toutes les tables de ma base de données.

Je bloque sur la syntaxe qui me permet de récupérer uniquement le nom de la table mentionnée dans ma liste déroulante.

Voici le code que j'ai trouvé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Btn_LstChampTbl_Click() Dim Db As DAO.Database Dim tbd As DAO.TableDef Dim fld As DAO.Field Set Db = CurrentDb For Each tbd In Db.TableDefs For Each fld In tbd.Fields MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name Next Next End Sub
merci pour votre aide

Daniel

salut,

voilà:

Code:

1
2
3
4
5
6
7
For Each tbd In Db.TableDefs
    If tbd.Name=[LeChampDeMaListe] then
        For Each fld In tbd.Fields
            MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
        Next
    End if
Next

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Btn_LstChampTbl_Click()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
 
 
set tbd=db.TableDefs([ZoneDeListe])
    For Each fld In tbd.Fields
        MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
    Next
 
 
End Sub

27/09/2007, 17h44
vodiem

oui, c'est plus gracieux... :king:
27/09/2007, 18h28
Tofalu

Citation:

Envoyé par vodiem

oui, c'est plus gracieux... :king:

Oui mais il faudrait aussi tester l'existence de la table via une gestion d'erreur ;)
27/09/2007, 18h47
vodiem

la question m'était passé à l'esprit.
je m'était dis que j'allais le vérifier moi même...

parcequ'on retrouve parfois de discution où on doit vérifier l'ouverture d'un form. donc c'est bien utile de savoir ce qu'il peut renvoyer. :D

ps: j'avais omis exprès le Exit For...
28/09/2007, 13h18
Daniel MOREAU

Bonjour,

Merci pour vos réponses,

Je viens de tester et c'est parfait.:)

Merci pour votre aide

Daniel