One possible solution would be to create a query that lists the company name with all the grammatical characters removed. These are removed dynamically not physically.
First Create a function that the full name with passed to
Code:
Public Function StripDown(ComanyName As String) As Sting
Dim tmpString As String
tmpString = Replace(CompanyName," ","") ' remove spaces
tmpString = Replace(tmpString,".","") ' remove dots
tmpString = Replace(tmpString,"'","") ' remove apostrophes
tmpString = Replace(tmpString,",","") ' remove commas
'Repeat for any other characters to strip
StripDown = tmpString
End Function
Then in a new query create the column
Company:StripDown([CompanyName])
Add another column
Cnt:1
Group by Company
Count Cnt
Sort Cnt Descending
Filter Cnt>1
This will then display all the comany names without the offending characters giving a list of all duplicate names that appear more than once with the worst offender at the top.
David