Fehler im Vergleich

[Nico5]

Guten Tag liebe Access-Gemeinde,
vielleicht kann mir einer helfen. Ich versuche im Code einen Vergleich "kleiner als" einzubauen. Mein Ergebnis ist aber stets Null. Hier ist der Code:

Private Sub cmdAlle_Click()
    Me.FilterOn = False
    Me.txtFuttermenge = ""
End Sub

Private Sub cmdAnzeigen_Click()
    Me.Filter = "Futtermenge Like '*<=" & Me.txtFuttermenge & "*'"
    Me.FilterOn = True
End Sub



Der Fehler ist gewiss wieder Simpel... ich komme gerade aber nicht drauf. Wäre euch sehr dankbar

LG Nico

[MzKlMu]

Hallo,
was willst Du bei einem Zahlenvergleich mit Like und dem Joker (*). Das ist hier ziemlich sinnfrei.
Versuche es einfach mal so:

Code [Auswählen] Erweitern

Private Sub cmdAnzeigen_Click()
    Me.Filter = "Futtermenge <=" & Me.txtFuttermenge
    Me.FilterOn = True
End Sub
Zum leeren von Feldern nimmt man keinen Leerstring, sondern setzt das Feld auf Null. Außerdem sollte auch der Filterstring geleert werden.

Code [Auswählen] Erweitern

Private Sub cmdAlle_Click()
    Me.Filter = ""
    Me.FilterOn = False
    Me.txtFuttermenge = Null
End Sub

[Nico5]

Ja ich bin ein Wurm.... aber vielen Dank... jetzt klappt es ^^