求助:录入窗体某字段值重复时(允许重复字段),如何判断并弹出提示

lingjiang

[:33] [:33]

linag516

chaojianan

10#代码学习了。

tz-chf

我的:
Private Sub 编号_AfterUpdate()
    Dim var As Variant
   
    If Not IsNull(Me.编号) Then
        var = DLookup("药名", "药品表", "编号='" & Me.编号 & "' and 药品ID<>" & Me.药品ID)
        If Not IsNull(var) Then
            MsgBox "此编号重复，不能保存记录！" & vbCrLf & vbCrLf & "重复的药名：" & var, vbExclamation, "请修改"
        End If
    End If

End Sub