Hallo liebes Team,
Ich hab eine Schulbuchdatembs. Ich habe aber nun ein Problem mit der VBA Programmierung bei der Ausleihe und Rückgabe
Hier der Code:
Private Sub txtBuch_AfterUpdate()
Dim lBuchID As Long
'muss zuerst ermittelt werden, da die ISBN nicht in der Tabelle "Ausleihen" enthalten ist
With Me
'Buch bestimmen
lBuchID = DLookup("BuchID", "Buecher", "ISBN='" & .txtBuch & "'")
'Verfahren nach Vorgangsart
Select Case .ogrVorgang
Case 1 'Ausleihe
.Recordset.AddNew
.BuchID_F = lBuchID
.txtDatumAus = Date 'nur Datum
'
Case 2 'Rückgabe
.Recordset.FindFirst "BuchID_F = " & lBuchID
'Damit wird Rückgabedatum gesetzt
.txtDatumEin = Date
End Select
'DS speichern
.Dirty = False
'Anzeige aktualisieren
.Requery
'Scanfeld leeren
.txtBuch = Null
'Scanfeld automatisch neuer scan
.txtBuch.SetFocus
End With
End Sub
Die Ausleihe bzw das einscannen der Bücher geht soweit hervorragend. Aber bei der Rückgabe kann ich eine andere ISBN scannen als die in der Ausleihliste zulesen ist. Das Bich wird aber trotzdem abgezogen und ist nicht mehr auf der Liste auffindbar. Zudem sollte doch erst das Datim
|