Hallo mal wieder,
ich habe erneut eine kleine Frage zu meiner Access 2007 Datenbank.
Ich habe ein Formular in dem ich meine Daten eingebe, durch drücken der Schaltfläche „speichern“ werden die Daten in einer Tabelle gespeichert.
Hier die Frage:
Gibt es in VBA eine Möglichkeit noch einen weiteren Befehl zu hinterlegen auf der Schaltfläche „speichern“ die nach dem speichern der Daten in der Tabelle das Formular schließt?
Bisheriger VBA Code hinter der Schaltfläche ist:
Private Sub addbtn_Click()
On Error GoTo Err_addbtn_Click
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset(„User“)
rs.AddNew
rs![Datum] = Me.input_Bewerbungsdatum
rs![Bewerber] = Me.input_Bewerber
rs![Wohnort] = Me.input_Wohnort
rs![Telefonnummer] = Me.input_Telefonnummer
rs![SV] = Me.input_SV
rs![SV] = Me.input_SV
rs![GB] = Me.input_GB
rs![Vormittags] = Me.input_V
rs![Nachmittags] = Me.input_N
rs![Ganztags] = Me.input_Ganztags
rs![PKW/Führerschein] = Me.input_PKW
rs![Bemerkung] = Me.input_bemerkung
rs.Update
Exit_addbtn_Click:
Exit Sub
Err_addbtn_Click:
MsgBox Err.Description
Resume Exit_addbtn_Click
End Sub
Vielen Lieben Dank für die bisherige Hilfe und hoffentlich auch hierbei.
Lieben Gruß
Caro
