Vba 即使不重复，也会弹出重复输入警告

我在MS Access条目表单中创建了VBA代码，以限制重复输入请求编号。 当我输入重复值时，它抛出警告。我的问题是，即使我输入唯一的警告，它也会不断抛出警告

Private Sub Request_Number_AfterUpdate()

Dim Request_Number As String
Dim Answer As Variant

Answer = DLookup("[Request Number]", "GSAPAssets", "[Request Number] ='" & Me.Request_Number & "'")

If Not IsNull(Answer) Then
    MsgBox "Req Number Already in use.", vbInformation, "Duplicate Details."
    Me.Request_Number = ""
    Cancel = True
    Me.Request_Number.SetFocus

Else:
End If

End Sub

---

您的代码还可以，我试过了，效果很好，对于gpassets表中不存在的值，它不会显示消息框，如果您需要任何其他帮助，请告诉我使用BeforeUpdate事件验证输入并使用

取消=True

。该表达式在AfterUpdate事件中不起任何作用。需要在每个代码模块的标题中有显式的

选项。^^^此选项和：。逐步检查代码并检查
Answer
的值。我已经遵循并将其更改为“更新前”，但仍然遇到相同的问题。它在复制时发出通知，但即使不复制，也会继续发出通知。