在重复值访问时重置表单

Question

我有一个访问数据库，用户可以在其中输入唯一 ID。 数据库在更新之前检查该 ID 是否不存在。 数据库当前警告用户它之前已被使用过，但我想强制它清除数据并强制他们在警告后重新输入正确的值。 我似乎无法做任何事情。 任何帮助将不胜感激。

私有子KitID2_BeforeUpdate()

Dim varMasterCartonSKU As Variant
Dim strCriteria As String

strCriteria = "[KitID]='" & Forms!MainForm!KitID2.Value & "'"
Debug.Print strCriteria
varMasterCartonSKU = DLookup("KitID", "Used_KitID_Tbl", strCriteria)
If Not IsNull(varMasterCartonSKU) Then
    If MsgBox("This KitID has been used Before!", vbYesNo) = vbYes Then
        
    End If
Else

End If

结束子

Answer 1

去掉提示周围的 If 语句，因为听起来没有提交重复 ID 的选项。然后清除控件的值。 访问可能需要您在清除之前将焦点设置到控件上。

MsgBox("This KitID has been used Before!  Please enter a KitId that hasn't been used.", vbOKOnly)
Forms!MainForm!KitID2.Value = ""