Discussion :

[myriame]

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

Code :

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

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

[Papy Turbo]

Bonjour,

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

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 :

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

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 ???

[myriame]

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 )

[tee_grandbois]

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 :

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

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

[Papy Turbo]

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.