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
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
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??
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 :)
Hallo,
versuch es so:
IIf(Me.FilterOn, Me.Filter & " And ", "") & "[10_Bereitstellung].Istaufwand Not Like '*'"
Guten Morgen Franz :)
Es klappt und Du hast mich wieder einmal gerettet.
Vielen, vielen Dank :)
Viele Grüße aus Berlin