Requête select avec Count en VBA, résultat dans une variable - pb de syntaxe

Bonjour à tous,

Je cherche à faire un peu la même chose qu'ici.

Voici comment je m'y suis pris pour obtenir le résultat d'une requête select avec un count dans une variable :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Rassocdemech As String Dim RSassocdemech As DAO.Recordset Dim db As Database   Rassocdemech = "SELECT COUNT(TJ_demandes_ech.IDJ_demande) AS nbassocdemech" Rassocdemech = Rassocdemech & "FROM Tdemandes INNER JOIN TJ_demandes_ech ON Tdemandes.ID_demandes = TJ_demandes_ech.IDJ_demande" Rassocdemech = Rassocdemech & "GROUP BY TJ_demandes_ech.IDJ_ech, Tdemandes.str_type_demande" Rassocdemech = Rassocdemech & "HAVING (((TJ_demandes_ech.IDJ_ech)=[Formulaires]![FDemandes]![FJ_demandes_ech].[Formulaire]![IDJ_ech]) AND ((Tdemandes.str_type_demande)=&chr(34)&Echantillons&chr(34)&));"   Set db = CurrentDb Set RSassocdemech = db.OpenRecordset(Rassocdemech)

---

seulement voila j'ai une erreur d'execution 3141 qui dit :
Dans l'instruction SELECT, n mot réservé ou un argument est mal orthographié ou absent.

J'ai beau chercher je ne trouve pas l'erreur, la syntaxe de la chaine SQL vient tout droit de l'éditeur de requêtes access avec une seule petite modification, l'utilisation de Chr(34) pour le ".

Merci de votre aide.

Bonjour,

Il te manque un espace à la fin de ces lignes

Code:

---

1 2 3 4 5

Rassocdemech = "SELECT COUNT(TJ_demandes_ech.IDJ_demande) AS nbassocdemech " Rassocdemech = Rassocdemech & "FROM Tdemandes INNER JOIN TJ_demandes_ech ON Tdemandes.ID_demandes = TJ_demandes_ech.IDJ_demande " Rassocdemech = Rassocdemech & "GROUP BY TJ_demandes_ech.IDJ_ech, Tdemandes.str_type_demande " Rassocdemech = Rassocdemech & "HAVING (((TJ_demandes_ech.IDJ_ech)=[Formulaires]![FDemandes]![FJ_demandes_ech].[Formulaire]![IDJ_ech]) AND ((Tdemandes.str_type_demande)=&chr(34)&Echantillons&chr(34)&));"

---

Merci PC75 pour cette réponse, effectivement, sans les espaces cela ne fonctionne pas.

Il subsiste un problème, j'obtiens l'erreur suivante lors de l'execution du code :

erreur d’exécution 3061 :

trop peu de paramètres, 1 attendu

Le code est maintenant le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Rassocdemech = "SELECT COUNT(TJ_demandes_ech.IDJ_demande) AS nbassocdemech " Rassocdemech = Rassocdemech & "FROM Tdemandes INNER JOIN TJ_demandes_ech ON Tdemandes.ID_demandes = TJ_demandes_ech.IDJ_demande " Rassocdemech = Rassocdemech & "GROUP BY TJ_demandes_ech.IDJ_ech, Tdemandes.str_type_demande " Rassocdemech = Rassocdemech & "HAVING (((TJ_demandes_ech.IDJ_ech)=[Formulaires]![FDemandes]![FJ_demandes_ech].[Formulaire]![IDJ_ech]) AND ((Tdemandes.str_type_demande)=" & Chr(34) & "Echantillons" & Chr(34) & "));"   MsgBox Rassocdemech       Set db = CurrentDb Set RSassocdemech = db.OpenRecordset(Rassocdemech)

---

les paramètres sont des valeurs de formulaires, qui sont non nulles puisque ce code s’exécute après mise à jour d'un champ.

Merci de votre aide

Re,

- 1 - Tes variables ne sont pas interprétées. Elles sont considérées comme du texte

- 2 - Si tes champs sont de type texte, il faut délimiter les valeurs des variables avec des simples quotes :

Code:

---

1 2	Rassocdemech = Rassocdemech & " HAVING MonChamp1 = '" & MaVariable1 & "' AND MonChamp2 = '" & MaVariables & "' "

---

OK,

J'ai réussi à m'en sortir.

Voici ce que cela donne :

Code:

---

1 2 3 4 5 6

Rassocdemech = "SELECT COUNT(TJ_demandes_ech.IDJ_demande) AS nbassocdemech " Rassocdemech = Rassocdemech & "FROM Tdemandes INNER JOIN TJ_demandes_ech ON Tdemandes.ID_demandes = TJ_demandes_ech.IDJ_demande " Rassocdemech = Rassocdemech & "GROUP BY TJ_demandes_ech.IDJ_ech, Tdemandes.str_type_demande " Rassocdemech = Rassocdemech & "HAVING (((TJ_demandes_ech.IDJ_ech)=" & Forms("FDemandes").Form("FJ_demandes_ech").Controls("IDJ_ech") & ") AND ((Tdemandes.str_type_demande)=" & Chr(34) & "Echantillons" & Chr(34) & "));" Set db = CurrentDb Set RSassocdemech = db.OpenRecordset(Rassocdemech)

---

Merci