Hallo,
ich habe ein Formular mit Unterformular, die über ID’s verknüpft sind. Die Datenherkunft für das Unterformular:
Haupttabelle: tblMitarbeiter
- ID
…
Schlüsseltabelle: tblTempMAProfil
- TempProfilID (Autowert)
- ID (Zahl)
- ProfilID (Zahl)
Tabelle: tblMAProfil
- ProfilID (Autowert)
- Zeitraum (Text)
- Beschreibung (Text)
SELECT tblTempMAProfil.ID, tblTempMAProfil.ProfilID, tblMAProfil.Zeitraum,
tblMAProfil.Beschreibung FROM tblMAProfil INNER JOIN tblTempMAProfil
ON tblMAProfil.ProfilID = tblTempMAProfil.ProfilID;
In die Felder Zeitraum und Beschreibung werden Daten manuell erfasst.
Bis hier ist alles o.k.
Im Hauptformular wird über ein Kombinationsfeld der Mitarbeiterstatus zugeordnet. Ich möchte jetzt, wenn sich der Status verändert, diesen Vorgang in o.a. Tabelle: tblMAProfil unter Beschreibung dokumentieren und zwar wie folgt:
Nach Aktualisierung des Kombinationsfeldes soll folgender Vorgang ausgelöst werden:
Private Sub KombiMitarbeiterStatus_AfterUpdate()
Dim…
Dim TempStatusFeld As String
TempStatusFeld = Me.KombiMitarbeiterStatus.Column(1)
Set db = CurrentDB()
Set rs = db.OpenRecordset(„tblMAProfil“)
rs.AddNew
rs (“Zeitraum”) = Date()
rs („Beschreibung“) = TempStatusFeld
rs.Update
rs.Close
………
Mit dieser Prozedur werden zwar die Felder in die Tabelle tblMAProfil geschrieben, aber ohne Einbeziehung der Schlüsseltabelle tblTempMAProfil.
Was muss ich tun, damit auch die Schlüsseltabelle mit einbezogen wird
und somit die Verbindung zwischen den Tabellen funktioniert?
Für Eure Hilfe vielen Dank.
MfG Harald