Report gefiltert öffnen

[sbambas]

Hallo zusammen, ich habe eine Bericht, welcher ich gefiltert öffnen möchte. Nun mein Code läuft aber der entsprechende Datensatz öffnet sich nicht.
Mein Code:

Private Sub tag_BeforeUpdate(Cancel As Integer)
Dim strFilter As String

If DCount("*", "tbl_fuehrung", "[fuherung]='" & Me!fuherung & "'") > 0 Then
If DCount("*", "tbl_fuehrung", "[zeit]='" & Me!zeit & "'") > 0 Then
If DCount("*", "tbl_fuehrung", "[tag]='" & Me!Tag & "'") > 0 Then
a = MsgBox("Die Führung ist bereits erfasst! Möchten Sie trotzdem eine neue Führung erfassen?!", vbYesNo, "Führung!")
If a = vbYes Then
Exit Sub
Else
erfassterTag = Me!Tag
erfassteZeit = Me!zeit
erfassteFuehrung = Me!fuherung
strFilter = "fuherung = '" & erfassteFuehrung & "' AND zeit = " & erfassteZeit & "' AND tag = " & erfassterTag

DoCmd.OpenForm "frmErfassen", acNormal, strFilter

End If
End If
End If
End If
End Sub

 

[Yaslaw]

item: ist das MS Access? Welche Version?

item: Ist dieser Code hinter dem Report oder hinter einem Formular?

item: Warum steht da openForm wenn du ein Report öffnen willst?

item: Bitte den Code formatiert in [code=vb]mein Code[/code] setzen.
So wie er jetzt da steht kann man das Ding kaum lesen

 

[sbambas]

Dieser Code ist hinter einem Formular. Access Frontend, SQL Beckend. Richtig es ist ein Formular und nicht ein Report.

 

[Yaslaw]

item: Bitte den Code formatiert in [code=vb]mein Code[/code] setzen.
So wie er jetzt da steht kann man das Ding kaum lesen

Das schreib ich nicht nur wegen mir.....

Nachtrag:
Schreib mal den Inhalt von strFilter mit debug.print in das Direktfenster um zu sehen wie dein Filter aussieht

debug.print strFilter