Discussion :

[Salsaboy60]

bonjour,

après avoir rempli mon code fournisseur (Z1T00999-XS-BLCK) qui contient donc la couleur, j'aimerai préremplir mon champs Couleur (liste déroulante dépendant) avec la couleur encodé préalablement.

Comment faire?

Voici ce que j'avais pensé, mais ça ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
If (Not IsNull(strVerif = DLookup("[ID]", "tbl_Couleurs", "[CodeCouleur]='" & Right(Me.CodeFournisseur, 4) & "'"))) Then
    MsgBox "strVerif = " & strVerif
    Me.Couleur.ItemData (strVerif)
    Me.Couleur.Requery
    GoTo Fin:
  Else
    MsgBox "Le code couleur n'existe pas ou est mal ortogrphié", vbExclamation
    Me.CodeFournisseur = strTronc
    Me.CodeFournisseur.SetFocus
  End If

Merci d'avance

[madefemere]

Bonjour,

Normalement on fait simplement

Code :

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

Me.couleur = strVerif

ou

Code :

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

Me.Couleur.Value = strVerif

Bonne continuation

[Salsaboy60]

effectivement, changé comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim strVerif2 As String
 If (Not IsNull(strVerif = DLookup("[ID]", "tbl_Couleurs", "[CodeCouleur]='" & Right(Me.CodeFournisseur, 4) & "'"))) Then
    strVerif2 = DLookup("[Couleur]", "tbl_Couleurs", "[CodeCouleur]='" & Right(Me.CodeFournisseur, 4) & "'")
    Me.Couleur = strVerif2
    GoTo Fin:
  Else
    MsgBox "Le code couleur n'existe pas ou est mal ortogrphié", vbExclamation
    Me.CodeFournisseur = strTronc
    Me.CodeFournisseur.SetFocus
  End If

et ça marche

merci de ton aide