Erreur de compilation: attendu : séparateur de liste ou ) [Access/Vba]
Résolu
Gnyss
-
Gnyss -
Gnyss -
Bonjour,
je rencontre des difficultés depuis quelques jours déjà, et là j'ai fort besoin de votre aide. Je vous explique le truc:
en fait je débute sur Access et j'essaie de concevoir une application dont une partie permettra de gérer les entrées en stock. Mais avant d'en arriver là, ce que je voudrais dans un premier temps c'est d'avoir la marque du produit et sa quantité à partir de la référence sélectionnée dans une liste déroulante.
voici donc le code vba:
Dim enrg As Recordset: Dim base As Database
Set base = Application.CurrentDb
Set enrg = base.OpenRecordset("SELECT marque, qteprod FROM produit WHERE idprod='"&Modifiable18.Value&"';", dbOpenDynaset)
qtemaj.Value = 0: qteac.Value = 0
enrg.MoveFirst
marque.Value = enrg.Fields("marque").Value
qteac.Value = enrg.Fields("qteprod").Value
qtemaj.SetFocus
enrg.Clone
base.Close
Set enrg = Nothing
Set base = Nothing
Le souci c'est que le message d'erreur suivant s'affiche à chaque fois que j’exécute le code " erreur de compilation: attendu : séparateur de liste ou )" et le curseur se met au niveau de la ligne:
Set enrg = base.OpenRecordset("SELECT marque, qteprod FROM produit WHERE idprod='"&Modifiable18.Value&"';", dbOpenDynaset)
Ne sachant pas vraiment à quel niveau se situe exactement le problème, pourriez vous m'aidez svp !
Merci d'avance!!!
je rencontre des difficultés depuis quelques jours déjà, et là j'ai fort besoin de votre aide. Je vous explique le truc:
en fait je débute sur Access et j'essaie de concevoir une application dont une partie permettra de gérer les entrées en stock. Mais avant d'en arriver là, ce que je voudrais dans un premier temps c'est d'avoir la marque du produit et sa quantité à partir de la référence sélectionnée dans une liste déroulante.
voici donc le code vba:
Dim enrg As Recordset: Dim base As Database
Set base = Application.CurrentDb
Set enrg = base.OpenRecordset("SELECT marque, qteprod FROM produit WHERE idprod='"&Modifiable18.Value&"';", dbOpenDynaset)
qtemaj.Value = 0: qteac.Value = 0
enrg.MoveFirst
marque.Value = enrg.Fields("marque").Value
qteac.Value = enrg.Fields("qteprod").Value
qtemaj.SetFocus
enrg.Clone
base.Close
Set enrg = Nothing
Set base = Nothing
Le souci c'est que le message d'erreur suivant s'affiche à chaque fois que j’exécute le code " erreur de compilation: attendu : séparateur de liste ou )" et le curseur se met au niveau de la ligne:
Set enrg = base.OpenRecordset("SELECT marque, qteprod FROM produit WHERE idprod='"&Modifiable18.Value&"';", dbOpenDynaset)
Ne sachant pas vraiment à quel niveau se situe exactement le problème, pourriez vous m'aidez svp !
Merci d'avance!!!
merci pour votre réponse, je viens de modifier la ligne en y mettant les espaces avant et après les &. mais maintenant il y a un autre message d'erreur qui s'affiche:
"erreur d’exécution '3464' : type de données incompatible dans l'expression du critère."
Merci encore ! :-)