Member
Beiträge: 23
| Moin,
Ich benötige ein wenig Hilfe bitte ich übergebe Filter für einen Berich aber beim Datum komme ich nicht weiter. Der Filter wird zwar gesetzt aber er ist nicht wirksam, soll heißen der Bericht wird nicht gefiltert bei Datum alles andere funktioniert.
Hier mal die Funktion:
Private Sub Befehl6_Click()
Dim n As Integer
Dim strsql As String
If Not IsNull(Me.IDMaschine) Then
strsql = "IDMaschine =" & Me.IDMaschine
n = 1
End If
If Not IsNull(Me.cboart) Then
strsql = strsql & IIf(n = 1, " AND ", "") & "idart=" & Me.cboart
n = 1
End If
If IsDate(Me.datvon) Then
strsql = strsql & IIf(n = 1, " AND ", "") & "[Datum] >= #" & Replace(Me.datvon, ".", "/") & "#"
n = 1
End If
If IsDate(Me.datbis) Then
strsql = strsql & IIf(n = 1, " AND ", "") & "[Datum] <= #" & Replace(Me.datbis, ".", "/") & "#"
n = 1
End If
Wenn ich die Datums Eingrenzung in der abfrage, die die Daten liefert für den Bericht, mache funktioniert es. Ich möchte mir aber die Option offen halten die anderen Filter ohne Datum zu setzen.
Danke schon mal
Heinrich |
