ACCESS通用开发平台函数集

时　间:2013-01-31 13:00:10
作　者:小英   ID：23698  城市：河池
摘　要:Acchelp_StrDataIsExist 函数可用于判断某表中某个字段是否存在某个值(文本型)。
Acchelp_StrDataIsExist("表名称","字段名称","文本值")，如果返回值为True,则表示该表该字段中存在这个文本值，如果返回值为False,则表示不存在。

正　文:

1. CheckRecords 函数
功能：CheckRecords 函数可用于判断某表中是否存在记录。
语法：CheckRecords("表名称")，如果返回值为True,则表示该表有至少一条记录，如果返回值为False,则表示该表没有记录
示例：
我们假定有表 tbl销售明细
if CheckRecords("tbl销售明细")=True then
msgbox "该表存在记录"
else
msgbox "该表不存在记录"
endif

2. fExistTable 函数
功能：fExistTable 函数可用于判断当前数据库中是否存在某个表。
语法：fExistTable("表名称")，如果返回值为True,则表示该表存在，如果返回值为False,则表示该表不存在
示例：
if fExistTable("tbl销售明细")=True then
msgbox "该表存在"
else
msgbox "该表不存在"
endif

3. Acchelp_GetColumnName 函数
功能：Acchelp_GetColumnName 函数可用于获得表或查询中的字段名称，用分号隔开，用于组合框或列表框的行来源，组合框或列表框的行来源类型必须选择值列表。
语法：Acchelp_GetColumnName("表或者查询名称")
示例：
dim strSQL as string
strSQL = Acchelp_GetColumnName("tbl销售明细")
debug.print strSQL

4. Acchelp_StrDataIsExist 函数
功能：Acchelp_StrDataIsExist 函数可用于判断某表中某个字段是否存在某个值(文本型)。
语法：Acchelp_StrDataIsExist("表名称","字段名称","文本值")，如果返回值为True,则表示该表该字段中存在这个文本值，如果返回值为False,则表示不存在。
示例：
我们假定有表 sys_tblMenu
If Acchelp_StrDataIsExist("sys_tblMenu", "menuName", "菜单二") = True Then
MsgBox "sys_tblMenu表中menuID字段中存在菜单二"
else
MsgBox "sys_tblMenu表中menuID字段中不存在菜单二"
End If

5. Acchelp_NumDataIsExist 函数
功能：Acchelp_NumDataIsExist 函数可用于判断某表中某个字段是否存在某个值(数字型)。
语法：Acchelp_NumDataIsExist("表名称","字段名称",数值)，如果返回值为True,则表示该表该字段中存在这个文本值，如果返回值为False,则表示不存在。
示例：
我们假定有表 sys_tblMenu
If Acchelp_NumDataIsExist("sys_tblMenu", "menuID", 1) = True Then
MsgBox "sys_tblMenu表中menuID字段中存在1"
else
MsgBox "sys_tblMenu表中menuID字段中不存在1"
End If

6. Acchelp_FindNumRecord 函数(定位数字型)
功能：Acchelp_FindNumRecord 函数可用于定位某条记录。
语法：Acchelp_FindNumRecord (n)，比如n=3时，即可以定位3这条记录。
示例：
在修改窗体的关闭事件中写下列代码：
假定当前修改的ID变量是RecID,则
Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个ID要根据你子窗体中的实际字段名称而定
Acchelp_FindNumRecord (RecID)

7. Acchelp_FindStrRecord 函数(定位文本型)
功能：Acchelp_FindStrRecord 函数可用于定位某条记录。
语法：Acchelp_FindStrRecord (M)，比如M=H0003时，即可以定位H0003这条记录,M为文本型。
示例：
在修改窗体的关闭事件中写下列代码：
假定当前修改的ID变量是StrID,则
Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个ID要根据你子窗体中的实际字段名称而定
Acchelp_FindStrRecord (StrID)