Discussion :

[franckb74]

Bonjour,
J'ai un formulaire en affichage feuille de donnée et je souhaiterai pouvoir afficher tous les enregistrements en fonction du choix qui serait fait sur un champs en particulier lorsque l'on sélectionne un filtre.
Est-ce possible ?
L'état que je souhaite afficher se nomme : projet

Voici l'aperçu du form en feuille de donnée :


En vous remerciant pour votre aide :-)

[Didier L]

Bonjour,

Dans la propriété "Filter" de l'objet "Me" se trouve la condition "Where" correspondant à ton filtre.
Ensuite lorsque tu ouvre ou imprime ton état avec la procédure Docmd.Openreport tu peux passer cette clause "where" comme paramètre
Attention il faut que dans ton état (ou du moins dans la source de ton état) tu retrouve les mêmes champs que dans ton formulaire ,)

[franckb74]

Bonjour Didier,

Merci pour ta réponse.
Je ne suis pas assez expert en vba pour écrire la bonne synthaxe
Pourrais-tu me donner un exemple du code à rédiger ?

Merci à toi,
Franck

[Didier L]

Pas de soucis

Code :

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

1
2
3
Private Sub Commande2_Click()
    DoCmd.OpenReport "NomDeMonEtat", acViewPreview, , Me.Filter
End Sub

[franckb74]

Bonjour Didier,

Je te remercie pour cet exemple malheureusement l'état s'ouvre sans filtrer, il affiche tous les enregistrements :-(
Que doit-on modifier dans le code ?

Merci à toi,
Franck

[Didier L]

A la place de du code "OpenReport" teste ta condition "filter"

Code :

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

 msgbox me.filter

Et dis moi ce qu'il t'affiche ?

[franckb74]

Bonsoir,

Rien ne s'affiche :-(


ce formulaire est composé de 2 sous formulaires placé dans un contrôle à onglet
Le formulaire principal se nomme : F_RappelAction
Le sous-formulaire se nomme : F_RappelAction-AttenteRep

[Didier L]

je suppose que ton bouton est dans ton formulaire principal et que ton filtre lui est sur on sous formulaire

alors dans ce cas essaye la syntaxe suivante :

Code :

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

1
2
3
Private Sub Commande2_Click()
    DoCmd.OpenReport "NomDeMonEtat", acViewPreview, , [F_RappelAction-AttenteRep].Form.Filter
End Sub

[franckb74]

Géniallll ça marche tip top !!
Mille merci !

Très bonne journée à toi
Franck


Le bouton RESOLU n'apparaît pas :-(

[Didier L]

Normalement il est en bas à gauche de la fin de la discussion

[hgoss4]

Bonjour,

j'ai le même problème, un formulaire comportant un bouton qui ouvre un état lié à un sous formulaire.

Le code proposé a été complété afin de tester si un filtre est activé afin d'éviter une erreur "variable vide".

Lorsque j'exécute le code Access ne reconnait pas le "NomSousFormulaire.champs" .

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Private Sub Commande70_Click()
Dim Nom_Etat As String
Nom_Etat = ""
 
 
        If SUIVI_EQUIPEMENT_811.Visible = True Then
            Nom_Etat = "ETAT_SUIVI_EQUIPEMENT_811"
                If SUIVI_EQUIPEMENT_811.Form.FilterOn = True Then
                    DoCmd.OpenReport Nom_Etat, acViewPreview, , [SUIVI_EQUIPEMENT_811].Form.Filter
                 Else
                    DoCmd.OpenReport Nom_Etat, acViewPreview
                End If
        End If
 
         If SUIVI_EQUIPEMENT_98.Visible = True Then
            Nom_Etat = "ETAT_SUIVI_EQUIPEMENT_98"
                If SUIVI_EQUIPEMENT_98.Form.FilterOn = True Then
                    DoCmd.OpenReport Nom_Etat, acViewPreview, , [SUIVI_EQUIPEMENT_98].Form.Filter
                 Else
                    DoCmd.OpenReport Nom_Etat, acViewPreview
                End If
        End If
 
         If SUIVI_POSE_DEPOSE_811.Visible = True Then
            Nom_Etat = "ETAT_SUIVI_POSE_DEPOSE_811"
                If SUIVI_POSE_DEPOSE_811.Form.FilterOn = True Then
                    DoCmd.OpenReport Nom_Etat, acViewPreview, , [SUIVI_POSE_DEPOSE_811].Form.Filter
                 Else
                    DoCmd.OpenReport Nom_Etat, acViewPreview
                End If
        End If
 
         If SUIVI_POSE_DEPOSE_98.Visible = True Then
            Nom_Etat = "ETAT_SUIVI_POSE_DEPOSE_98"
                If SUIVI_POSE_DEPOSE_98.Form.FilterOn = True Then
                    DoCmd.OpenReport Nom_Etat, acViewPreview, , [SUIVI_POSE_DEPOSE_98].Form.Filter
                 Else
                    DoCmd.OpenReport Nom_Etat, acViewPreview
                End If
        End If
 
 
 
 If Nom_Etat = "" Then
    MsgBox ("Aucun formulaire ouvert")
 
 End If

par exemple , je filtre le champs "ATA" du sous formulaire SUIVI_POSE_DEPOSE_811, à l'éxécution :

Entrer une valeur de paramètre:
SUIVI_EQUIPEMENT_811.ATA

Comme à l'éxécution SQL lorsque les champs renseigner du select sont mal orthographié


Si quelqu'un a une réponse pouvant m'éclairer ..

Merci

(dsl réseau sécurisé pas possible d'envoyer de screen)

[madefemere]

Bonjour hgoss4,

Je dirais plutôt que le champ "ATA" n'est pas dans la source de l'état, c'est pour cela que ça lève une erreur de ce type.

Cordialement.

[hgoss4]

Solution trouvée !!

mauvais références dans la requête !!

Merci