Access - Eliminar registros unicos y dejar repetidos

Saludos Amigos: estoy iniciandome en el maravilloso mundo de la programacion. Estoy con un problemita q me gustaria me ayudasen. Deseo un programa para eliminar de una base de datos Access los registros unicos (que aparecen solo una vez) y dejar los que estan repetidos.
Mil gracias por su ayuda y estoy a la orden

te aviso que soy autogoogledidacta, así que haz copia de seguridad, y si quieres, prueba:

Prueba:

Dim rs As DAO.Recordset
dim rs2 as dao.recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM la tabla donde quieras borrar")

Do While Not rs.EOF

set rs2 = currentdb.openrecordset("select * from la misma tabal where elcampoid= " & rs!elcampoid

if rs2.recordcount=0 then

CurrentDb.Execute("delete * from latabla where elcampoid =" & rs!elcampoid

rs2.close
set rs2=nothing

end if

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

a ver si tienes suerte

chaú