We value your feedback.
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
|Trying to delete two linked tables from front-end||7||17|
|access to sql migration||5||26|
|Access table not showing correct column||6||25|
|Doing a Lookup to find the Values on one Table within a Cell of a second Table without an Exact Match||7||15|