Insert this code in a module
Option Compare Database
Option Explicit
Public Sub DelDups(tblName As String, fldName As String)
Dim db As DAO.Database, rs As DAO.Recordset, fldval As Variant, strSQL As String
strSQL = "SELECT " & fldName & " FROM " & tblName & " ORDER BY " & fldName & ";"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
If rs.RecordCount = 0 Then MsgBox "Table " & tblName & "is empty.": Exit Sub
Do
fldval = rs(fldName).Value
rs.MoveNext
If rs.EOF Then Exit Do
If rs(fldName).Value = fldval Then rs.Delete: rs.MoveNext
Loop While Not rs.EOF
rs.Requery
Set rs = Nothing
Set db = Nothing
End Sub
Run the code by typing this in the Immediate Pane:
DelDups "tblName", "fldName"