Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.