函数：
Public Function Acchelp_ValueIsExist(tblName As String, fldName As String, myValue As String, valueType As Integer) As Boolean
'功能：判断一个表中某个字段中存在某个值,返回True表示存在，返回False表示不存在
'说明：
'tblName 是指表的名称
'FldName 是指应用条件字段的名称
'myValue 是指字段中的值
'valueType 值类型 1-文本 2-数字 3-日期
'作者：张志(网名竹笛,微软最有价值专家)
'说明：您可以无偿地在您自已开发的软件中应用此函数，为了尊重作者的劳动，请保留这些说明信息。同时您不得用于盈利的商业用途，欢迎大家提出修改意见，并就此函数与作者交流

    On Error GoTo Err_Acchelp_ValueIsExist:
    Dim valValue As Double
    Dim dateValue As String
    Select Case valueType
    Case 1
        '文本型的值
        If Not IsNull(DLookup(fldName, tblName, fldName & "='" & myValue & "'")) Then
            Acchelp_ValueIsExist = True
        Else
            Acchelp_ValueIsExist = False
        End If
    Case 2
        '数字型的值
        valValue = Val(myValue)
        If Not IsNull(DLookup(fldName, tblName, fldName & "=" & valValue)) Then
            Acchelp_ValueIsExist = True
        Else
            Acchelp_ValueIsExist = False
        End If
    Case 3
        '日期型的值
        dateValue = "#" & myValue & "#"
        If Not IsNull(DLookup(fldName, tblName, fldName & "=" & dateValue)) Then
            Acchelp_ValueIsExist = True
        Else
            Acchelp_ValueIsExist = False
        End If
    End Select
Exit_Acchelp_ValueIsExist:
    Exit Function
Err_Acchelp_ValueIsExist:
    Acchelp_ValueIsExist = False
    Resume Exit_Acchelp_ValueIsExist
End Function

示例：
   
例如有客户代码表tblCodeClient，表中有字段客户名称ClientName(文本型)
If Acchelp_ValueIsExist("tblCodeClient", "ClientName", "北京环球国际贸易有限公司", 1) = True Then
        MsgBox "北京环球国际贸易有限公司已存在"
    Else
        MsgBox "北京环球国际贸易有限公司不存在"
End If

(责任编辑：admin)

• ·关于 Partition 函数在分组查询中的应
• ·Access算术运算符的含义和说明表
• ·mid函数的另类用法
• ·access制作程序运行进度框
• ·Function与Sub的异同（函数调用）
• ·Access判断某个数值是否为某个数据类型
• ·select case后面语句块的值的四种格式
• ·vba条件语句的两种表示方法
• ·Access几种数据类型初始化的值
• ·Access vba null与＂＂空字符串的区别
• ·access vba 数据类型表
• ·Access变量的命名规则
• ·Access中EXIT Sub与End Sub的区别
• ·Access vba中参数前关键字ByRef和ByVal
• ·Access列表框快速全选的技巧【最快】
• ·vba函数的数据类型强制转换