[access/vba]

Résolu
choubaka71 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour a tous,

Dans mon code vba j'execute la requete suivante et renvoie le résultat dans une text box mais l'exception suivante est levé, je ne comprend pas. Pouvez vous m'aider?

Voici ma requete : Set oRst = oDb.OpenRecordset("SELECT Count(*) FROM production WHERE [Nom Machine] = " & Nom_Machine & "")

voici le message d'erreur : erreur d'execution "3061"
too fiew parameters. expected1

1 réponse

blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

si nom_machine est de type chaine, alors il faut l'enquoter :
Set oRst = oDb.OpenRecordset("SELECT Count(*) FROM production WHERE [Nom Machine] = '" & Nom_Machine & "';") 
0