Discussion :

[nuFox]

Bonjour ...

Alors mon probleme est le suivant, je voudrais appliquer des filtres a un sous formulaire ... Voici le code qui me permet d'appliquer les filtres (en fonction du choix du Zone de liste)

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
 
Private Sub btnFiltrer_Click()
    Dim Value As Integer
 
    Me.NDF_SHOW_Item.Requery
    Value = Me.drlFiltre.ListIndex
 
    Select Case Value
        Case 0
            Me.[NDF_SHOW_Item].Form.FilterOn = False
        Case 1
            Me.[NDF_SHOW_Item].Form.Filter = "[NDF_DATE] = [Date de livraison]"
            Me.[NDF_SHOW_Item].Form.FilterOn = True
        Case 2
            Me.[NDF_SHOW_Item].Form.Filter = "[NDF_ORDER] = [Reference de la commande]"
            Me.[NDF_SHOW_Item].Form.FilterOn = True
        Case 3
            Me.[NDF_SHOW_Item].Form.Filter = "[NDF_CUST_NAME] = [Nom du client]"
            Me.[NDF_SHOW_Item].Form.FilterOn = True
        Case 4
            Me.[NDF_SHOW_Item].Form.Filter = "NDF_CLOSED = 0"
            Me.[NDF_SHOW_Item].Form.FilterOn = True
        Case Else
            MsgBox "Veuillez selectioner un critère de filtre."
    End Select
End Sub

Alors voila, mon probleme est que quand je filtre, il me redemande les parametres du filtre que j'ai appliqué juste avant ...

Je veux dire que la premiere fois que j'applique un filtre, ca se passe bien... Si je veux filtrer juste après, il va me reposer la question pour le premier filtre et ensuite pour le second ...

On a l'impression que c'est comme s'il gardait les filtres appliqués en mémoires et qu'a chaque fois que je fais un nouveau choix, il ré applique toute les filtres d'avant ... c'est vraiment suspect ...


J'espere que vous aurez compris mon probleme !

merci d'avance pour votre aide !

[nuFox]

Bon bah c'était tout con ... c'était a cause des différent Requery qui était effectué dans mon code VBa ...

A bientot pour une nouvelle question qui j'espere aura plus de réponses