根据重复值重置表单

Question

我有一个 Access 数据库，用户可以在其中输入唯一 ID。 数据库在更新之前检查该 ID 是否不存在。 数据库当前警告用户它之前已被使用过，但我想强制它清除数据并强制他们在警告后重新输入正确的值。 我似乎无法完成任何工作。

Private Sub 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
    
End Sub

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 = ""