Durch Ja/Nein Option datensatz in einer andere Tabelle verschieben

[nat_123]

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

[MzKlMu]

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