Prevent duplicate based on two criteria

[arothacker]

Hello-

I have the following code to prevent duplicate entries in one of my fields:

Private Sub txtWWID_BeforeUpdate(Cancel As Integer)
If DCount("WWID", "Updated Headcount", "[WWID] = '" & Me.txtWWID & "'") > 0 Then
MsgBox ("This Value Already Exists! Please Enter New Value")
Cancel = True
End If
End Sub



I need the code to lookup to see if the value exists in the WWID column AND look in the field named "Number" for a value 1. If the value exists in the WWID field AND has a 1 in the Number field then the message box pops up to prevent the entry.

[June7]

Maybe:

If Not IsNull(DLookup("[WWID]", "[Updated Headcount]", "[WWID] = '" & Me.txtWWID & "' AND [Number]=1")) Then

[arothacker]

Hmm doesn't seem to work. I get an run error. Is there anyway to add on to the current code to add the AND statement in there?

[June7]

That's what I attempted - to expand the DLookup.

What is the exact error message?

I just noticed the space in "Updated Headcount", need to enclose in []. I corrected post.

Number is a reserved word. Should avoid reserved words as names.

[arothacker]

I actually got it figured out. I used:

If DCount("WWID", "Updated Headcount", "[WWID] = '" & Me.txtWWID & "' And [Number] > 0") > 0 Then

Thanks though!