Thema Datum  Von Nutzer Rating
Antwort
Rot Acces Bücher Ausleihe / Rückgabe
06.05.2022 02:23:06 Jakob
NotSolved

Ansicht des Beitrags:
Von:
Jakob
Datum:
06.05.2022 02:23:06
Views:
216
Rating: Antwort:
  Ja
Thema:
Acces Bücher Ausleihe / Rückgabe

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Acces Bücher Ausleihe / Rückgabe
06.05.2022 02:23:06 Jakob
NotSolved