Discussion :

[CCEAU]

Salut,

Je voudrais faire l'union de plusieurs requêtes mais seulement avec les requêtes pour lesquelles la case est cochée dans le formulaire.

J'arrive à :
- créer une macro qui va ouvrir la requête1 seulement si la CaseRequete1 est cochée dans le formulaire.
- créer une macro qui va ouvrir la requête2 seulement si la CaseRequete2 est cochée dans le formulaire.

Mais je voudrais une macro qui ouvre:
- l'union de la requête1 et requête2 si requête1 et requête2 sont cochés dans mon formulaire
- seulement la requête1 si requête1 est coché
- seulement le requête2 si requête2 est coché
- rien si aucune case n'est cochée.

Il y aura au final 5 requêtes différentes qui pourront être cochées ou non et donc assemblées ou non.

Les requêtes ont bien toutes les mêmes champs.

Je connais peu le SQL et encore moins le VBA.

Merci pour votre aide précieuse!

[marot_r]

Bonjour.

Je connais peu le SQL et encore moins le VBA.

Une bonne occasion pour découvrir cet outil, le VBA, qui permet bien des choses.

À mettre "dans" le formulaire :

Je vais supposer qu'il existe déjà une requete [requeteUnion] dans ta BD et que tes requêtes s'appellent requête1 à requête5.

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
18
19
20
21
22
23
24
25
26
27
28
29
public function GererRequetteUnion
    dim cac as checkbox
    dim SQL as string
 
    dim i as long: for i=1 to 5
        set cac=me.controls("CaseRequete" & i)
 
        if cac then
           if sql <>"" then
              sql=sql & vbNewLine & " union all "
           end if
 
           sql=sql & "select [requête" & i & "].* from [requête" & i & "]"                 
       end if
 
    next i
 
    if sql<>"" then
           dim db as dao.database:set db=currentdb
           dim r as dao.querydef: set r=db.querydefs("requeteUnion")
           r.sql=sql
           set r=nothing
           set db=nothing
           call docmd.openquery("requeteUnion")
       else
           msgbox "Vous n'avez cocher aucune case.", vbinformation
    end if
 
end function

Dans l'événement de l'objet qui déclenche l'ouverture des requêtes mettre :

=GererRequetteUnion()

Désolé je manque de temps pour des explications détaillées mais si tu as des question n'hésite pas.

A+

[CCEAU]

Je comprends rien à tous ces codes mais j'ai réussi grâce à ce que tu m'as donné!

Merci beaucoup

(va falloir que je me mette au VBA!)