| |
Member
Beiträge: 9
| Hallo lorenz
ich habe jetzt einen einfachen weg gefunden denke ich.
Private Sub Anmeldeliloe_Click()
On Error GoTo Err_Anmeldeliloe_Click
Dim Warnung As String
Dim rrsb As DAO.Recordset
Dim rDBb As DAO.Database
Dim rrsa As DAO.Recordset
Dim rDBa As DAO.Database
Set rDBa = Application.CurrentDb
Set rrsa = rDBa.OpenRecordset("Anmeldung", dbOpenDynaset)
Set rDBb = Application.CurrentDb
Set rrsb = rDBa.OpenRecordset("Mitgliederdateitabelle", dbOpenDynaset)
rrsb.MoveFirst
Do
rrsa.MoveFirst
Do
If rrsb.Fields("Name") = rrsa.Fields("Namen") And rrsb.Fields("Vorname") = rrsa.Fields("Vorname") _
And rrsb.Fields("GebDat") = rrsa.Fields("Geburts_Dat") Then
Warnung = MsgBox(" Sie sind im Begriff " & " " & vbNewLine & " " & rrsa.Fields("Namen") & " " & _
" " & rrsa.Fields("Vorname") & " " & "geb." & " " & rrsa.Fields("Geburts_Dat") & vbNewLine & _
" aus der Anmeldeliste zu löschen." _
& vbNewLine & " " & _
vbNewLine & " Wenn sie Ja wählen wird diese Datensatz gelöscht." & vbNewLine _
& "wenn sie Nein wählen wird dieser Datensatz nicht gelöscht.", vbYesNo)
If Warnung = vbYes Then
rrsa.Delete
End If
End If
rrsa.MoveNext
Loop Until rrsa.EOF
rrsb.MoveNext
Loop Until rrsb.EOF
Set rrsa = Nothing
Set rDBa = Nothing
Set rrsb = Nothing
Set rDBb = Nothing
Exit_Anmeldeliloe_Click:
Exit Sub
Err_Anmeldeliloe_Click:
MsgBox Err.Description
Resume Exit_Anmeldeliloe_Click
Vielen Dank für die Tips
Werner | |
|
