Я создал код VBA в форме ввода MS Access, чтобы ограничить дублирование ввода номера запроса. Выдает предупреждение, когда я ввожу повторяющееся значение. Моя проблема в том, что он продолжает выдавать предупреждение, даже если я ввожу уникальное.
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