Discussion :

[Daniel MOREAU]

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 :

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

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

[vodiem]

salut,

voilà:

Code :

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

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

[Tofalu]

Code :

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

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

[vodiem]

oui, c'est plus gracieux...

[Tofalu]

oui, c'est plus gracieux...

Oui mais il faudrait aussi tester l'existence de la table via une gestion d'erreur

[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.

ps: j'avais omis exprès le Exit For...