Filtern über VBA

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

ich möchte gern ein Bericht öffnen, der nach einem Wert, den ich vorher in eine InputBox eingebe, gefiltert ist. Eingegeben wird zum Beispiel August 2006. Danach sollen alle Datensätze ausgegeben werden, die den Versandtermin im August haben. Der versandtermin wird allerdingsin einer Abfrage im Format TT.MM.JJJJ gespeichert. ich lass das ganze über eine entsprechende Tabelle umwandeln. das funktioniert auch soweit. Allerding bekomm ich den Filterbefehl nicht hin. Kann mir bitte jemand weiter helfen?
Hier mein VBA- Code:

Private Sub Befehl38_Click()
Dim Datum As String
Dim db As Database
Dim kriterium As String
Dim Fert, rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset(„tbl_Datum“, dbOpenDynaset)
'Set Fert = db.OpenRecordset(„Abfr_Fertigungsreihenfolge“, dbOpenDynaset)

Do Until rs.EOF

rs.Delete
rs.MoveNext

Loop

Datum = InputBox(„Monat eingeben (Bsp.: August 2006)“)

rs.AddNew
rs!Datum = Datum
rs.Update

'rsMonat.FindFirst

Set rsMonat = db.OpenRecordset(„tbl_Monat“, dbOpenDynaset)

Do Until rsMonat.EOF

If Left(Datum, 3) = Left(rsMonat.Monat, 3) Then
ktiterium = rsMonat.Zahl
rsMonat.MoveNext
Else
rsMonat.MoveNext
End If
Loop
Set Fert = db.OpenRecordset(„Select Versandtermin From Abfr_Fertigungsreihenfolge Where Mid(Versandtermin,3,2) = kriterium“)
DoCmd.OpenReport „Rep_Fertigungsreihenfolge“, acViewPreview

End Sub

Viele Grüße von Beate

#2

Hallo.

Hier mein VBA- Code:

[UABLUBB] […codecodecode…] [/UABLUBB]

Wenn ich mich erfrechen darf, eine einfachere - und performantere - Lösung vorzuschlagen (als Skizze)?

Sub MachEtOtze()
Dim DeinDatum As Date
Dim SQLStmnt As String
InputBox "laberschwätz",DeinDatum 'das ist aber eigentlich Bäh
SQLStmnt="Month(TabellenDatumsFeld)=Month(DeinDatum)"
DoCmd.OpenReport "DeinReport",acViewPreview,,SQLStmnt
End Sub

In dieser Version wird natürlich jeder August, egal aus welchem Jahr, verwurstet. Soll ja auch nur eine Skizze sein …

BTW : Wenn Deine sechs SQL-Statements aus der vorigen Frage ähnlich strukturoren sind wie die Recordsetverarbeitung hier, versteige ich mich zu dem Versprechen, dass sie optimierbar sind. Wann kommz? :wink:

Gruß Eillicht zu Vensre

#3

Danke.

Der Rest ist schon gesendet.

Gruß, Beate

#4

Hallo,

Wenn ich mich erfrechen darf, eine einfachere - und
performantere - Lösung vorzuschlagen (als Skizze)?

Darfst du, aber es funktioniert leider nicht :frowning: Hast du vielleicht noch eine andre Lösung parat?

Gruß, Beate