Access-o-Mania

Access-Forum => Bericht => Thema gestartet von: Sleider am April 06, 2022, 09:27:50

Titel: Bericht mit filter button
Beitrag von: Sleider am April 06, 2022, 09:27:50
Hallo liebe Community,
hab ein kleines Problem.
Ich habe in einen Bericht die Aufträge mit Auftragsdatum drinne.
Für meine Kollegen die sich nicht so sehr mit Access auskennen hab ich einen Button zum Filtern erstelt.
Funktioniert auch...wenn ich das richtige Datum eingebe.
Will ich aber alle sehen die im März sind und gebe zb März ein funktioniert es nicht.

vba code sieht so aus:

Option Compare Database
Private Sub Befehl1239_Click()
DoCmd.OpenReport "01 Auftragsformular", View:=acViewPreview
End Sub


Private Sub Befehl367_Click()
' für den ersten Button
    Dim x As String
    x = InputBox("Bitte Monat eingeben")
    Me.Filter = "[Aufträge.Auftrag vom]like'" & x & "'"
    Me.FilterOn = True
 
End Sub

Private Sub Befehl37_Click()

End Sub
Titel: Re: Bericht mit filter button
Beitrag von: MzKlMu am April 06, 2022, 11:01:06
Hallo,
das Vorhaben ist fragwürdig. Man legt in einem Bericht keine Buttons an, zumal diese in der Seitenansicht eines Berichts nicht funktionieren.
Zu diesem Zweck schaltet man ein Formular vor, in dem die Filter bestimmt werden und der Bericht wird gleich gefiltert geöffnet.

Auf den Monat filtert man so:
Me.Filter = "Month([Auftrag vom]) = " & x Wobei Du dann natürlich den entsprechenden Monat von jedem Jahr angezeigt bekommst.
Zum Monat gehört daher auch zwangläufig das Jahr hinzu.
Zitat von: undefinedFunktioniert auch...wenn ich das richtige Datum eingebe.
Zeige mal den Code dazu.

Wieso nennst Du einen Bericht eigentlich "01 Auftragsformular"?
Oder druckst Du gar das Formular ?