[VBA] Modification de la clause where d'une requête

Bonjour,

Je souhaiterais modifier à partir de VBA les valeurs servant à filtrer certains champs d'une requête sans avoir à travailler directement sur le code SQL.

Y a-t'il un moyen en passant par l'objet querydef de modifié les valeurs des filtres ?

Merci d'avance.

Suite à la réponse de marot_r (qui ne s'affiche pas sur le forum :question:)

Je précise que cette requête est utilisée ensuite dans une sous-requête.
Je ne peux donc pas utiliser les filtres des recordset, il faut vraiment que je modifie la requête.

Jusqu'à présent, j'utilisais une requête modèle avec une chaîne particulière pour chaque paramètre, mais c'est pénible car ça m'oblige à doubler un nombre important de requête et à faire tout un cirque de copie et remplacement des paramètres dans la chaîne SQL du query def.

Oui, j'ai supprimé le message car je croyaisi qu'il était faux.

Et non :-( ce qui suis n'est pas une réponse à ton besoin.

Tu peux le faire ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim db As DAO.database: Set db = CurrentDb Dim r As DAO.Recordset: Set r = db.OpenRecordset("Table1", dbOpenDynaset) Dim rf As DAO.Recordset r.Filter = "[C1]>""1""" Set rf = r.OpenRecordset Debug.Print rf![C1] rf.Close:set f=nothing r.Close: Set r = Nothing db.Close: Set db = Nothing

---

Tu crées un recordset, tu appliques un filtre et tu ouvres un nouveau recordset basé sur celui qui est filtré.

A+

Tu pourrais ajouter un champ calculé avec ne fonction qui retourne True/False et de mettre une condition vrai sur ce champ.

ex :

Code:

---

1 2 3 4

SELECT Table1.C1, Test([c1]) AS T FROM Table1 WHERE (((Test([c1]))=True));

---

Code:

---

1 2 3 4

Public Function Test(prm As Variant) As Boolean Test = (prm > "1") End Function

---

Comme dans Test tu es en VBA tu pourrais utiliser des variables globales pour influencer tes décisions et aussi la fonction Eval(String) pourrait être utile.

A+

Merci pour tes réponses Marot_r.

J'avoue que ta première solution me laisse perplexe.
D'autant que j'ai vraiment besoin de modifier en dur le code de la requête et non de filtrer de manière dynamique les données sortie par cette requête. (toujours cette manie d'imbriquer des requêtes...)

Par contre la deuxième est chafouine.
J'ai juste un peu peur qu'elle me plombe le temps de traitement (surtout que nous avons des administrateurs qui ont réussit à rendre un dual core 2 Ghz sous XP aussi rapide qu'un céléron 200 Mhz sous vista :roll:).

Vu le nombre de réponse, il semble qu'il n'y ait pas de manière "propre" d'obtenir les valeurs des filtres par champ à partir de querydef.
Est-ce au moins possible d'obtenir la clause where de la requête sabs avoir à fair edu traitement texte sur la cha'ine SQL ? par exemple avec un truc équivalent à filter pour les recordset.

Citation:

---

Envoyé par Julien Dufour

Merci pour tes réponses Marot_r.

J'avoue que ta première solution me laisse perplexe.
D'autant que j'ai vraiment besoin de modifier en dur le code de la requête et non de filtrer de manière dynamique les données sortie par cette requête.

---

Oui, oublie la, je n'avais pas toutes tes contraintes quand je l'ai écrite.

Citation:

---

(toujours cette manie d'imbriquer des requêtes...)

---

C'est une trés bonne idée, cela diminue la compléxité de chacun des éléments et cela rend les choses plus compréhensible généralement. Au prix de l'heure d'un informaticien, l'optimisation doit être faite pour les humains plus pour les machines !

Citation:

---

Par contre la deuxième est chafouine.

---

Non :-), elle utilise les particularités d'Access (d'aprés mes test, cela ne marche pas en Oracle) et de la logique c'est tout :-).

Citation:

---

J'ai juste un peu peur qu'elle me plombe le temps de traitement (surtout que nous avons des administrateurs qui ont réussit à rendre un dual core 2 Ghz sous XP aussi rapide qu'un céléron 200 Mhz sous vista :roll:).

---

Fait un essais avant de supposer. Tu mesure le temps d'execution avant, puis après et tu vois si c'est correct.

Citation:

---

Vu le nombre de réponse, il semble qu'il n'y ait pas de manière "propre" d'obtenir les valeurs des filtres par champ à partir de querydef.
Est-ce au moins possible d'obtenir la clause where de la requête sabs avoir à fair edu traitement texte sur la cha'ine SQL ? par exemple avec un truc équivalent à filter pour les recordset.

---

Si elle existe je ne la connais pas.

A+

Voici un exemple de code pour manier les requetes

Code:

---

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

Dim maBD As DAO.Database Dim strSQL As String Dim maReq1 As DAO.QueryDef Dim sNomRQ As String, nouveauNom As String     Set maBD = CurrentDb   'Constituer le nom de la nouvelle requete sNomRQ = "tmp_1"   strSQL = " SELECT ... je tape ma requete sql 1 ; "   ' supprimer la requete si elle existe If ExistQuery(sNomRQ) Then DoCmd.DeleteObject acQuery, sNomRQ   Set maReq1 = maBD.CreateQueryDef(sNomRQ, strSQL)   DoCmd.OpenQuery sNomRQ, acViewNormal, acReadOnly ...

---

je joins l'utilitaire :

Code:

---

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

Public Function ExistQuery(ByVal str As String) As Boolean On Error GoTo Err_ Dim qry As QueryDef   ExistQuery = False For Each qry In CurrentDb.QueryDefs If qry.Name = str Then ExistQuery = True Exit Function End If Next qry   exit_: Exit Function Err_: MsgBox Err.Description, vbCritical, "ERREUR dans ExistQuery" Resume exit_   End Function

---