Guten Tag
Folgende Prozedur gibt einen Fehler, wenn ich die Kombi-Felder leere um alle Datensätze anzuzeigen. Kann mir bitte jemand helfen.
Vielen Dank und freundliche Grüsse
Lukas
Private Sub LookupSuche()
Dim Monat As Long
Dim Jahr As Long
Dim strSQL As String
Jahr = Nz(Me!CBOJahr, 0)
Monat = Nz(Me!cboMonat, 0)
If Not Jahr = 0 Then
strSQL = strSQL & " AND Jahr = " & Jahr
End If
If Not Monat = 0 Then
strSQL = strSQL & " AND Monat = " & Monat
End If
If Not Len(strSQL) = 0 Then
strSQL = Mid(strSQL, 5)
Me!KassabuchUF.Form.Filter = strSQL
Me!KassabuchUF.Form.FilterOn = True
Else
Me!KassabuchUF.Filter = "" Fehlermeldung: Laufzeitfehler 438 Objekt unterstützt diese Eigenschaft oder Methode nicht
End If
End Sub