Hallo
Ich habe da ein Problem mit dem folgenden Code ich bekomme das letzte And nicht zum Laufen da den Wert für die ArtID übergibt ich bekomme den Fehler Typ unverträglich wenn ich den Debugger öffne und über die Stelle fahre steht da "="" es ist aber ein wert in einem Kombinationsfeld enthalten
If IsDate(Me!TxtDatumbeginnVerwalt) And IsDate(Me!TxtDatumendeVerwalt) Then
DoCmd.OpenReport stDocName2, acViewPreview, , _
"BestellDatum >= " & Format$(Me!TxtDatumbeginnVerwalt, "\#yyyy\-mm\-dd\#") & " " & _
"AND BestellDatum <= " & Format$(Me!TxtDatumendeVerwalt, "\#yyyy\-mm\-dd\#") And "ArtID=" & Me!CboArtIDVerwalt.Column(0)
End if
Gruß Frank
N'abend,
vielleicht hilft:
If IsDate(Me!TxtDatumbeginnVerwalt) And IsDate(Me!TxtDatumendeVerwalt) Then
DoCmd.OpenReport stDocName2, acViewPreview, , _
"BestellDatum >= " & Format$(Me!TxtDatumbeginnVerwalt, "\#yyyy\-mm\-dd\#") & " " & _
"AND BestellDatum <= " & Format$(Me!TxtDatumendeVerwalt, "\#yyyy\-mm\-dd\#") & " And ArtID=" & Me!CboArtIDVerwalt.Column(0)
End if
Harald