判断输入数据是否重复的函数(整理）

一、用Dlookup函数判断输入的数据是否重复

1）单条件

Private Sub 占用端口_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[用户ID]", _

        "用户资料", "[占用端口] ='" _

        & Me![ 占用端口] & "'"))) Then

         MsgBox "占用端口号输入重复，" & _

               "请核对后重新输入占用端口号", vbInformation, "警告"

        Me.Form.Undo    '删除新输入的内容vbCritical

        Exit Sub

    End If

End Sub

或（注：在声明中不能使用Option Explicit）

Private Sub占用端口_BeforeUpdate(Cancel As Integer)

    D = DLookup("占用端口", "网络交换机", "占用端口= '" & Me![ 占用端口] & "'")

    If IsNull(D) = False Then

        MsgBox "占用端口输入重复，" & _

               "请核对后重新输入占用端口", vbInformation, "警告"

        Me.Form.Undo    '删除新输入的内容vbCritical

        Exit Sub

    End If

End Sub

二、用Dlookup函数判断输入的数据是否重复

1）单条件

Private Sub 占用端口_BeforeUpdate(Cancel As Integer)

If DCount("占用端口", "用户资料", "占用端口='" & Me.占用端口 & "'") > 0 Then

       MsgBox "你输入的数据已经存在，请重新输入!", vbCritical, "警告"

        Cancel = True

        Me!占用端口.Undo '删除新输入的内容

        Exit Sub

    End If

End Sub

说明：

将Me.Form.Undo或Me!占用端口.Undo改为：

Cancel = True '全选有重复的内容：适用于编辑窗口