Passer une valeur à une requête en VBA

Bonjour à tous,
J'ai du code qui ressemble à

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

strqry = "SELECT * From VBA_R_get_DATA"     Set db = CurrentDb Set rec = CurrentDb.OpenRecordset(strqry) If Not (rec.BOF And rec.EOF) Then rec.MoveLast rec.MoveFirst   intCount = rec.RecordCount For intLoop = 1 To intCount   VAL_1 = rec("VALUE1") VAL_2 = rec("VALUE2")   'trautement divers   rec.MoveNext Next intLoop End If

---

Ma requête VBA_R_get_DATA est la suivante

Code:

---

1 2 3

SELECT * FROM T_Applications WHERE (((T_Applications.Nom_Court)=[appli]));

---

Quand j'exécute le requête seule, il me demande l'appli, c'est parfait.
Mais je voudrais pourvoir lui passer cette valeur en paramètre en VBA : je n'ai pas envie de devoir recopier la requête SQL dans le code VBA pour replacer le [appli] par "& value &" dans la chaine de caractères.
L'idée est que si on modifie la requête, on n' pas besoin de modifier le code.
Est ce possible ?
Si oui comment ?
Je sèche.
Merci de votre aide

Salut,

c'est une information disponible dans la :faq:
https://access.developpez.com/faq/?page=SQL#ReqParamVar

Notes:
Avancer à la fin du recordset puis revenir au début, ne sert à rien, c'est même contre-productif et dégrade les performances.
Sur une requête retournant beaucoup de lignes, cela introduit un délais non négligeable.

Quels sont tes objectfs ?
Savoir si le recordset contient des enregistrement ?
Dans ce cas, les propriétés BOF et EOF sont à Faux.

Connaitre le nombre d'enregistrements retournés ?
Il vaut mieux utiliser DCount, ou encapsuler ta requête dans une requête "SELECT COUNT".
Tu profiteras ainsi de la toute puissance du moteur SQL.

Exemple:

Code:

---

1 2	Dim SQL As String SQL = "SELECT COUNT(*) FROM (SELECT * From VBA_R_get_DATA);"

---

Bonjour,
C’était un exemple, mon code réel est plutot

Code:

---

1 2 3

SELECT (T_Chiffres_CA.CA_du_mois) AS [VALUE] FROM T_Chiffres_CA WHERE (((T_Chiffres_CA.fk_periode_engagement)=[PERIODE]));

---

J'ai essayé d’adapter mon code en faisant

• p_requete est le nom de la requete ci-dessus
• p_periode la valeur à mettre dans PERIODE

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Set qdf = CurrentDb.QueryDefs(p_requete) With qdf .Parameters("PERIODE") = p_periode .Execute End With ' code qui ne marche surement plus ci-dessous ? Set liste_items = CurrentDb.OpenRecordset(p_requete) If (liste_items.RecordCount() = 0) Then 'la table est vide Exit Function End If   With liste_items Do Until .EOF   get_value_requete = liste_items("VALUE") Exit Function   .MoveNext Loop End With

---

J'ai donc 2 questions :
à la ligne Execute, il me sort
Pièce jointe 649716
=> pourquoi ?
=>Comment écrire la ligne

Code:

---

liste_items = CurrentDb.OpenRecordset(p_requete)

---

avec la requête qui prend en paramètre la période p_periode pour lire toutes les valeurs ....

Mille mercis

@+

Salut
p_requete est qry sélection d'où l'erreur 3065 :weird:
sinon une piste ici voire ici

Bonjour,

Code:

---

1 2 3 4

PARAMETERS PERIODE Text ( 255 ); SELECT (T_Chiffres_CA.CA_du_mois) AS [VALUE] FROM T_Chiffres_CA WHERE (((T_Chiffres_CA.fk_periode_engagement)=[PERIODE]));

---

Code:

---

1 2 3 4 5 6 7

With CurrentDb.QueryDefs(p_requete) .Parameters("PERIODE") = p_periode With .OpenRecordset If Not .EOF Then get_value_requete = !Value .Close End With End With

---

Ben oui, soyons un peut logique.

On ne peut exécuter qu'une requête qui altère la base de données (requête INSERT, UPDATE ou DELETE).
Pour le reste (requête SELECT), il faut ouvrir un recordset, les données ne vont pas apparaître par l'opération du Saint-Esprit.