Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
SELECT Table1.FieldA, Table1.FieldB, Table1.FieldC, Table1.FieldD, Table1.FieldE, Table1.FieldF, Table1.FieldG, Table1.FieldH, Table1.Dummy
FROM Table1
WHERE (((Table1.FieldA) In (SELECT [FieldA] FROM [Table1] As Tmp GROUP BY [FieldA],[FieldB],[FieldC],[FieldD],[FieldE],[FieldF],[FieldG],[FieldH]
HAVING Count(*)>1 And [red]([/red][FieldB] = [Table1].[FieldB] [red]or [FieldB] IS NULL)[/red] And [red]([/red][FieldC] = [Table1].[FieldC] [red]or[/red] [FieldC] IS NULL) And [red]([/red][FieldD] = [Table1].[FieldD] [red]or [FieldD] IS NULL)[/red] And [red]([/red][FieldE] = [Table1].[FieldE] [red]or [FieldE] IS NULL)[/red] And [red]([/red][FieldF] = [Table1].[FieldF] [red]or [FieldF] IS NULL)[/red] And [red]([/red][FieldG] = [Table1].[FieldG] [red]or [FieldG] IS NULL)[/red] And [red]([/red][FieldH] = [Table1].[FieldH] [red]or [FieldH] IS NULL)[/red])))
ORDER BY Table1.FieldA, Table1.FieldB, Table1.FieldC, Table1.FieldD, Table1.FieldE, Table1.FieldF, Table1.FieldG, Table1.FieldH;
Function DeleteDuplicates()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("qry_Duplicates")
Do Until rs.EOF
rs.MoveFirst
rs.delete
rs.Close
Set rs = Nothing
Set rs = db.OpenRecordset("qry_Duplicates")
Loop
End Function