避免重复,判断表中某字段存在某值Acchelp_ValueIsExist函数

时　间:2009-07-13 12:14:27
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:避免重复,判断表中某字段存在某值Acchelp_ValueIsExist函数,仅适合ACCESS开发平台。
正　文:

一.函数名称: 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