none
Access RRS feed

  • 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


    Mittwoch, 27. Mai 2020 09:15

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

    Mittwoch, 27. Mai 2020 09:35
    Moderator

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

    Mittwoch, 27. Mai 2020 09:35
    Moderator
  • Hallo Stefan

    Vielen Dank für den Hinweis. Super habe ich vergessen. Es funktioniert.

    Ein schönes Pfingstwochenende

    Gruss

    Lukas

    Freitag, 29. Mai 2020 16:46