一.函数名称: Acchelp_ValueIsExist

二.功能:

   判断一个表中某个字段中存在某个值,返回True表示存在，返回False表示不存在。

三.语法:

  Function Acchelp_ValueIsExist(tblName As String, fldName As String, myValue As String, valueType As Integer) As Boolean
'tblName 是指表的名称
'FldName 是指应用条件字段的名称
'myValue 是指字段中的值
'valueType 值类型 1-文本 2-数字 3-日期

四.示例:

  '我们假定有表 sys_tblMenu
   If Acchelp_ValueIsExist("sys_tblMenu", "menuID", 1,1) = True Then
        MsgBox "sys_tblMenu 表中 menuID 字段中存在 1"
     Else
        MsgBox "sys_tblMenu 表中 menuID 字段中不存在 1"
   End If