Error in code to find duplicates

rbinder

rbinder
Local time
Today, 19:07
Joined
Aug 13, 2005
Messages
25
Greetings all,

I have the code below which is giving me grief as I have copied it from a previous usage and it worked fine. I have tried it in a beforeupdate and now as a seperate button on the form and it gives me the same error message; I have tried to put a save command in to save the record without any luck

the code is

If DCount("[Batch]", "tbl_Data_Wine_Batch", "[Batch]=" & Me.Batch) > 0 Then
Cancel = True
End If


The error message is
Run time error 2001
you cancelled the previous operation.

The problem comes up in the dcount expression.

Any help would be great as it is an important part of the project and we can move on once we have overcome this

rbinder
 
have you tried turning warnings off?
 

Users who are viewing this thread

Back
Top Bottom