[AC-2007] passer des paramètres à une requête en VBA [Résolu]

[symbabeauchat]

Bonjour à tous

Je me suis largement inspiré de la faq (merci Drosera)
Comment utiliser en VBA une requête existante ?

Je veux récupérer tous les Enregistrements qui sont <>"R"
Le champ [Regul] est Texte et fait 1 caractère
Valeurs acceptées: "" ou R

et je recontre certainement un problème de syntaxe:

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset 
Set qdf = CurrentDb.QueryDefs("R_SomAbsMoisCGParam2")
'Passage des Params à la Requête
            qdf.Parameters("CléKs_Resident") = frmF1![CléK_RESIDENT] 
            qdf.Parameters("AnneeDebutAbsence") = frmF1![zdtAnneeDeSaisie]  
            qdf.Parameters("MoisDebutAbsence") = frmF1![zdtMoisDeSaisie]  
'*********** c'est le = Not "'R'" qui semble poser un problème  
            qdf.Parameters("RRegul") = Not "'R'"
     Set rst = qdf.OpenRecordset 
             If rst.RecordCount = 0 Then

J'ai bien essayé avec

Code :

 qdf.Parameters("RRegul") <> "'R'"

mais ça passe pas à la compilation

avec double cote et simple cote

Code :

1
2
qdf.Parameters("RRegul") = "''"
qdf.Parameters("RRegul") = "'R'"

passe bien la compilation mais ne renvoie rien alors que j'attends un résultat

J'enlève les simples cotes

Code :

1
2
qdf.Parameters("RRegul") = "R" 
qdf.Parameters("RRegul") = ""

ça passe pas non plus à la compilation !

J'ai aussi (pour vérifier) lancer la Requête en clicquant dessus
et saisi en dur les Paramètres demandés soit:
[RRegul] --> "" (2 Double cote) j'obtiens la réponse attendue
[RRegul] --> "R" (R entouré de double cote) j'obtiens la réponse attendue

Ce qui me fait penser à une mauvaise syntaxe mais je vois pas

Merci pour l'aide
Bonne soirée

[LedZeppII]

Bonsoir,

Dans .Parameters("Nom Paramètre") on ne peut passer que la valeur du paramètre.
On ne peut pas passer l'opérateur de comparaison.

Le champ [Regul] est Texte et fait 1 caractère
Valeurs acceptées: "" ou R

Code :

1
2
3
qdf.Parameters("RRegul") = ""
' ou
qdf.Parameters("RRegul") = "R"

Si ça ne fonctionne pas avec qdf.Parameters("RRegul") = "" il faut vérifier le contenu du champ RRegul.
Lorsqu'il ne contient pas "R" il se peut qu'il contienne Null, ou qu'au lieu de contenir "" il contienne " ".

S'il contient Null, il faudrait remplacer dans la requête, le critère par

Code sql :

Nz([Nom du champ], "") = [RRegul]

Pour tester le contenu du champ tu créer une requête :

Code :

1
2
SELECT IIf([NomDuChamp] Is Null,"Null",Asc([NomDuChamp])) AS TestChamp
FROM NomDeLaTable;

Si le champ NomDuChamp est Null la requête affiche Null, sinon elle affiche le code ascii.

A+

[symbabeauchat]

Bonsoir à tous

Merci LedZeppII tu as bien vu !

S'il contient Null, il faudrait remplacer dans la requête, le critère par

Code :

Nz([Nom du champ], "") = [RRegul]

Ce que j'ai fait

Lorsqu'il ne contient pas "R" il se peut qu'il contienne Null, ou qu'au lieu de contenir "" il contienne " ".

Ben oui mon champ contenait des " "

Donc j'ai passé le paramètre avec un espace entre les doubles cote

Code :

qdf.Parameters("RRegul") = " "

et ça marche TipTop

Encore merci et bonne soirée