Hallo,
ich habe in einer Tabelle A einen Datensatz, den ich in Tabelle B verschieben möchte.
Dann soll dieser DAtensatz in TAbelle A gelöscht werden.
Habe hier einen Code, aber es funktioniert trotzdem nicht. Es erscheint immer ein Fehler (siehe Anhang)
Ment_ID ist der Primärschlüssel aus der TabelleA, wo ich den Datensatz verschieben möchte.
Tabelle B hat halt den Primärschlüssel: Ex_ID
Wo kann der Fehler liegen?
Private Sub Ex_Mentor_Click()
On Error GoTo err_proc
Dim strSQL As String, lngID As Long
DoCmd.RunCommand acCmdSaveRecord
lngID = Me![Ment_ID]
strSQL = "Insert Into [tbl_exmentor] Select * From [tbl_mentor] Where tbl_mentor.Ment_ID=" & lngID
CurrentDb.Execute strSQL, 128
strSQL = "Delete * From [tbl_mentor] Where tbl_mentor.Ment_ID=" & lngID
CurrentDb.Execute strSQL, 128
MsgBox "Der Datensatz wurde in die Tabelle EX-Mentor verschoben"
end_proc:
Exit Sub
err_proc:
MsgBox Err.Description, , Err.Number
Resume end_proc
End Sub
Hallo,
ein solches Vorhaben ist für eine Datenbank kontraproduktiv und sollte vermieden werden. Es erhöht die Fehleranfälligkeit und den Wartungsaufwand für die DB.
Das Ja/Nein Feld als Kennzeichen zum Filtern reicht völlig aus und erfüllt den gleichen Zweck. Und eleganter und einfacher ist es auch noch.
siehe auch: >:(
http://www.ms-office-forum.net/forum/showthread.php?t=311788 (http://www.ms-office-forum.net/forum/showthread.php?t=311788)