[AC-2003] Requête paramétrée et variable [Résolu]

[Chagui]

Bonjour !

J'ai une question concernant les requêtes paramètrées. Je souhaite pouvoir mettre en valeur du paramètre le contenu d'une variable. Pour cela j'ai consulté le FAQ qui explique comment faire cela : ICI

J'ai donc une reqête enregistrée sur Access qui se nomme : R_AjoutSélection. En paramètre de cette reqête j'ai : TON_PARAM, donnée type texte. Si je me trompe pas, je mets en critère de ma reqête (Champ: caisse) : [TON_PARAM]


Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
 
Dim combocaisse as variant
ComboCaisse = Me.CaisseFiltre.Value
Dim RQSql As DAO.QueryDef
Set RQSql = CurrentDb.QueryDefs("R_AjoutSélection")
      With RQSql
         .Parameters("TON_PARAM") = "'" & Replace(ComboCaisse, "'", "''") & "'"
         .Execute
      End With

Lors de l'execution de la reqête j'ai un message d'erreur :
Erreur d'execution' 3061':
Trop peu de paramètres. 2 attendu

Malgré le faite d'avoir suivi l'exemple du FAQ, cela ne fonctionne pas.
Ma variable se base sur une combobox, donnée type texte. Une des données contient une quote ce qui explique la fonction replace(). je me demande si l'utilisation de quotes est nécessaire ou simplement la variable (.Parameters("TON_PARAM") = ComboCaisse). j'ai essayé avec simplement ComboCaisse mais cela ne fonctionne pas non plus, j'ai le même message d'erreur.

Merci pour vos futurs conseils !

Cordialement

Guillaume

[jpcheck]

salut,

peut-on voir le contenu sql de la requete que tu souhaites executer stp ?

[Chagui]

voici ma requête sql :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
PARAMETERS [TON_PARAM] Text ( 255 );
 
INSERT INTO T_dossiers ( [caisse], [NUMEROcaisse], 
[NOM / PRENOM  du bénéficiare], 
[NOM du bénéficiare], 
[PRENOM du bénéficiare], [NIR], 
[N° de DOSSIER], 
[MONTANT brut TOTAL], 
[MONTANT net TOTAL], 
[DATE DE LIQUIDATION], [DATE D'EFFETbase], 
[DATE D'EFFETcomp],
[MISE EN PAIEMENT], [REVISION], 
[IDStatut], [DateAffectation], [Année] )
 
SELECT T_Selection.[caisse], 
T_Selection.[NUMEROcaisse], 
T_Selection.[NOM / PRENOM  du bénéficiare], 
T_Selection.[NOM du bénéficiaire], 
T_Selection.[PRENOM du bénéficiaire], 
T_Selection.[NIR], T_Selection.[N° de DOSSIER],
T_Selection.[MONTANT brut], 
T_Selection.[MONTANT net], 
T_Selection.[LIQUIDATION], T_Selection.[DATE D'EFFETbase],
T_Selection.[DATE D'EFFETcomp], 
T_Selection.[MISE EN PAIEMENT], 
T_Selection.[REVISION], T_Selection.[IDStatut], 
T_Selection.[DateAffectation], T_Selection.[Année]
 
FROM T_Selection
 
WHERE (((T_Selection.[caisse])=[TON_PARAM]));

[Simplifi]

Hello
ce genre d'application, j'utilise une zone de texte du formulaire de démarrage qui est toujours ouvert (invisible après la période de débugage)
ma requête n'a pas forcément de paramêtre mais seulement le nom de la zone de texte comme critère.
En VB, je peux facilement initialiser la zone de texte et lancer la requête
ce qui donne:

Code :

WHERE caisse = forms!démarrage!combocaise

pour le SQL et

Code :

DoCmd.OpenQuery "R_AjoutSélection"

pour lancer la requête