Bericht filtert Zwischen 2 Datums Bereichen mit variable

[Frank77]

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 

Code [Auswählen] Erweitern

        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 

[bahasu]

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