Duplikat
Kneisl
Gesendet: 09.09.15 08:24
Betreff: Duplikat


Member

Beitr├Ąge: 9

Hallo ich hab nen Code geschrieben der Duplikate aus einer von 2 Tabellen entfernen soll.

Gefunden werden die Duplikate aber nicht gelöscht. was ist da falsch? ich bitte um Hilfe.

Private Sub Anmeldeliloe_Click()
On Error GoTo Err_Anmeldeliloe_Click

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

rrsa.Edit
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
rrsa.Update

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
   
End Sub

 Das ist für euch sicher eine Kleinigkeit mir würde sehr helfen Dankeschön im Voraus.

Werner 

 

Top of the page Bottom of the page
  • Duplikat
  • Kneisl09.09.15 08:24
       └ RE: Duplikat PhilS09.09.15 09:28
          └ RE: Duplikat Kneisl09.09.15 16:04
             └ RE: Duplikat Lorenz09.09.15 16:56
                └ RE: Duplikat Kneisl09.09.15 17:10
                   └ RE: Duplikat Lorenz09.09.15 17:40
                      └ RE: Duplikat Kneisl10.09.15 15:50
                         └ RE: Duplikat Kneisl14.09.15 16:08
                         └ RE: Duplikat PeterDoering14.09.15 16:42
                            └ RE: Duplikat Kneisl14.09.15 16:58