Discussion :

[Banzai74]

bonjour a tous
voici mon probleme:
j'ai 2listes deroulante dans un formulaire,l'une doit alimenter l'autre suivant ces tables:
Journee(RefCom+RefPiece....)
Pieces(RefPiece...#RefCom)
Commandes(RefCom)
je voudrais que les pieces correspondant au commandes s'affiche dans la
liste deroulante,mais j'ai un message de "Entrer une valeurs de parametre"
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub RefCom_AfterUpdate()
 
Me.Journee_RefPiece.RowSource = "SELECT RefPiece FROM Pieces WHERE RefPiece =" & RefCom & ""
RefPiece.Enabled = True
RefPiece.SetFocus
RefPiece.Dropdown
 
End Sub

merci d'avance (si vous avez des questions de comprehension je suis a l'ecoute )

[ClaudeLELOUP]

Bonjour,

"SELECT RefPiece FROM Pieces WHERE RefPiece =" & RefCom & ""

Je crois que ta syntaxe n'est pas correcte.
Si RefCom est du texte, à mon avis il faudrait :

Code :

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

"SELECT RefPiece FROM Pieces WHERE RefPiece =""" & RefCom & """"

Et si c'est du numérique :

Code :

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

"SELECT RefPiece FROM Pieces WHERE RefPiece = & RefCom "

[Banzai74]

en effet sa risque deja de mieu marcher merci pour l'astuce :p
mais j'ai toujours aucunes valeur dans ma 2eme liste
sa pourai etre lié a une erreur de table?
merci bien en tout cas

[_MattU_]

Et si c'est du numérique :

Code :

Code :

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

"SELECT RefPiece FROM Pieces WHERE RefPiece = " & RefCom & ";"

La c'est mieux pour le numérique ^^

C'est normal que tu n'es rien dans ta liste il te faut une actualisation !
Ou le mieux tu créé une procédure événementielle "sur changement" de ta première liste (celle ou tu dois choisir une valeur pour que ca t'affiche les pièces dans la 2ème)
et tu mets un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Liste_commande_change()
Dim SQL as string
Dim RefCommande as string
 
RefCommande = Liste_commande.Value
SQL = "SELECT RefPiece FROM Pieces WHERE RefPiece = """ & RefCommande & """;"
 
Liste_pièce.RowSourceType = "Table/Query"
Liste_pièce.RowSource = SQL
Liste_pièce.Value = Empty

Voila normalement y'a pas de soucis avec ce petit bout de code

[Banzai74]

en effet la c'est niquel! merci beaucoup

[_MattU_]

De rien, ca fait plaisir
Bonne continuation !