Benutzer mit den meisten Antworten
Access

Frage
-
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
Antworten
-
Hallo Lukas,
ein paar Zeilen vorher schreibst Du:
Me!KassabuchUF.Form.Filter = strSQL
Kann es daher sein, dass:
Me!KassabuchUF.Filter = ""
falsch ist und eigentlich:
Me!KassabuchUF.Form.Filter = ""
heißen sollte?
Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport- Als Antwort markiert Peter DoeringMVP, Moderator Freitag, 29. Mai 2020 21:42
Alle Antworten
-
Hallo Lukas,
ein paar Zeilen vorher schreibst Du:
Me!KassabuchUF.Form.Filter = strSQL
Kann es daher sein, dass:
Me!KassabuchUF.Filter = ""
falsch ist und eigentlich:
Me!KassabuchUF.Form.Filter = ""
heißen sollte?
Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport- Als Antwort markiert Peter DoeringMVP, Moderator Freitag, 29. Mai 2020 21:42