forms - Access 2010 尝试通过表单输入唯一记录

Question

我正在尝试为我的表单输入错误检查。我让用户输入姓名，如果他们尝试使用记录中已经存在的姓名，我想提示他们。

示例：Person 表有 3 条记录，其 FName 为：Jeff、Kyle、Darren。

如果在 Fname Box 中的添加人员表单上输入 Kyle，则更新后事件将通知用户此名称已被认领，并且该字段为空。就像 Greg 进入一样，不会出现任何通知。

我只是不知道如何将文本字段值与过滤查询列表中的值进行比较，而且 Google 搜索还有其他松散相关的链接。

谢谢你的帮助！

Answer 1

如果所有 fname 都必须是唯一的，请向表中添加唯一索引。这将防止输入重复项。表单错误属性将允许您提供自定义错误。

您还可以检查该名称是否存在于控件的更新前事件中。

在此示例中，控件和字段都称为 AText。通常，您应该重命名控件，使其与字段不同。

Private Sub AText_BeforeUpdate(Cancel As Integer)
Dim IsOk As Boolean

''One of the very few places where the .Text property is used
sLookUp = Me.AText.Text

IsOk = IsNull(DLookup("Atext", "Table1", "Atext='" & sLookUp & "'"))

If Not IsOk Then
    MsgBox "Found!"
    Cancel = True
End If
End Sub