Access 2010 尝试通过表单输入唯一记录答案

【问题标题】：Access 2010 Trying to Enter a unique record through FormAccess 2010 尝试通过表单输入唯一记录
【发布时间】：2012-07-06 08:02:20
【问题描述】：

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

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

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

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

感谢您的帮助！

【问题讨论】：

标签： forms ms-access ms-access-2010

【解决方案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

【讨论】：