Discussion :

[m1koo]

Bonjour à tous,

je développe une base de données Access de gestion des salariés pour une PME dans laquelle je suis en alternance. Le problème que je rencontre apparaît lorsque j'essaye de synchroniser le filtre de mon formulaire sur un Etat.
En effet mon formulaire se nomme "Formulaire Absences" et regroupe toutes les absences des salariés dans l'entreprise.
Je filtre les résultats en fonction de la date de début de chaque absence (le champs du formulaire est "Date de début", de même pour l'état), c'est à dire que l'utilisateur rentre une date (au format 00/00/0000;0;_) sur un champ indépendant "txtFiltrer". Cela permet de filtrer à partir de quelle date l'utilisateur veut que les dates d'absences apparaissent dans le formulaire. Ce champ est relié à un bouton nommé "cmdOK" ayant pour code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdOK_Click()
On Error Resume Next
 If Me.cmdOK.Caption = "Filtrer" Then
    Me.Filter = "[date début abs]>=#" & Format(Me.txtFiltrer, "mm/dd/yyyy") & "#"
    Me.FilterOn = True
    Me.cmdOK.Caption = "StopFiltre"
 Else
    Me.FilterOn = False
    Me.cmdOK.Caption = "Filtrer"
 End If
End Sub

Ce filtre fonctionne parfaitement. A partir de cela, j'ai créé un etat (avec les mêmes noms de champs que le formulaire) accessible depuis un bouton sur mon formulaire afin d'afficher un aperçu avant impression. Voici le code de ce bouton:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Impr_Click()
 
  Dim stDocName As String
 
  stDocName = "Etat Rech Abs"
  DoCmd.OpenReport stDocName, acPreview, , "[txtFilter]=#" & [Date début abs] & "#"
 
End Sub

Ce code ne fonctionne pas. J'ai essayé plusieurs codes mais j'en arrive toujours au même point.
Je vous remercie d'avance pour votre aide.

[RobiPMS]

Bonjour.
Peut-être ce code :

Code :

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

DoCmd.OpenReport stDocName, acPreview, , "[Date début abs]>=Forms![Formulaire Absences]![txtFiltrer]"

Cordialement.

[m1koo]

Super !
Merci pour ta réponse,
cela fonctionne. Seulement, le filtre sur l'état fonctionne même quand le bouton filtre est sur "Stopfiltre". Comment faire pour que le filtre sur Etat puisse prendre en paramètre l'activation ou non du bouton ?

[RobiPMS]

Bonjour.
Voici ce que tu pourrais mettre dans le code du bouton qui lance l'impression:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Impr_Click()
Dim stDocName As String
stDocName = "Etat Rech Abs"
If Me.FilterOn = True Then   'vérifie si le filtre est sur ON
DoCmd.OpenReport stDocName, acPreview, , "[Date début abs]>=Forms![Formulaire Absences]![txtFiltrer]"
Exit Sub
ElseIf Me.FilterOn = False Then
DoCmd.OpenReport stDocName, acPreview   ' impression de l'état sans filtre
Exit Sub
End If

Si tu ne veux pas imprimer quand le filtre est sur False, tu pourrais remplacer la commande d'ouverture de l'état par un message :

Code :

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

    MsgBox "Pour imprimer cet état, Vous devez d'abord introduire une date.... etc", vbInformation

Cordialement

Ps: Pense à marquer la discussion comme résolue si le problème est réglé. Merci.

[m1koo]

Impec !
Merci beaucoup RobiPMS tu me fais vraiment gagner un temps précieux.
Je met en Résolu.