Discussion :

[meud007]

Bonjour,

Pour faire bref, je crée une base gérant les maintenances faites sur des appareil (sorte de MAO)

Pour un appareil, les maintenances sont classées par groupe (Maintenance informatique, calibration, etc) et chaque groupe contient plusieur taches

J'ai créé un formulaire basé sur une requête ReqAppareil (le formulaire et la requete portent le même nom) dans lequel j'ai mis un controle Multipage

Dans une de ces pages, j'ai mis deux sous formulaires en mode continu
- Le 1er (Formulaire et Requete: ReqGroupeTache) liste les groupes de maintenance, avec un bouton Filtre dans la partie Détail, et un bouton Tous dans l'entête.
- Le 2nd (Formulaire et Requete: ReqTache) liste les taches.

Le code associé au bouton Filtre est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Filtrer_Click()
 
    Dim o As Object
    For Each o In Form_ReqAppareil '.Controls
        If TypeName(o) = "SubForm" Then
            o.Form.Filter = "[GroupeTache]='" & GroupeTache & "'"
            o.Form.FilterOn = True
        End If
    Next
End Sub

Le code marche et permet de filtrer les deux sous formulaire avec la valeur du champs GroupeTache/


Le code associé au bouton Tous est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Tous_Click()
 
    Dim o As Object
    For Each o In Form_ReqAppareil '.Controls
        If TypeName(o) = "SubForm" Then
            o.Form.Filter = Empty
            o.Form.FilterOn = False
        End If
    Next
End Sub

Ce code ne marche pas et les formulaires restent filtré.

Si je le remplace par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Tous_Click()
 
    With Forms![ReqAppareil]![ReqGroupeTache].Form
        .Filter = Empty
        .FilterOn = False
    End With
    With Forms![ReqAppareil]![ReqTache].Form
        .Filter = Empty
        .FilterOn = False
    End With
End Sub

Seul 1 des deux formulaire est mis à jour, alors que je vois bien en mode débugage que les filtres sont supprimés.

Je ne comprend pas du tout.
Quelqu'un aurrait une astuce pour me faire avancer ?

Merci

[marot_r]

Je pense que le .filter=empty ne sert à rien du moment que tu mets le .FilterOn = false mais il ne devrait pas géner non plus.

Essaye d'ajouter

Code :

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

o.Form.Recalc

pour forcer un rafraissement de l'écran.

A+

[meud007]

Merci pour le coup de main.
J'ai déjà essayé les Refresh, Repaint, Recalc et Requery.
Rien n'y fait !!!
Tout ce passe comme si on ne pouvait pas supprimer le filtre de plus d'un sous formulaire.
Pour ne pas perdre de temps (j'ai du y passer plus de trois heures), j'ai changé de stratégie. Je ne filtre et défiltre que le formulaire de tache, sans toucher au formulaire de groupe, et je modifie un label (Caption et ForeColor) pour montrer qu'il est filtré.
Mais quand même, que de temps perdu pour une broutille !!!
Encore merci