variable dans la clause from en sql

Bonjour à tous, je souhaite créer des requêtes en fonction de l'année choisit, c'est-à-dire :*

Code:

---

1 2 3 4 5 6 7 8

dim table1 as string dim table2 as string table1 = archive table2= client ' si forms!menu!annee = à l'année actuelle alors 'utiliser la variable table2 dans les requetes 'sinon 'utiliser la variable table1

---

j' ignore comment m'y prendre, sachant que les tables on les même nom de champs.

Merci de bien vouloir m'aider

Bonjour,

Bon vieux sujet : l'archivage des données anciennes :D

Peux tu préciser ce que tu veux faire de ces requêtes ?
S'il s'agit, par exemple, d'afficher les données dans un formulaire, tu peux, au chargement (Form_Load) ou au clic d'un bouton bascule entre données actives/archivées, changer la source du formulaire :

Code:

---

1 2 3 4 5 6 7

Private Sub AfficherArchives_Click() If AfficherArchives Then Me.RecordSource = RequeteArchive else Me.RecordSource = RequeteActifs End If

---

Sinon, si c'est juste pour ds calculs, tu peux juste créer 2 requêtes séparées ???

Oui c'est pour travailler sur des formulaires et des états, mais aussi pour faire des calculs mais je voudrais justement éviter d'encombrer ma base en créant 2 fois les même requête (bien évidemment il y a que la clause from qui change )

Bonjour,
Je te propose ce code (à utiliser avec précaution quand même) qui modifie dans ta base le texte SQL de tes requêtes et tes états et formulaires contenant des requêtes. Tu peux donc modifier une ou plusieurs requêtes selon tes besoins.
Tu as 3 paramètres à renseigner : le nom de la table à remplacer, le nom de la nouvelle table et en option le nom de la requête ou une partie du nom, ou rien, dans ce cas la fonction modifie tous les objets.

Attention : le remplacement étant définitif il vaut peut être mieux relancer la fonction pour remettre l'ancienne valeur à la fermeture du formulaire, de l'état ou mieux, à l'ouverture de la base.

Code:

---

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

Function ChangeTable(pAncienneTable As String, pNouvelleTable As String, Optional pNomRequete As String) Dim Qry As DAO.QueryDef   pNomRequete = pNomRequete & "*"   For Each Qry In CurrentDb.QueryDefs If Qry.Name Like pNomRequete Then If InStr(1, Qry.SQL, pAncienneTable) Then Qry.SQL = Replace(Qry.SQL, pAncienneTable, pNouvelleTable) ' Debug.Print Qry.Name & ", type " & Qry.Type & " modifiée " End If End If Next   End Function

---

Bonjour,

Très bonne réponse de tee_grandbois, pour changer le contenu de la requête.
Dans la même lignée, tu peux aussi n'enregistrer aucune requête et n'utiliser que le texte SQL que tu modifies à la volée en VBA, que tu affectes directement aux formulaires/états et/ou que tu exécutes avec Docmd.RunSQL pour les calculs.

Ceci dit, je ferai quand même 2 remarques d'ordre général :
- une requête ne 'pèse' presque rien dans un fichier access : juste les quelques octets du texte SQL. On trouve facilement plusieurs centaines de requêtes dans une application moyennement complexe.
- à l'inverse, une requête modifiée par du VBA (à noter dans les commentaires de la requête ?) est moins évidente à détecter, lorsque ton projet tourne depuis des mois et qu'il faut revenir dessus pour des modifications ou des compléments. Pire si quelqu'un d'autre doit comprendre le fonctionnement et le modifier.
Je suis convaincu, ce qui n'engage que moi, qu'il faut privilégier la clarté sur les octets, aujourd'hui négligeables.