OpenReport mit mehreren Conditions

[shinoda70]

Hallo und guten Morgen,

ich brauche mal wieder Eure Hilfe 

Kann ich in einem DoCmd.OpenReport zwei Conditions angeben?
Ich komme nicht auf den richtigen Code. Einzeln funktioniert beides. Zusammen nicht 

Einzeln mit "Filter" funktioniert

Code [Auswählen] Erweitern

Private Sub cmdEmailList_Click()

On Error GoTo Fehlerbehandlung

DoCmd.OpenReport "10_Bereitstellung", acViewPreview, IIf(Me.FilterOn, Me.Filter, Null), , acHidden
DoCmd.SendObject acSendReport, "10_Bereitstellung", acFormatPDF, , , , , , True
DoCmd.Close acReport, "10_Bereitstellung"

Ende:
    Exit Sub
Fehlerbehandlung:
    MsgBox "E-Mail abbruch" & vbCrLf & "zum verlassen best?tigen", vbInformation, "H?FELE - Werk Berlin"
    DoCmd.Close acReport, "10_Bereitstellung"
    Resume Ende
End Sub
.

Einzeln mit "SQL-Filter" funktioniert ebenfalls

Code [Auswählen] Erweitern

Private Sub cmdEmailList_Click()


On Error GoTo Fehlerbehandlung

DoCmd.OpenReport "10_Bereitstellung", acViewPreview, , "[10_Bereitstellung].Istaufwand Not Like '*'", acHidden
DoCmd.SendObject acSendReport, "10_Bereitstellung", acFormatPDF, , , , , , True
DoCmd.Close acReport, "10_Bereitstellung"

Ende:
    Exit Sub
Fehlerbehandlung:
    MsgBox "E-Mail abbruch" & vbCrLf & "zum verlassen best?tigen", vbInformation, "H?FELE - Werk Berlin"
    DoCmd.Close acReport, "10_Bereitstellung"
    Resume Ende

Zusammen mit dem "Filter" und dem  "SQL-Filter" fuktionieren nicht....wo ist der Fehler??

Code [Auswählen] Erweitern

Private Sub cmdEmailList_Click()


On Error GoTo Fehlerbehandlung


DoCmd.OpenReport "10_Bereitstellung", acViewPreview, , IIf(Me.FilterOn, Me.Filter, Null) And "[10_Bereitstellung].Istaufwand Not Like '*'", acHidden
DoCmd.SendObject acSendReport, "10_Bereitstellung", acFormatPDF, , , , , , True
DoCmd.Close acReport, "10_Bereitstellung"


Ende:
    Exit Sub
Fehlerbehandlung:
    MsgBox "E-Mail abbruch" & vbCrLf & "zum verlassen best?tigen", vbInformation, "H?FELE - Werk Berlin"
    DoCmd.Close acReport, "10_Bereitstellung"
    Resume Ende

End Sub
"Laufzeitfehler 13, Typen unverträglich" wird angezeigt.
Vielleicht hat jemand einen Tipp
Vielen Dank 

[DF6GL]

Hallo,

versuch es so:

Code [Auswählen] Erweitern

IIf(Me.FilterOn, Me.Filter & " And ", "") & "[10_Bereitstellung].Istaufwand Not Like '*'"

[shinoda70]

Guten Morgen Franz 

Es klappt und Du hast mich wieder einmal gerettet.
Vielen, vielen Dank 

Viele Grüße aus Berlin