Kombinationsfeld After Update

Computer: Software & Programmierung Microsoft Access
1

Hallo,
zu Dokumentationszwecken möchte ich den neuen bzw. geänderten Wert aus Kombinationsfeld in eine Tabelle schreiben:

Private Sub KombiMitarbeiterStatus_AfterUpdate()
On Error GoTo FehlerNeuzugang ’ Statusänderungen protokollieren
Dim db As Database
Dim rs As Recordset
Dim TempStatusFeld As String
TempStatusFeld = Me.KombiMitarbeiterStatus.Column(1)
Set db = CurrentDb()
Set rs = db.OpenRecordset(„tblMAProfil“)
rs.AddNew
rs(„ID“) = Me.ID
rs(„Aenderungsdatum“) = Date
rs(„Beschreibung“) = „Status auf " & „’“ & TempStatusFeld & „’“ & " gesetzt“
rs.Update
rs.Close
Me.ufrm_MAProfil.Requery
FehlerNeuzugang:
End Sub

Wenn in einem bereits bestehenden Datensatz der Status (Kombifeld) geändert wird, erscheint die Änderung wie gewünscht in der Tabelle „tblMAProfil“.
Bei Neuanlage eines Datensatzes hingegen wird der ausgewählte Kombifeldwert nicht in die Tabelle eingefügt.
Was mache ich falsch?

Herzlichen Dank für Eure Unterstützung.
Harald

2

Hallo,

zu Dokumentationszwecken möchte ich den neuen bzw. geänderten
Wert aus Kombinationsfeld in eine Tabelle schreiben:

:stuck_out_tongue:rivate Sub KombiMitarbeiterStatus_AfterUpdate()

Private Sub Form_AfterUpdate()
On Error GoTo FehlerNeuzugang ’ Statusänderungen
protokollieren
Dim db As DAO. Database
Dim rs As DAO. Recordset
Dim TempStatusFeld As String
TempStatusFeld = Me.KombiMitarbeiterStatus.Column(1)
Set db = CurrentDb()
Set rs = db.OpenRecordset(„tblMAProfil“, dbOpenDynaset )
rs.AddNew
rs(„ID“) = Me.ID
rs(„Aenderungsdatum“) = Date
rs(„Beschreibung“) = „Status auf " & „’“ & TempStatusFeld &
„’“ & " gesetzt“
rs.Update
rs.Close
set rs =Nothing
set DB=Nothing

Me.ufrm_MAProfil.Requery
FehlerNeuzugang:
On Error Goto 0
End Sub

Wenn in einem bereits bestehenden Datensatz der Status
(Kombifeld) geändert wird, erscheint die Änderung wie
gewünscht in der Tabelle „tblMAProfil“.
Bei Neuanlage eines Datensatzes hingegen wird der ausgewählte
Kombifeldwert nicht in die Tabelle eingefügt.
Was mache ich falsch?

vermutlich wird das Afterupdate-Ereignis des Kombis nicht ausgelöst. Benutz das Afterupdate-Ereignis des Forms. Änderungen siehe oben

Viele Grüße vom Bodensee
Franz, DF6GL

3

Hallo Franz,

es funktioniert.
Vielen Dank für Deine Unterstützung!

Schöne Grüße aus Hamburg
Harald