Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
Option Compare Database Private Sub Command0_Click() DeleteDuplicateRecords End Sub Sub DeleteDuplicateRecords(strTableName As String) ' Deletes exact duplicates from the specified table. ' No user confirmation is required. Use with caution. Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim strSQL As String Dim varBookmark As Variant Set tdf = DBEngine(0)(0).TableDefs(strTableName) strSQL = "SELECT * FROM " & strTableName & " ORDER BY " ' Build a sort string to make sure duplicate records are ' adjacent. Can't sort on OLE or Memo fields,though. For Each fld In tdf.Fields If (fld.Type <> dbMemo) And (fld.Type <> dbLongBinary) Then strSQL = strSQL & fld.Name & ", " End If Next fld ' Remove the extra comma and space from the SQL strSQL = Left(strSQL, Len(strSQL) - 2) Set tdf = Nothing Set rst = CurrentDb.OpenRecordset(strSQL) Set rst2 = rst.Clone rst.MoveNext Do Until rst.EOF varBookmark = rst.Bookmark For Each fld In rst.Fields If fld.Value <> rst2.Fields(fld.Name).Value Then GoTo NextRecord End If Next fld rst.Delete GoTo SkipBookmark NextRecord: rst2.Bookmark = varBookmark SkipBookmark: rst.MoveNext Loop End Sub 'End Sub 'Alternate more flexible solution 'This final suggestion is the most flexible and accurate. Given any table, 'it generates a recordset of appropriate fields (excluding memo and binary image fields) and dynamically loops through the fields' collection to perform the recordset compare. ' 'In this example, two recordsets are used, one being a clone of the other. When a duplicate is found, it is deleted from the first recordset and the next record is examined. 'When it has determined that the records do not match, both recordsets are advanced. 'The code for this solution is shown below. Copy and paste it into an Access module and try it.
|How to make query not show results in table form go straight to report||4||22|
|Omit Values from a Combo Box in access||2||10|
|Convert Access formula to SQL||5||14|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!