duplicate check for multiple fields

Correction:
This is probably not the only way to do it, but I would use a SQL statement
with a separate recordset to check for the existence of the data and use the
recordcount to determine whether to add the new record.

e.g.

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from TheTable where TheField = '"
& Me.txtName & "'")

If (rs.BOF And rs.EOF) Then ' Ensure the recordset is empty
' Insert the data (with add record or Append SQL statement)
End If
....



"Marvin" wrote:

This is probably not the only way to do it, but I would use a SQL statement
with a separate recordset to check for the existence of the data and use the
recordcount to determine whether to add the new record.

e.g.

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from TheTable where TheField = '"
& Me.txtName & "'")

If Not (rs.BOF And rs.EOF) Then
' Insert the data (with add record or Append SQL statement)
End If
...

"Dennis" wrote:

I have two fields on a form, First Name and Last Name. When the user clicks
ADD NEW, I want his data entered to be checked against existing data. If BOTH
fields match, he gets an error. Is there a clean way to do this using the

DoCmd.GoToRec,,,acNewRec

command? What would I need to use in conjunction with that command in order
to do what I want?

Thanks!