在将记录插入Access之前检查重复

Question

我有一个表单，我不希望用户能够输入具有相同名称的联系人。

窗体上有一个保存按钮。要检查重复的那个按钮的代码部分是： -

If Me.DataEntry = False Then 
Else 
    'Check for duplicate contact 
    If DCount("[ContactID]", "tblContactsNew", "[first_name] = " & "'" & Me.FIRST_NAME & "'" & "And [Surname] = " & "'" & Me.SURNAME & "'") <> 0 Then 
     MsgBox "A contact with these details already exists:-" & vbCrLf, vbOKOnly + vbExclamation 
     End 
    End If 
End If 

这是之前： -

DoCmd.RunCommand acCmdSaveRecord 

如果计数<> 0，则显示的消息。但是，如果我然后单击我的取消按钮，仍然为重复添加一条记录。

的取消按钮的代码是： -

If Me.Dirty Then 
Me.Undo 
End If 
DoCmd.Close acForm, Me.Name 

我怎样才能防止被写入重复记录？

Answer 1

我会将所有代码迁移到表单Form_BeforeUpdate事件。

在你保存按钮的代码，你唯一需要的是DoCmd.RunCommand acCmdSaveRecord

然后，在你Form_BeforeUpdate事件：

If Me.DataEntry = False Then 
    Cancel = True 'Don't save the form I guess 
Else 
    'Check for duplicate contact 
    If DCount("[ContactID]", "tblContactsNew", "[first_name] = " & "'" & Me.FIRST_NAME & "'" & "And [Surname] = " & "'" & Me.SURNAME & "'") <> 0 Then 
     MsgBox "A contact with these details already exists:-" & vbCrLf, vbOKOnly + vbExclamation 
     Cancel = True 'Cancel the update 
     End Sub 
    End If 
End If 

您可以添加一个全球性的形式，其设置为True你取消按钮，不保存，如果它是True