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