Look for duplicate PH Number, and delete

[The Idea Dude]

Hi all,

I am new to access

I have a table called Main Database

One of the fields in this table is Phone Number

I would like to know what code will seek and destroy Well, look for duplicates of a phone number and then delete these records leaving only one record with this phone number in it.

Thanks heaps

 

[FryerTuck]

Try this. It starts at the first line and compares a cell to the other cells in the column. If there is a match, the match row is deleted. Once through the first telephone number, it goes to the second and continues.

Sub ASD()
Dim Cntr1, Cntr2 As Integer
Cntr1 = 1
Do While Len(Range("A" & Cntr1 + 1)) > 0
For Cntr2 = Cntr1 + 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("A" & Cntr1) = Range("A" & Cntr2) Then
Rows(Cntr2).Delete
End If
Next
Cntr1 = Cntr1 + 1
Loop
End Sub

 

[The Idea Dude]

Is this code going to work for an access table?

Thanks

 

[bat17]

whilst it wont automaticaly deltete them for you the is a find duplicates Query Wizard that will find them for you. Part of the problem of course is which of the duplicate to delete!