Requête multicritères avec formulaire

**mgascult** · 19/05/2025, 13h27

Bonjour à Tous,

Je reviens encore avec ma bête noire ☹

Je n’arrive pas à finaliser cette requête.
J’ai beau essayer mais en vain !
J’en suis resté aux deux tentatives ci-dessous :

Celui-ci me dit qu’il ne trouve pas le champ concerné erreur 2465 de mémoire alors que le formulaire "F_liste_HHE" est bien ouvert.

Code :

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

1
2
3
4
5
6
7
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= '" & Form![F_liste_HHE]![txt_date_debut] And " T_demandes_HHE.date_debut <= '" & Form![F_liste_HHE]![txt_date_fin] And " T_demandes_HHE.statut_demande = ""en cours"" & " ';"
 
 
Set dbs = CurrentDb
Set rst2 = dbs.OpenRecordset(sSQL2, dbOpenSnapshot)

Celui là erreur 3061 trop peu de parametre sur la ligne « set rst2 »

Code :

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

1
2
3
4
5
6
7
8
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE (((T_demandes_HHE.date_debut)>=[Form]![F_liste_HHE]![txt_date_debut] And (T_demandes_HHE.date_debut)<=[Form]![F_liste_HHE]![txt_date_fin]) AND ((T_demandes_HHE.statut_demande)='en cours'));"
 
 
 
Set dbs = CurrentDb
Set rst2 = dbs.OpenRecordset(sSQL2, dbOpenSnapshot)

Malgré les recherches et même la relecture lecture d’anciens de mes posts, je n’ai pas trouvé solution ☹
Et malheureusement je ne pratique pas assez et fait surement un blocage.

Je vous remercie pour votre aide et vous souhaite une Belle journée 🌞

**tatayo** · 19/05/2025, 14h14

Bonjour,
Dans la première version les quotes sont mal placées dans la construction du WHERE:

Code :

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

1
2
3
4
 
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= '" & Form![F_liste_HHE]![txt_date_debut] & "' And T_demandes_HHE.date_debut <= '" & Form![F_liste_HHE]![txt_date_fin] & "' And T_demandes_HHE.statut_demande = ""en cours"" ;"

Tatayo.

**mgascult** · 19/05/2025, 15h40

merci tatayo,

Je viens de tester et j'ai malheureusement toujours le code 2465 ne trouve pas l'objet auquel il fait référence

le formulaire est bien orthographié ainsi que les champs 🤔

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= '" & Form![F_liste_HHE]![txt_date_debut] & "' And T_demandes_HHE.date_debut <= '" & Form![F_liste_HHE]![txt_date_fin] & "' And T_demandes_HHE.statut_demande = ""en cours"" ;"

**tatayo** · 19/05/2025, 15h47

Je ne connais pas trop Access (en fait pas du tout), mais ne faut-il pas remplacer les doubles quotes autour de "En Cours" à la fin de la requête ?

Code :

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

1
2
3
4
 
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= '" & Form![F_liste_HHE]![txt_date_debut] & "' And T_demandes_HHE.date_debut <= '" & Form![F_liste_HHE]![txt_date_fin] & "' And T_demandes_HHE.statut_demande = 'en cours' ;"

Est-ce que tu peux poster le contenu de la chaine sQL2 pendant l'exécution du code ?
Ainsi on aura une peut-être une autre piste.

Tatayo.

**User** · 19/05/2025, 15h49

Bonjour à vous,

Ce n'est pas Form![F_liste_HHE]![txt_date_debut] mais Forms![F_liste_HHE]![txt_date_debut].

D'autre part il faut mettre les dates au format us #mm-dd-yyyy# ou #yyyy-mm-dd#

**User** · 19/05/2025, 17h52

Si ce sont bien des dates cela ferait quelque chose comme cela :

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= #'" & format(Forms![F_liste_HHE]![txt_date_debut],"mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & format(Forms![F_liste_HHE]![txt_date_fin],"mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"

https://access.developpez.com/faq/?page=SQL#PbTypVar

**mgascult** · 20/05/2025, 09h11

Envoyé par tatayo

Je ne connais pas trop Access (en fait pas du tout), mais ne faut-il pas remplacer les doubles quotes autour de "En Cours" à la fin de la requête ?

Est-ce que tu peux poster le contenu de la chaine sQL2 pendant l'exécution du code ?

Tatayo.

merci tatayo, j'avoue que je ne sais pas faire

**mgascult** · 20/05/2025, 09h15

Envoyé par User

Si ce sont bien des dates cela ferait quelque chose comme cela :

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= #'" & format(Forms![F_liste_HHE]![txt_date_debut],"mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & format(Forms![F_liste_HHE]![txt_date_fin],"mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"

https://access.developpez.com/faq/?page=SQL#PbTypVar

merci user,

je viens de tester et j'ai toujours l'erreur 3075 contenant ce coup ci les éléments de la saisie

c'est la première foi que je vois celà il me semble

Nom : erreur 3075.png
Affichages : 35
Taille : 11,9 Ko

**mgascult** · 20/05/2025, 09h17

quand je vois mon profil avec "membre éclairé" je me dis que c'est usurpé et plutôt éteint 😂

