Bonjour à tous,

Je ne suis pas une grosse bete en développement, et aurai donc besoin de vos lumières en vba sur ACCESS...

Dans un premier formulaire, l'utilisateur sélectionne (par checkbox) les filtres qu'il veut utiliser, et précise leur valeur dans un textbox associé.

lorsqu'il appuie sur un bouton, ca lance un datalist.
Le but est, vous l'avez bien compris, de renseigner le rowsource du datalist en fonction des filtres sélectionnés, s'il y en a!

J'ai essayé de créer un tableau avec une boucle "FOR"... mais je ne m'en sors pas! Je me vois faire des "IF" partout pour savoir quel filtre et combien sont sélectionnés! (bah oui, je sais... dsl)

En vous remerciant tous d'avance pour l'aide apportée.....

S.L.B.

Salut, et merci de répondre.

(En effet, excuse, j'ai l'aissé le message un peu rapidement, pris par le temps)

En fait, oui, j'ai une base de donnée sur laquelle je fais une requete (code vba) afin d'afficher les données dans un datalist. J'ai bien pensé à la requete paramétrée, mais si le paramètre n'est pas ou mal renseigné, la requete va planter.

C'est pourquoi je suis parti dans un mélange de boucles FOR et IF pour essayer de gérer tout ca....mais ca devient très vite une usine à gaz! (et c'est franchement pas très beau à voir!!!!)

Je me dis donc que je pars dans une mauvaise voie, et il me semble qu'il faut carrément que je change de méthode!

principe :
5 filtres facultatifs, on clique sur le bouton, et le datalist s'alimente comme désiré.

comment feriez vous ca?.... peut être en utilisant un autre controle?

Merci encore pour tous vos commentaires...

Salut,
t' as raison de dire que c' est très duffucile à gérer.
Cependant c' est pas très difficile.Le tout est d' être
en bon terme avec la logique.
-J' ai 5 CheckBox par les quels je veux savoir si le filtre associé doit être pris ou pas en charge.
 
Prenons l' exemple de trois filtres:
If Check1 Then
   xFiltre1=TextBox1.Texte
Else
  xFiltre1=""
End If

If Check2 Then
   xFiltre2=TextBox2.Texte
Else
  xFiltre2=""
End If

If Check3 Then
   xFiltre3=TextBox3.Texte
Else
  xFiltre3=""
End If

Vient ensuite ma requete, qui de toute façon sera de la forme:

sQuery="SELECT * FROM MATABLE"

Ensuite je dois savoir si des critère ou pas.
Le problère ici est de savoir s' il y' aura un WHERE au début et surtout à quel niveau.Et s' il y' aura oui ou non un ou plusieurs AND.

Pour ça je dois impérativement passer par des tests.Voir des tests imbriqués.

If xFiltre1<>"" Or xFiltre2<>"" Or xFiltre3<>"" Then
    'là je sais que j' ai au moins un filtre.
    'Le ou lesquels ?
    If xFiltre1<>"" Then
        sQuery=sQuery & " WHERE chp1=" & xFiltre1
        If xFiltre2<>"" Then _
            sQuery=sQuery & " And chp2=" & xFiltre2
        If xFiltre3<>"" Then _
            sQuery=sQuery & " And chp3=" & xFiltre3
         
    Else
       If xFiltre2<>"" Then
           sQuery=sQuery & " WHERE chp2=" & xFiltre2
            If xFiltre3<>"" Then _
                sQuery=sQuery & " And chp3=" & xFiltre3
       Else
          If xFiltre3<>"" Then _
               sQuery=sQuery & " WHERE chp3=" & xFiltre3
        End If

End If
  
  C' est vrai que ça devient un peu plus compliqué avec 5 filtres ou plus, mais ça te donnes au moins une idée du comment procèder.
  

[] Ce qui va sans dire. va mieux en le disant.

[] Ce qui va sans dire. va mieux en le disant.

Milles merci pour ton message...

En effet, en  reprennant ca en début de semaine, cela parait bien moins tordu! hi!

C'est même plutot simple!!

Encore merci pour ton aide!

...j'ai encore un ptit hic....
tout se passe plutot bien, sauf qu'au moment de s'afficher, le datalist me demande de préciser le paramètre du filtre renseigné!
ci-dessous le code pour 7 filtres:

If Form_Général.checkmois Then
   xfiltre2 = Form_Général.listmois.value
