The revolutionary project management tool is here! Plan visually with a single glance and make sure your projects get done.
Option Compare Database Function DeleteDuplicates() Dim DeleteCount As Double ' Make this a Long if you really have that many records Dim temp Dim sql As String Dim rst As Recordset '' Change DESC to ASC to keep the older record '' Leave DESC to keep the newer record sql = "SELECT [tbl_GMNA Constraint Report Output].* FROM [tbl_GMNA Constraint Report Output] ORDER BY [tbl_GMNA Constraint Report Output].[Constraint Number] DESC" Set rst = CurrentDb.OpenRecordset(sql, dbOpenDynaset) If rst.EOF Then MsgBox "There are no records in this table!" Exit Function End If 'Stop rst.MoveFirst Do Until rst.EOF If temp = rst![Constraint Number] Then rst.Delete DeleteCount = DeleteCount + 1 Else temp = rst![Constraint Number] End If rst.MoveNext Loop Set rst = Nothing MsgBox "Found and deleted " & CStr(DeleteCount) & " records." End Function