Bonjour,

je cherche à balayer la liste des champs d'une table que j'ai sélectionnée dans une liste déroulante, mais j'ai un problème avec la syntaxe que j'utilise pour définir quelle table m'intéresse :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Chx_Table_Change()
Dim Nom_Table As TableDef
Dim Fld As Field
MsgBox Chx_Table.Value
Set Nom_Table = CurrentDb.TableDefs(Chx_Table.Value)
MsgBox Nom_Table.Name
For Each Fld In Nom_Table.Fields
    MsgBox Fld.Name
Next
End Sub
Je plante à la ligne "msgbox Nom_Table.Name" (pour l'instant ) en erreur 3420 : L'objet n'est plus valide ou n'est plus défini.

Quelqu'un voit pourquoi ? ou voit un contournement ?

Merci d'avance