Else
  xfiltre2 = ""
End If

If Form_Général.checkresp Then
   xfiltre3 = Form_Général.listresp.value
Else
  xfiltre3 = ""
End If

If Form_Général.checkcli Then
   xfiltre4 = Form_Général.txtcli.value
Else
  xfiltre4 = ""
End If

If Form_Général.checkplan Then
   xfiltre5 = Form_Général.txtplan.value
Else
  xfiltre5 = ""
End If

If Form_Général.checkactiv Then
   xfiltre6 = Form_Général.txtactiv.value
Else
  xfiltre6 = ""
End If

If Form_Général.checkra Then
   xfiltre7 = Form_Général.txtra.value
Else
  xfiltre7 = ""
End If

req1 = "SELECT * FROM [stock kam+]"

If xfiltre1 <> "" Or xfiltre2 <> "" Or xfiltre3 <> "" Or xfiltre4 <> "" Or xfiltre5 <> "" Or xfiltre6 <> "" Or xfiltre7 <> "" Then
    If xfiltre1 <> "" Then
        req1 = req1 & " WHERE Année=" & xfiltre1
        If xfiltre2 <> "" Then _
            req1 = req1 & " And mid(Date_pass_exe,4,2)=" & xfiltre2
        If xfiltre3 <> "" Then _
            req1 = req1 & " And Resp_plan=" & xfiltre3
        If xfiltre4 <> "" Then _
            req1 = req1 & " And Num_client=" & xfiltre4
        If xfiltre5 <> "" Then _
            req1 = req1 & " And Num_plan=" & xfiltre5
        If xfiltre6 <> "" Then _
            req1 = req1 & " And Num_Activite=" & xfiltre6
        If xfiltre7 <> "" Then _
            req1 = req1 & " And Num_RA=" & xfiltre7

        Else
            If xfiltre2 <> "" Then
                req1 = req1 & " Where mid(Date_pass_exe,4,2)=" & xfiltre2
            If xfiltre3 <> "" Then _
                req1 = req1 & " And Resp_plan=" & xfiltre3
            If xfiltre4 <> "" Then _
                req1 = req1 & " And Num_client=" & xfiltre4
            If xfiltre5 <> "" Then _
                req1 = req1 & " And Num_plan=" & xfiltre5
            If xfiltre6 <> "" Then _
                req1 = req1 & " And Num_Activite=" & xfiltre6
            If xfiltre7 <> "" Then _
                req1 = req1 & " And Num_RA=" & xfiltre7
            Else
                If xfiltre3 <> "" Then
                    req1 = req1 & " Where Resp_plan=" & xfiltre3
                If xfiltre4 <> "" Then _
                    req1 = req1 & " And Num_client=" & xfiltre4
                If xfiltre5 <> "" Then _
                    req1 = req1 & " And Num_plan=" & xfiltre5
                If xfiltre6 <> "" Then _
                    req1 = req1 & " And Num_Activite=" & xfiltre6
                If xfiltre7 <> "" Then _
                    req1 = req1 & " And Num_RA=" & xfiltre7
                Else
                    If xfiltre4 <> "" Then
                        req1 = req1 & " Where Num_client=" & xfiltre4
                    If xfiltre5 <> "" Then _
                        req1 = req1 & " And Num_plan=" & xfiltre5
                    If xfiltre6 <> "" Then _
                        req1 = req1 & " And Num_Activite=" & xfiltre6
                    If xfiltre7 <> "" Then _
                        req1 = req1 & " And Num_RA=" & xfiltre7
                    Else
                        If xfiltre5 <> "" Then
                            req1 = req1 & " Where Num_plan=" & xfiltre5
                        If xfiltre6 <> "" Then _
                            req1 = req1 & " And Num_Activite=" & xfiltre6
                        If xfiltre7 <> "" Then _
                            req1 = req1 & " And Num_RA=" & xfiltre7
                        Else
                            If xfiltre6 <> "" Then
                                req1 = req1 & " Where Num_Activite=" & xfiltre6
                            If xfiltre7 <> "" Then _
                                req1 = req1 & " And Num_RA=" & xfiltre7
                            Else
                                If xfiltre7 <> "" Then
                                    req1 = req1 & " Where Num_RA=" & xfiltre7
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

List1.RowSource = req1
</code>

[] Ce qui va sans dire. va mieux en le disant.

c'est vrai, tu as raison!
... J'en ai pris note!
bye