Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!