"Der Datensatz kann nicht hinzugefügt oder geändert werden, da ein Datensatz in der Tabelle”PM_Titel” mit diesem Datensatz in Beziehung stehen muss."
hier das VB:
Private DB As Database
Private Rs As DAO.Recordset
Private Sub CommandButton1_Click()
Dim Name As String
Dim Vorname As String
Dim Adresse As String
Dim Tel As String
Name = Worksheets("Tabelle1").[B5]
Vorname = Worksheets("Tabelle1").[B6]
Adresse = Worksheets("Tabelle1").[B7]
Tel = Worksheets("Tabelle1").[B8]
'Die Datenbank wird nicht exklusiv, sondern im
'Mehrbenutzermodus geöffnet! Ein Passwort war nicht
'vergeben worden
Set DB = DBEngine.OpenDatabase("D:\Datensicherung\test.mdb")
'Jetzt wird die Tabelle Test geöffnet
Set Rs = DB.OpenRecordset("PM_Namen", dbOpenDynaset)
With Rs
.AddNew
.Fields(0).Value = 1
.Fields("Nachname").Value = Name
.Fields("Vorname").Value = Vorname
.Fields("Telefonnummer").Value = Tel
.Update
.MoveFirst
End With
MsgBox Rs.Fields("Nachname").Value
MsgBox Rs.Fields("Nachname")
'Wird die DB geschlossen, wird auch RS verworfen
Rs.Close
DB.Close
End Sub