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