Buenas, te paso ejemplo echo en data con base de datos enlazada , tabla "Agentes",campos "Nombre",Apellidos,"Telefono"
'
Private Sub Command1_Click()
Dim var As String ' variable para capturar el campo a verificar
Dim cont As Integer ' contador de borrados
Data1.RecordSource = "Select * from Agentes order by Telefono" ' ordenamos por el campo a buscar
Data1.Refresh
If MsgBox("¿seguro que quieres borrar los duplicados?", vbOKCancel, "Borrar Duplicados") = vbCancel Then Exit Sub ' pedimos la confirmacion
Open App.Path & "\Duplicados.txt" For Output As 1 ' abrimos un archivo para gravar el registro borrado
With Data1.Recordset
Do While Not .EOF
var = !telefono ' capturo campo
.MoveNext ' me muevo 1 registro hacia delante
If .EOF Then Exit Do ' si estoy al final de la tabla salgo del bucle
Do While var = !telefono ' entro en mientras el campo sea el mismo
cont = cont + 1 ' sumo al contador
Print #1, !Nombre, ";", !Apellidos, ";", !telefono ' imprimo en el archivo de texto
.Delete ' borro el registro
.MoveNext
If .EOF Then Exit Do
Loop
Loop
End With
Close 1
If cont > 0 Then MsgBox "Total Duplicados: " & cont ' si se borro algun registro, muestro la cantidad
End Sub
'
Saludos
