Doppler automatisch Markieren

Public Function Kill_Duplikate()
   Dim dbs As Database
   Dim rst As Recordset

   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("BASIS_duplikate", dbOpenDynaset)  

   With rst
        If .RecordCount > 0 Then
            .MoveLast
            .MoveFirst
            
            Do While Not .EOF
               merken1 = !deinfeld
               .MoveNext
               If merken1 = !deinfeld Then 

                '.Delete 'gleich löschen  
                'oder  
                !Doppelt = true  'Datensatz markieren  
                .MoveNext
 
           Wend
        
        End If
        
   End With

   rst.Close

End Function

Public Function Kill_Duplikate()
   'Dimensionierung/Definition von Variablen  
   Dim dbs As Database
   Dim rst As Recordset
   Dim merken1

   'den Variablen Werte zuweisen  
   Set dbs = CurrentDb  'aktuell geöffnete Datenbank verwenden  
   Set rst = dbs.OpenRecordset("BASIS_duplikate", dbOpenDynaset) 'die Abfrage als Recordset verwenden  

   With rst     'der der Abfrage "Basis_duplikate" folgendes machen:  
        If .RecordCount > 0 Then   'prüfen ob überhaupt Duplikate vorhanden sind, wenn JA geht es weiter  

            'sicherstellen, dass alle Datensätze genutzt werden   
            .MoveLast    'zum letzten Datensatz springen   
            .MoveFirst   'zum ersten Datensatz springen   

            'die WHILE Schleife so lange durchlaufen, bis das Ende erreicht wird  
            While Not .EOF

               'in der Variable "merken1" der Feldinhalt des zu prüfenden Feldes eintragen = merken   
               merken1 = !deinfeld  'hier den Feldnamen eintragen der auf Dubletten verglichen werden soll  

               .MoveNext   'zum nächsten Datensatz wechseln  

               If merken1 = !deinfeld Then ' wenn der gemerkte Wert dem neuen Wert des Feldes entspricht, mache...  

                  '.Delete   'gleich löschen (nicht aktiviert) oder  

                  !Doppelt = Wahr  'Datensatz markieren (Feld muss an deine Gegebenheiten angepasst werden)  
                  'das Feld muss vom Typ Ja/Nein sein    
               
               End If  'Ende von IF merken1 = !deinfeld   

               .MoveNext 'zum nächsten Datensatz wechseln  

            Wend 'wieder nach oben, die While Schleife weiter ausführen   
        
        End If 'Ende von IF .RecordCount > 0  
        
   End With 'Ende der Verwendung von RST  

   rst.Close  'RST = Basis Abfrage schließen  

End Function