函数： 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