Ayuda con selección y eliminación de duplicados

Hazlo mejor desde VB, create un botón en un formulario, en el evento "al hacer clic, agrega este código (copia y pega):
'Declaración deVariables:
'------------------------
Dim CONS1 As Recordset, CONS2 As Recordset, TextSQL1 As String, TextSQL2 As String
Dim X As Single, i As Single
'Consulta 1: Registros que tienen valores repetidos y con A=0:
'-------------------------------------------------------------
TextSQL1 = "SELECT MIDI2004.I, Count(MIDI2004.I) AS CONTAR, Min(MIDI2004.A) AS MINIMO " _
        & "FROM MIDI2004 " _
        & "GROUP BY MIDI2004.I " _
        & "HAVING (((Count(MIDI2004.I))>=2));"
Set CONS1 = CurrentDb.OpenRecordset(TextSQL1)
'Cuenta los registros de la consulta 1:
'--------------------------------------
CONS1.MoveLast
X = CONS1.RecordCount
CONS1.MoveFirst
'Ciclo For: Elimina registros de la Cons1 restringido a campos de Cons2:
'-----------------------------------------------------------------------
For i = 1 To X
    TextSQL2 = "SELECT MIDI2004.I, MIDI2004.A FROM MIDI2004 " _
        & "WHERE (((MIDI2004.I)=" & CONS1!i & ") " _
        & "AND ((MIDI2004.A)=" & CONS1!MINIMO & "));"
    Set CONS2 = CurrentDb.OpenRecordset(TextSQL2)
    CONS2.Delete
    CONS1.MoveNext
Next i
'Mensaje a mostrar:
MsgBox "Se han eliminado correctamente " & X & " registros.", vbInformation, "ELIMINACION"
'Libera recursos del sistema:
Set CONS1 = Nothing
Set CONS2 = Nothing
Nota1: como no pusiste como se llamaba tu tabla, e llame "MIDI2004", por lo que sustitúyelo con el nombre de la tuya en todo el texto.
Nota2: Recuerda que siempre es mejor prevenir los problemas antes que solucionarlos, por lo que te recomiendo poner una restricción al ingreso.
SL2
POLORed

Hola, la macro no me funcionó da un error 3265.
La tabla es "paciente".
Se requiere seleccionar también el evento así:
evento        tipo_id         num_ide           ajuste
300             CC                11111              0*
300 CC 11111 6
300 CC 22222 0
9103 CC 22222 0
300             CC                33333              0*
300             CC                33333              6
300             CC                44444              0*
300 CC 44444 7
300 CC 55555 0
Se desea eliminar los marcados con *
Gracias.

Midi, más fácil, mandame tu mail y te envío una muestra con lo que necesitas...
SL2
POLORed

[email protected]