|
Hallo zusammen,
ich hänge immer noch an einer Aufgabe fest.
Private Sub cmdAnzeigen_Click()
Dim intAuswahlFuttermenge As Integer
intAuswahlFuttermenge = Me.txtFuttermenge
If intAuswahlFuttermenge <= Me.Futtermenge Then
Me.cmdAnzeigen ("SELECT * FROM tblTier WHERE Futtermenge<=" & Me.txtFuttermenge) --> natürlich erhalte ich hier eine Fehlermeldung
End If
End Sub
Ich habe ein Textfeld (txtFuttermenge), dort wird eine Zahl eingetragen. Anhand dieser Zahl soll dann mit dem Button (cmdAnzeigen)
ein Datensatz ausgegeben werden, wobei alle Werte vom Feld Futtermenge (Me.Futtermenge) <= der Zahl angezeigt werden sollen.
Bin ich mit der Prozedur oben auf dem richtigen Weg oder ist es absoluter Unsinn???
Über Hilfe würde ich mich sehr freuen, da ich irgendwie bei dieser Aufgabe eine totale Blockade habe. Es ist die letzte Aufgabe von 9, die ich
noch lösen muss.
Vielen Dank in voraus....LG Irina
|