**tatayo** · 20/05/2025, 09h28

Bonjour,
Regarde bien les dates:

La première à une simple quote après le # au début, mais rien à la fin
La deuxième n'en a ni avant, ni après

Comme je le disais je ne connais pas Access, mais mon petit doigt me dit qu'il en faut dans tous les cas.
Tu as donc juste à les ajouter dans la requête:

Après le # avant la date
Avant le # après la date

Tatayo.

**mgascult** · 20/05/2025, 10h05

merci tatayo,

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
" FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
" WHERE T_demandes_HHE.date_debut >= #'" & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & "'# And T_demandes_HHE.date_debut <= #'" & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & "'# And T_demandes_HHE.statut_demande = 'en cours' ;"

toujours le meme message mais avec "erreur de syntaxe dans la date"

**User** · 20/05/2025, 10h14

Désolé c'est de ma faute :

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
        " FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
        " WHERE T_demandes_HHE.date_debut >= #" & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"

**tatayo** · 20/05/2025, 10h28

Je viens de regarder dans l'aide en ligne d'Access, visiblement il ne faut que les # autours des dates.

Tatayo.

**mgascult** · 20/05/2025, 10h37

Envoyé par User

Désolé c'est de ma faute :

Code :

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

1
2
3
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
        " FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
        " WHERE T_demandes_HHE.date_debut >= #" & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"

merci user, cela arrive.

Mais du coup je n'ai plus le meme message d'erreur sur la ligne 9.
Serait-ce du à un souci de résultat de la requete?

Nom : erreur 91.png
Affichages : 31
Taille : 9,9 Ko

Nom : erreur 91.png
Affichages : 31
Taille : 9,9 Ko

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
        " FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
        " WHERE T_demandes_HHE.date_debut >= #" & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"
 
 
Set dbs = CurrentDb
Set rst2 = dbs.OpenRecordset(sSQL2, dbOpenSnapshot)
 
If rst.EOF Then  ' si la requête ne renvoie aucun résultat
Exit Sub
Else ' si il y a un résultat, lance une boucle afin de controler la présence de l immeuble
Do Until rst.EOF
If rst.Fields(7) = "Sakura" Then vsakura = "OK"
        rst.MoveNext   ' passe à l'enregistrement suivant
    Loop
End If
End If

**mgascult** · 20/05/2025, 10h38

Envoyé par tatayo

Je viens de regarder dans l'aide en ligne d'Access, visiblement il ne faut que les # autours des dates.

Tatayo.

merci tatayo, je peux tester

**mgascult** · 20/05/2025, 10h45

Si je les retire comme ci-dessous, j'ai une erreur de syntaxe donc pas bon

Code :

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

" WHERE T_demandes_HHE.date_debut >= # & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & # And T_demandes_HHE.date_debut <= # & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & # And T_demandes_HHE.statut_demande = 'en cours' ;"

**tatayo** · 20/05/2025, 10h50

Il faut enlever la simple quote (l'apostrophe), pas les doubles quotes (les guillemets).
Sinon pour ton dernier message, l'erreur ne vient pas de la requête, mais du code.
Tu récupères le résultat de la requête dans rst2, mais dans le reste du code tu utilises rst...

Tatayo.

**User** · 20/05/2025, 10h52

Essayez ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sSQL2 = "SELECT T_noms_HHE.nom_HHE, T_noms_HHE.prenom_HHE, T_noms_HHE.IGG_HHE, T_noms_HHE.sigle_HHE, T_noms_HHE.société_HHE, T_demandes_HHE.date_debut, T_demandes_HHE.date_fin, T_demandes_HHE.immeuble, T_demandes_HHE.PK AS [Acces Parking], T_demandes_HHE.ID_demande" & _
        " FROM T_demandes_HHE INNER JOIN T_noms_HHE ON T_demandes_HHE.ID_demande = T_noms_HHE.ID_demande" & _
        " WHERE T_demandes_HHE.date_debut >= #" & Format(Forms![F_liste_HHE]![txt_date_debut], "mm-dd-yyyy") & "# And T_demandes_HHE.date_debut <= #" & Format(Forms![F_liste_HHE]![txt_date_fin], "mm-dd-yyyy") & "# And T_demandes_HHE.statut_demande = 'en cours' ;"
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sSQL2, dbOpenSnapshot)
 
Do Until rst.EOF
If rst.Fields(7) = "Sakura" Then vsakura = "OK"
rst.MoveNext   ' passe à l'enregistrement suivant
Loop
 
' faire quelque chose avec la variable vsakura

**mgascult** · 20/05/2025, 11h26

merci user,
cela semble fonctionner mais je suis bloqué sur la ligne ci-dessous, j'ai ajouté une deuxième variable dans le Recipient.add et ça bloque, c'est la première fois que je procède ainsi mais ça ne fonctionne pas

.

Code :

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

Set objOutlookRecip = Recipients.Add(destinataires) & (destsakura) 'mails des destinataires

**User** · 20/05/2025, 11h49

Regardez ce lien :

https://learn.microsoft.com/fr-fr/of...ook.recipients

Requête multicritères avec formulaire [AC-2016]

Requêtes et SQL.

Discussions similaires

Partager

Partager