Discussion :

[CinErarY]

bonjours
je ne comprend pas car mon code est super simple...

Code :

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

1
2
3
4
5
6
Dim req As String
Dim rs As DAO.Recordset
 
req = "SELECT nomCaissier FROM Caissier WHERE noCaissier = " & Forms![FormCaissier]![lstCaissier] & ";"
 
Set rs = CurrentDb.OpenRecordset(req)

il plante sur la dernière ligne, il me dit:

Erreur d'execution '3061':
Trop peu de paramètres. 1 attendu.

pourtant comme vous le voyez, mon paramètre est bien là!

[LedZeppII]

Bonjour,

Ce que tu as écrit est valable pour un champ numérique.
Si noCaissier est un champ texte, encadrer la valeur du critère avec des quotes simples ('):

Code :

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

req = "SELECT nomCaissier FROM Caissier WHERE noCaissier = '" & Forms![FormCaissier]![lstCaissier] & "' ;"

A+

[CinErarY]

noCaissier, c'est numérique

et de toute facon, l'erreur n'Est pas dans la requête, c'est dans le OpenRecordset... on dirais qu'il vois pas que je lui fournis la requête en paramètre...

[LedZeppII]

Le message d'erreur indique que le problème vient du SQL.
OpenRecordset tente d'exécuter le SQL, et échoue si le SQL n'est pas correct.

Le problème peut venir de la zone de liste lstCaissier.
Insère une ligne

Code :

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

Debug.Print req

avant l'ouverture du recordset.
Tu verra ainsi le contenu réel du SQL, et tu pourra peut-être en tirer des conclusions.

A+

[micniv]

Recurrent paramètre manquant,
En attendant le nouvel an,
Une bonne inspiration je prendrais en : http://www.developpez.net/forums/sho...46&postcount=5