hallo,
Ich habe wieder ein Problem. Aus zwei miteinander verknüpften Tabelle wollte ich Datensatz endgültig löschen. Dabei habe ich ein Schaltflächen in eine Tabelle erstellt und Bei Klick habe ich VB code geschrieben. Löschen Funktioniert aber nicht nach meine Wünsch, da nur zufällige Datensatz geändert. was habe ich falsch geschrieben.
ich kopie die Quellecode hier, hoffe Jemande mir helfen kann.
Private Sub Land_löschen_Click()
Dim ws As Workspace
Dim db As Database
Dim land As Recordset, lama As Recordset
Dim landnr As Variant
Set ws = DBEngine.Workspaces(0)
Set db = ws.Databases(0)
Set land = db.OpenRecordset(„t_3_landdetail“)
'****Aktuell Datensatz zugewiesen********************
landnr = land![Land_nr]
'****Datensatz in f_3_maschine_land löschen**********
Set lama = db.OpenRecordset(„t_3_maschine_land“)
Do Until lama.EOF
If lama![Land_nr] = landnr Then lama.Delete
lama.MoveNext
Loop
lama.Close
'****Datensatz in f_3_landdetail löschen**************
land.Delete
End Sub
Zwei Tabelle t_3_landdetail und t_3_maschine_land,
die Schaltfläche in Tabelle t_3_Landdetail