This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.
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