[AC-2003] Filtre sur ouverture avec OpenForm [Résolu]

[Dutchou]

Bonjour à tous,

J'ai un formulaire contenant une succession de listes de critères à remplir et un second formulaire OUTILS (composé d'un détail d'enregistrement de la table OUTILS et d'un sous formulaire affichant entièrement celle ci) qui s'ouvre selon les critères rentrés précédemment.
Je souhaiterais via le premier formulaire, appliqué un filtre sur l'ouverture du formulaire OUTILS.

Code :

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
30
31
32
33
34
35
36
37
38
39
Private Sub bt_go_Click()
    Dim dbs As Database
    Dim selection As String
 
    'Test si l'user a choisi une catégorie pour le filtre
    If (IsNull(Me.lst_cat.Value) Or IsNull(Me.lst_metier.Value)) Then
        reponse = MsgBox("Voulez-vous visionner tous les outils?", vbYesNo)
        If reponse = vbYes Then
            MonFiltre = "SELECT * FROM OUTILS;"
        Else
            Exit Sub
        End If
    Else
        'Test si l'user a choisi une sous catégorie pour le filtre
        If IsNull(Me.lst_deux.Value) Then
            reponse = MsgBox("Voulez-vous faire le filtre sur toutes les sous categories?", vbYesNo)
            If reponse = vbYes Then
                selection = Me.lst_cat.Value
                MonFiltre = "SELECT * "
                MonFiltre = MonFiltre & "FROM OUTLS "
                MonFiltre = MonFiltre & "WHERE sous_categorie IN (SELECT numero "
                                         MonFiltre = MonFiltre & "FROM SOUS_CATEGORIE "
                                         MonFiltre = MonFiltre & "WHERE categorie = (SELECT numero "
                                                            MonFiltre = MonFiltre & "FROM CATEGORIE "
                                                            MonFiltre = MonFiltre & "WHERE designation = '" & selection & "'));"
            Else
                Exit Sub
            End If
        Else
            selection = Me.lst_deux.Value
            MonFiltre = "SELECT * "
            MonFiltre = MonFiltre & "FROM OUTILS "
            MonFiltre = MonFiltre & "WHERE sous_categorie = (SELECT numero "
                                    MonFiltre = MonFiltre & "FROM SOUS_CATEGORIE "
                                    MonFiltre = MonFiltre & "WHERE designation = '" & selection & "');"
        End If
    End If
    DoCmd.OpenForm "Frm_Outils", , MonFiltre
End Sub

Le Form_Load() du Frm_Outils est vide.

Problème : Le formulaire s'ouvre, le détail de table est vide et le sous formulaire affiche la table entièrement sans tenir compte du filtre.

Le sous formulaire doit-il avoir également un filtre sur l'ouverture?
Pourquoi le détail est vide?
Je suis perdu la....

[loufab]

Bonjour,

Il ne faut pas affecter un select dans un filtre, juste les conditions du where.
cf le F1 sur le docmd.openform et les articles connexes de Filter.

Cordialement,

[Dutchou]

Merci de ta réponse

J'ai appliqué la correction du filtre, le problème avance, le formulaire se remplit mais toujours aucune application du filtre sur les enregistrements...

[Dutchou]

Problème résolu, j'ai filtré sur le chargement du formulaire au lieu d'appliquer un filtre sur la "DoCmd.OpenForm".

Code :

1
2
3
4
5
6
7
8
Private Sub Form_Load()
    'Formulaire
    Me.Form.RecordSource = MonFiltre
    Me.Form.Requery
    'Sous formulaire
    sf_filtreOutil.Form.RecordSource = MonFiltre
    sf_filtreOutil.Form.Requery
End Sub