Problem bei Löschen von Datensätzen

  • VB6

    Problem bei Löschen von Datensätzen

    Hallo zusammen,

    ich habe (vereinfacht gesehen) folgende Tabellen in einer Access 2000 mdb:


    tab_Mitarbeiter
    ---------------------
    ID
    Name
    Vorname
    Abteilungsnr



    tab_Abteilung
    ---------------------
    ID
    Abteilungsname


    Ich habe jetzt folgendes Recordset angelegt:

    Visual Basic-Quellcode

    1. Set Rs.ActiveConnection = Cn
    2. Rs.LockType = adLockOptimistic
    3. rsMitarbeiter.DataSource = "
    4. SELECT * FROM tab_Mitarbeiter, tab_Abteilung
    5. WHERE tab_Mitarbeiter.Abteilungsnr = tab_Abteilung.ID"
    6. Rs.open


    Soweit klappt alles ganz gut. Ich bekomme nur ein Problem wenn ich über:

    Visual Basic-Quellcode

    1. Dim Answer As VbMsgBoxResult
    3. Answer = MsgBox("Aktuellen Datensatz wirklich löschen?", _
    4. vbQuestion + vbYesNo, "Löschen?")
    6. If Answer = vbYes Then
    7. 'On Error Resume Next
    8. Rs.Delete
    9. Rs.MoveNext
    10. Rs.Update


    einen Datensatz löschen möchte:

    -der Datensatz wird zwar aus der Datenbank genommen, im Formular wird aber zunächst der eigentlich gelöschte Datensatz noch angezeigt

    -es wird neben dem Mitarbeiter auch die Abteilung, die für ihn gespeichert war, aus der Tabelle tab_Abteilung gelöscht!

    Kann mir da jemand weiterhelfen?

    Danke, Andi

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „andi25“ ()

Facebook
Telefonspende