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:
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
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 code ne fonctionne pas. J'ai essayé plusieurs codes mais j'en arrive toujours au même point.
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
Je vous remercie d'avance pour votre aide.![]()
Partager