I believe the way I found duplicates was with a query.
This site has some instructions on how to create a query to look for duplicates . . .
http://www.wikihow.com/Find-Duplicates-Easily-in-Microsoft-Access
I think you can write a query such that your code feeds a parameter into it - the title you are entering and want to see if it is already in there. There is a field titled 'criteria' in the query design window and in there you can ask is the new title already in the database.
Or this . .
http://www.everythingaccess.com/tutorials.asp?ID=Finding-duplicate-records-in-a-table
>>>
Finding Duplicates in an imported DBF
Importing a DBF file into Access is no problem, but if the DBF has been in service for any period, you might discover duplicates in the field which is supposed to be the primary key for referential lookups. If any record has a duplicate in this field, it can be very frustrating trying to make the field a Primary Key in Access, especially if there are thousands of records to search through. So how do you locate the duplicates?
If you know SQL or stumble across the Find Duplicates Query Wizard, the solution may be obvious. This Wizard actually uses different methods for different needs. The discussion here covers only one method, and works with version 1 (which doesn't have the Wizard).
Create a new query, and add the table you are working on.
Click the Totals button on the toolbar (upper case Sigma). A "Total" row will be added to the grid.
Drag your field into the grid, and in the Total row, select Group By.
Drag the same field into the grid a second time. For this second instance, select Count for the Total row, and enter ">1" in the Criteria row.
Run the query, to view the contents of offending records, and the number of duplicates you need to locate.
>>>
Or this :
http://bytes.com/topic/access/answers/673876-how-check-duplicate-records
>>>
Try this (substitue your names). DAO reference required.
Expand|Select|Wrap|Line Numbers
Private Sub txtNewData_BeforeUpdate(Cancel As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("MyDataTable", dbOpenSnapshot)
rs.FindFirst "txtDataField = """ & Me![txtNewData] & """"
If Not rs.NoMatch Then
Cancel = True
MsgBox "Duplicate Value"
End If
End Sub
>>>
(I've forgotten most of the VBA I once learned. . . .)
I think I told you I retired the other year? I'm sure I have copies of my old Access databases within which I know I had done some pretty 'strange' stuff . . . But at work we were using Access 2007 and now I'm reduced to Access 2000. (For my 'portfolio database'.) Should I see if I can set up a machine that can open and peruse my old databases?
Zim.
Mad Poet Strikes Again.
| 