Discussion :

[SdenS]

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

[pgz]

Bonjour.

Je te propose de modifier le code ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Chx_Table_Change()
Dim Nom_Table As TableDef
Dim Fld As Field
Dim oDb as DAO.DataBase
 
MsgBox Chx_Table.Value
Set oDb = Application.CurrentDb
Set Nom_Table = oDb.TableDefs(Chx_Table.Value)
MsgBox Nom_Table.Name
For Each Fld In Nom_Table.Fields
    MsgBox Fld.Name
Next
Set Fld = Nothing
Set Nom_Table = Nothing
Set oDb = Nothing
End Sub

Ca pourrait bien marcher.

Bon courage,