Discussion :

[CLASSIQUE]

Bonjour, actuellement je sais faire la recherche depuis une zone de liste déroulante avec 2 champs sur le Private sub ci-dessous.
Comment visualiser un troisième Champs exemple sur la zone de Texte Conditionnement
1 Table : CARTES
1 Champs : ARTICLE
1 Champs : DESIGNATION
1 Champs : CONDITIONNEMENT PAR CARTONS
Zone de liste déroulante = Recherche_Cond
Zone de Texte = CodeCartes_Cond
Zone de Texte = Designation_Cond
Zone de Texte = Conditionnement_NB

Screenshot ci-joint :

Code :

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

1
2
3
4
5
Private Sub Recherche_Cond_AfterUpdate()
Me.CodeCartes_Cond = Me.Recherche_Cond
Me.Designation_Cond = DLookup("DESIGNATION", "CARTES", "[ARTICLE]='" & Forms![F_Modification]![CodeCartes_Cond] & "'")
 
End Sub

Si vous avez une solution

Cordialement

Jean Jacques

[hyperion13]

Salut
Il y a plus simple, enfin je pense.
La cbo est composée de 4 colonnes, la 1ère est masquée.

Code :

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

1
2
3
4
5
Private Sub cboArticle_AfterUpdate()
    Me.txtArticle = Me.cboArticle.Column(1) ' 2ème colonne de la cbo
    Me.txtDesignation = Me.cboArticle.Column(2) ' 3ème colonne de la cbo
    Me.txtCondition = Me.cboArticle.Column(3) ' 4ème colonne de la cbo
End Sub

[CLASSIQUE]

Bonjour Hyperion13

Je vous remercie de votre Aide.
Après plusieurs hésitations, j'ai ajouté un deuxième Dlookup, comme ci-dessous.
Et çà fonctionne correctement.

Code :

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

1
2
3
4
5
Private Sub Recherche_Cond_AfterUpdate()
Me.CodeCartes_Cond = Me.Recherche_Cond
Me.Designation_Cond = DLookup("DESIGNATION", "CARTES", "[ARTICLE]='" & Forms![F_Modification]![CodeCartes_Cond] & "'")
Me.Conditionnement_NB = DLookup("[CONDITIONNEMENT PAR CARTONS]", "CARTES", "[ARTICLE]='" & Forms![F_Modification]![CodeCartes_Cond] & "'")
End Sub

Cordialement

Jean Jacques

[hyperion13]

Pourquoi faire simple, quand on peut faire compliqué !