|
Hallo,
ich komme bei unserer Datenbank nicht weiter...
Wir müssen eine Datenbank für einen Wildpark erstellen.
Dabei müssen wir etwas programmieren (eigentlich als Standartmodul) womit man einen Futterbestand vom Lager erhöhen bzw. verringern kann indem man auf den entsprechenden Button klickt. Dann erfolgt eine Abfrage nach der Menge, die entnommen werden soll bzw. dazu addiert werden soll.
Davor soll der Benutzer noch die Futterart im Formular ausgewählt haben.
Der Bestand soll dann in der Tabelle wie auch im Formular, aktualisiert werden.
Wir haben kaum Übung, vielleicht kann sich jemand mal den Code anschauen...
Folgende Punkte bekommen wir nicht hin:
1. In die SQL Abfrage bei WHERE soll der Bestand vom ausgewählten Futter ausgesucht werden. (Hier im Code habe ich für Testzwecke "=1" geschieben)
2. Der neue Bestand soll in der Tabelle aktualisiert werden.
3. Bei der Verringerung muss noch geprüft werden, ob überhaupt genug Futter im Bestand ist
(Hier der Code vom Entnahme-Button. Manche Sachen habe ich auskommentiert, es sind teilweise Ausdrücke die wir so in einem Beispielprogramm gesehen haben, aber nichts damit anfangen können)
Vielen vielen Dank für eure Hilfe!!!!!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | Private Sub Bestandminus_Click()
Dim dbs As DAO.Database
Dim str_SQL As String
Dim rst As DAO.Recordset
Dim int_Anzahl As Integer
Dim int_Bestand As String
Dim int_neuerBestand As Integer
On Error Resume Next
Set dbs = CurrentDb
int_Bestand = InputBox("Bestandminderung um:")
int_Anzahl = 0
str_SQL = vbNullString
Set rst = Nothing
str_SQL = "Select [wird gelagert].[Futterbestand] "
str_SQL = str_SQL & "From [wird gelagert] "
str_SQL = str_SQL & "Where [wird gelagert].[FutterID] = 1 "
Set rst = dbs.OpenRecordset(str_SQL)
int_neuerBestand = rst.Fields(0) - int_Bestand
MsgBox ("Der neue Bestand beträgt: " & int_neuerBestand)
str_SQL = "UPDATE [wird gelagert] "
str_SQL = str_SQL & "SET [wird gelagert].[Futterbestand] = int_neuerBestand "
str_SQL = str_SQL & "WHERE [wird gelagert].[FutterID] = 1 "
dbs.Execute str_SQL
End Sub
|
|