Access 数据库中的唯一会员编号

Question

我在 Access 2010 中有一个数据库，其中第一个字段是唯一的会员编号。该字段设置为索引，没有重复。如果在输入表单上输入了重复项，则不会显示错误消息，并且在输入唯一编号之前没有其他操作。我需要在数字字段失去焦点时捕获错误的代码，以便消息框告诉用户问题，然后将焦点设置回数字字段或让用户取消所有输入。 这就是我所拥有的，它会导致数据类型错误

Private Sub Grumpy_No_BeforeUpdate(Cancel As Integer)  
    If DLookup(Str("[Grumpy_No]"), "Grumpy", Str("[Grumpy_No]") = Me!Str(Grumpy_No)) Then   
    MsgBox "Number has already been entered in the database."   
    Cancel = True  
    Me!Grumpy_No.Undo   
    End If   
End Sub

非常感谢任何关于我哪里出错的线索

Answer 1

在我看来，您正朝着正确的方向前进，但您需要修复您的 DLookup 表达式。它的第三个参数必须是单个字符串。我不明白为什么Str() 有用 --- 只是构建一个字符串。实际上我会使用DCount 而不是DLookup，但同样的问题仍然适用。

Private Sub Grumpy_No_BeforeUpdate(Cancel As Integer)  
    If DCount("[Grumpy_No]", "Grumpy", "[Grumpy_No] = " & Me!Grumpy_No.Value) > 0 Then   
        MsgBox "Number has already been entered in the database."   
        Cancel = True  
        'Me!Grumpy_No.Undo '<- consider allowing the user to see the value which failed
    End If   
End Sub

请注意，如果您可以将 Grumpy_No 设为自动编号主键，Access 将自动提供唯一值，因此您不需要自己的代码来检查这些值。