Requête sélection avec paramètre en VBA ; et en réseau!

Bonjour à tous :mrgreen:

Je travaille sur un fichier *.mdb en réseau avec une dizaine de personnes.
J'ai l'intention de modifier une requête existante pour améliorer l'interface homme-machine. Je m'explique:

Actuellement, lorsqu'on clique sur un bouton pour générer la requête "Archives_ES" :

Code:

---

"SELECT * FROM Archives WHERE Date between [Entree?] and [Sortie?]"

---

Access demande la date d'entrée; puis après validation, la date de sortie. A partir de là, les utilisateurs peuvent simultanément faire leurs recherches par rapport aux données [Entrée?] et [Sortie?] qu'ils ont saisi.
Une fois la table affichée, les utilisateurs peuvent refiltrer sur des dates plus précises ou d'autres paramètres en tout genre sans avoir à rentrer à nouveau les dates [Entrée?] et [Sortie?].
Jusqu'ici, tout va bien :mouarf:

Etant donné que certaine date sont beaucoup recherchées, j'ai créé un formulaire intermédiaire qui permet de rechercher par exemple directement l'année 2020 ou encore 2ans en arrière à partir de la date du jour.

1er essai :
Le traitement se fait en VBA mais j'ai eu la mauvaise surprise à l'utilisation d'avoir des problèmes pour les utilisateurs n'ayant pas les droits administrateurs car :

• Le VBA efface la dernière requête et en crée une nouvelle adaptée au bouton sélectionné.
• La nouvelle requête n'est pas connue par le fichier du groupe de travail ==> Seul les administrateurs y ont accès

2e essai
Si une nouvelle requête ne fonctionne pas, je vais écraser l'ancienne!
Cela fonctionne mais lorsqu'un premier utilisateur fait une recherche et qu'un autre en parallèle en fait une autre puis que le premier fait un tri sur une colonne ==> Si le second fait également un tri, il obtient la recherche du premier utilisateur... :weird:
Je comprends le phénomène mais quand je ne passe pas par VBA, Access fait bien les bonnes recherches selon ce que l'un où l'autre a demandé et ne fait pas un mix des deux.

Je me suis penché sur les recordset mais impossible d'obtenir le même tableau qu'avec un "openQuery".

C'est quand même étrange les comportements en VBA non? Comment pourrais-je faire des "openQuery" avec paramètres selon le bouton sélectionné?

Dans le cas ou il n'y a pas de VBA, ou sont stockées temporairement les saisies par les utilisateurs des dates [Entrée?] et [Sortie?]?

Merci pour votre aide, j'espère que mes explications sont assez claires :)

Salut,

pourrais-tu nous donner les lignes qui font que tu crées la requete à la volée ?

Si tu as des conflits de requetes qui sont écrasées par un utilisateur ou un autre, il faut revoir ta conception

Salut :)

Voici un extrait :

Code:

---

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

Dim Annee As String Annee = InputBox("Quelle année?")   If (Len(Annee) = 4 And IsNumeric(Annee)) Then Dim qdf As DAO.QueryDef Set qdf = CurrentDb.CreateQueryDef(NomReq, TexteReq) DoCmd.Close   qdf.Sql = Replace(qdf.Sql, "[Entree?]", "#01/01/" & Annee & "#") qdf.Sql = Replace(qdf.Sql, "[Sortie?]", "#12/31/" & Annee & "#") DoCmd.OpenQuery NomReq, acViewNormal, acReadOnly End If

---

Les variables Nomreq et TexteReq sont globales et contiennent "Archives_ES" et SELECT * FROM Archives WHERE Date between [Entree?] and [Sortie?]
Effectivement je suis persuadé de m'y prendre mal mais je ne vois pas comment me passer de openQuery pour faire un tableau récapitulatif sans avoir ces problèmes. :calim2:

Merci pour le coup de main ;)

Salut,

remplacer le code SQL n'a aucun sens selon moi, l'utilisation des paramètres est déjà faite pour cela.

Surtout si en plus ta notion de période est seulement en année :

Code:

---

SELECT * FROM Archives WHERE Year([Date]) =[Annee?]"

---

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

Salut,

J'avoue que c'est du mauvais bricolage mais comme rien de ce que j'avais essayé ne fonctionnait, j'ai fini par modifier les requêtes pour avoir un fonctionnement minimal.

En voyant le lien que tu as mis, je m'aperçois que j'avais essayé avec le "With qdf.Parameters[...]" mais que ca ne fonctionnait pas. Access redemande quand même les paramètres. Ce type de commande n'est-il pas utilisable qu'avec des requêtes action?

Requête :

Code:

---

1 2 3 4 5

PARAMETERS [Entree?] Text ( 255 ); SELECT Table.Debut, Table.Fin, Table.Reference, Table.N° FROM [Table] WHERE (((Table.Debut)>=[Entree?])) ORDER BY Table.Debut;

---

VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Annee As String Annee = InputBox("Quelle année?")   If (Len(Annee) = 4 And IsNumeric(Annee)) Then Dim qdf As DAO.QueryDef Set qdf = CurrentDb.QueryDefs("Archives") With qdf .Parameters("[Entree?]") = Annee End With DoCmd.OpenQuery "Archives", acViewNormal, acReadOnly End If

---

Merci encore :D

Bonjour à tous 8-)

J'ai tenté de n'utiliser que des variables numériques pour éviter les conflits puis j'ai imposé un paramètre dans le code VBA pour essayer mais rien y fait, il me demande toujours la valeur de la variable quand je clique sur le bouton.

Voici mon code VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Annee As Integer   Annee = 2020   Dim qdf As DAO.QueryDef Set qdf = CurrentDb.QueryDefs("Archives") With qdf .Parameters("Entree") = Annee '.Execute End With DoCmd.OpenQuery "Archives", acViewNormal, acReadOnly

---

Et la requête :

Code:

---

1 2 3 4 5

PARAMETERS [Entree] Short; SELECT Table.Debut, Table.Fin, Table.Reference, Table.N° FROM [Table] WHERE (((Table.Debut)>=[Entree])) ORDER BY Table.Debut;

---

J'ai joint le fichier d'essai pour que ce soit plus pratique :)

Merci encore pour vos avis :D

Bonjour à tous :D

J'ai tenté d'autre chose similaire mais ca ne fonctionne pas, il me demande toujours le paramètre "Entree" alors que je le "déclare" :

Code:

---

qdf.Parameters("Entree")

---

Est-ce que cette façon de faire est possible pour ce type de requête?

J'ai raté quelque chose? Surement! :?

Bonne journée

bonsoir,
d'après ce que j'en sais, avec la commande OpenQuery, il n'y a pas de solution pour ce problème de paramètres