Discussion :

[cluster26]

Bonjour,

J'ai des difficultés pour obtenir le résultat d'une requête que j'ai intégrée dans le code VBA d'un formulaire.

En effet, j'essaie de détecter un enregistrement consécutif à cette requête :

Code :

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

Set rs = CurrentDb.OpenRecordset("SELECT * FROM doublons WHERE ref_fourn = " & Me![ref_fourn] & " and ref = " & Me![REF])

J'ai testé le cas où je ne positionne que la ref_fourn, cela fonctionne !..

Dès que je positionne la deuxième condition, j'obtiens le message :

Erreur d'exécution '3061'
Trop peu de paramètres. 1 attendu

Avez-vous une piste pour me sortir de cette impasse ?

Merci à l'avance.

[vodiem]

salut cluster26,

la syntaxe est correcte. cela peut se produit si:

Code :

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

and ref =

'ref' n'est pas un champ de [doublons]

[cluster26]

Merci VODIEM,

ref_fourn et ref sont bien tous les deux des noms de champs de la table doublons !..

J'ai donné le même nom à mes contrôles indépendants de mon formulaire.

Lorsque je lance cette requête :

Code :

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

Set rs = CurrentDb.OpenRecordset("SELECT * FROM doublons WHERE ref_fourn = " & Me![ref_fourn])

Aucun problème !..

Par contre, lorsque je lance celle-ci :

Code :

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

Set rs = CurrentDb.OpenRecordset("SELECT * FROM doublons WHERE ref = " & Me![ref])

Je bloque avec "Erreur d'exécution '3061'"

Cordialement

[vodiem]

ton code fonctionne bien en créant une table avec l'ensemble des champs nécessaire et l'indexation sur les deux champs.

ton erreur ne vient pas du code mais du contexte dans lequel il se trouve.
pourrais tu faire une copie, circonscrire le prb, compacter, zipper et poster la db?

merci.

[cluster26]

Eureka !...

Comme le champ REF est de nature string il fallait que je positionne des quotes pour lui faire ingurgiter le recordset !...

La syntaxe se reconnaît donc ainsi :

Code :

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

 Set rs = CurrentDb.OpenRecordset("SELECT * FROM doublons WHERE ref_fourn = " & Me![ref_fourn] & " and ref = '" & Me![REF] & "'")

Merci pour l'aide.

Cordialement.

[vodiem]

cela m'étonne car une erreur de ce type lève une erreur '3464' et non '3061'.

bonne continuation,