No duplicate entries

[slyvsspy]

If I have someone entering in a bunch of entries through a form, how could I not allow them to enter duplicate records based on the first name and the last.

Thanks,

 

[jimbrooking]

Here's what I do in the form's BeforeUpdate event:

(ID is an Autonumber primary key of my People table)

If Nz(Dlookup("ID","tblPeople","FirstName = '" & Me.tbxFirstName _
& "' AND LastName = '" & Me.tbxLastName & "'"),0) = 0 then
MsgBox "Cannot save record with duplicate name",,"Save Cancelled"
Cancel = -1
Exit Sub
End If

HTH,
Jim