Discussion :

[Boid']

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 :

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

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.

[pc75]

Bonjour,

Il te manque un espace à la fin de ces lignes

Code :

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

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)&));"

[Boid']

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 :

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

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

[pc75]

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 :

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

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

[Boid']

OK,

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

Voici ce que cela donne :

Code :

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

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