code to refrain from duplicate entry

[richardplr]

Hi

Please help. I have create the below code in red but what is the mistake.

If DCount("[product_code]", "PRODUCT MASTERLIST", "[product code]"= " & Me.Product_code& "'") Then
MsgBox "This Product Code has already exists!!"
Cancel = True
Me.Undo
Exit Sub
Else 'Do nothing
End If

Thank you

 

[RuralGuy]

If DCount("[product_code]", "[PRODUCT MASTERLIST]", _
"[product code] = '" & Me.Product_code& "'") Then

 

[richardplr]

If DCount("[product_code]", "[PRODUCT MASTERLIST]", _
"[product code] = '" & Me.Product_code& "'") Then

Hi Thank you for your help but I still got error, Please see below whole coding


Private Sub Product_Code_BeforeUpdate(Cancel As Integer)
If DCount("[product_code]", "[PRODUCT MASTER LIST]", "[product code] = '" & Me.Product_code& "'") Then
MsgBox "This Product Code has already exists!!"
Cancel = True
Me.Undo
Exit Sub
Else 'Do nothing
End If
End Sub

 

[RuralGuy]

You didn't mention what error you are getting. Try this:

Private Sub Product_Code_BeforeUpdate(Cancel As Integer)
If DCount("[product_code]", _
   "[PRODUCT MASTER LIST]", _
   "[product_code] = '" & Me.Product_code & "'") Then
   MsgBox "This Product Code has already exists!!"
   Cancel = True
   Me.Undo
Else 'Do nothing
End If
End Sub

 

[richardplr]

You didn't mention what error you are getting. Try this:

Private Sub Product_Code_BeforeUpdate(Cancel As Integer)
If DCount("[product_code]", _
   "[PRODUCT MASTER LIST]", _
   "[product_code] = '" & Me.Product_code & "'") Then
   MsgBox "This Product Code has already exists!!"
   Cancel = True
   Me.Undo
Else 'Do nothing
End If
End Sub

Great work

Thanks.

 

[RuralGuy]

Glad I could help.