access开发教程第9章

来源:www.accessoft.com 点击数:22573 　 | 收藏 | 复制

时　间:2008-12-03 14:10:58
作　者:Access软件网编著 ID：11 城市：上海 QQ：3002789054
摘　要:第九章平台函数
正　文:

第九章平台函数
9.1 平台函数说明
        平台函数是指Access开发平台为了减轻开发难度，提高开发效率而开发的一系列实用、强大的自定义函数，我们在这里，只列举解释一些比较基础和一些比较常用的平台函数，并不包含全部的平台函数。
9.2 自增序号
    AccHelp_AutoID 自增序号函数
    功能： AccHelp_AutoID 函数可用于自动编号，例如：
B00001
B00002
B00003
……
    语法： AccHelp_AutoID(prefixion As String, IDlength As Integer, tblName As String, fldName As String)
prefixion 编码前缀 , 如果不需要前缀，可用 "" 代替，如 AccHelp_AutoID("",5," 表名称 "," 字段名称 ")
IDlength 编码位数
tblName 表名称
fldName 自增序号的字段名称
    示例：
    '假定我们有表 tbl 部门代码表，其中有字段 DepaID( 部门代码 )
    Debug.Print Call AccHelp_AutoID("D",2,"tbl 部门代码表 ","DepaID")
    '则产生的结果就是：
' D01
' D02
' D03
' ……
9.3 定位记录
    Acchelp_FindNumRecord 函数 ( 定位数字型 )
    功能： Acchelp_FindNumRecord 函数可用于定位某条记录。
    语法： Acchelp_FindNumRecord (n) ，比如 n=3 时，即可以定位 3 这条记录。
    示例：
    '在修改窗体的关闭事件中写下列代码：
    '假定当前修改的 ID 变量是 RecID, 则
    Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个 ID 要根据你子窗体中的实际字段名称而定
    Acchelp_FindNumRecord (RecID)
    Acchelp_FindStrRecord 函数 ( 定位文本型 )
    功能： Acchelp_FindStrRecord 函数可用于定位某条记录。
    语法： Acchelp_FindStrRecord (M) ，比如 M=H0003 时，即可以定位 H0003 这条记录 ,M 为文本型。
    示例：
    '在修改窗体的关闭事件中写下列代码：
    '假定当前修改的 ID 变量是 StrID, 则
    Forms!usysfrmMain!frmChild.Form.ID.SetFocus' 这个 ID 要根据你子窗体中的实际字段名称而定
    Acchelp_FindStrRecord (StrID)
9.4 获得字段的名称
Acchelp_GetColumnName 函数
功能： Acchelp_GetColumnName 函数可用于获得表或查询中的字段名称，用分号隔开，用于组合框或列表框的行来源，组合框或列表框的行来源类型必须选择值列表。
语法： Acchelp_GetColumnName(" 表或者查询名称 ")
示例：
Dim strSQL as string
strSQL = Acchelp_GetColumnName("tbl 销售明细 ")
Debug.Print strSQL
9.5 判断生日到期天数
功能： Acchelp_Birdays 函数获得离生日到期天数。
语法： Acchelp_Birdays( 出生日期 , 目标日期 )
示例：
    '假定某人的出生日期为 1989-2-1 , 目标日期为 2006-3-3
Dim x as Integer
Dim sDate as Date
Dim eDate as Date
sDate = # 2/1/1989 #
eDate =#3/3/2006#
x =Acchelp_Birdays(sDate,eDate)
Debug.Print x
9.6 获得年龄
Acchelp_ages 函数
功能： Acchelp_ages 函数获得年龄。
语法： Acchelp_ages( 出生日期 , 当前日期 )
示例：
    '假定某人的出生日期为 1989-2-1
Dim x as Integer
Dim sDate as Date
sDate = # 2/1/1989 #
x =Acchelp_Birdays(sDate,Date)
Debug.Print x
9.7 判断表是否存在
fExistTable 函数
功能： fExistTable 函数可用于判断当前数据库中是否存在某个表。
语法： fExistTable(" 表名称 ") ，如果返回值为 True, 则表示该表存在，如果返回值为 False, 则表示该表不存在。
示例：
If fExistTable("tbl 销售明细 ")=True Then
     Msgbox " 该表存在 "
    Else
     Msgbox " 该表不存在 "
End If
9.8 判断表中是否存在记录
功能： CheckRecords 函数可用于判断某表中是否存在记录。
语法： CheckRecords(" 表名称 ") ，如果返回值为 True, 则表示该表有至少一条记录，如果返回值为 False, 则表示该表没有记录。
示例：
    '我们假定有表 tbl 销售明细
If CheckRecords("tbl 销售明细 ")=True Then
     Msgbox " 该表存在记录 "
   Else
     Msgbox " 该表不存在记录 "
End If
9.9 删除记录
AccHelp_DeleteFldNumRow 函数（删除数字型）
功能： AccHelp_DeleteFldNumRow 函数根据某字段条件删除某表中某个字段符合条件 ( 必须是长整型数字 ) 的记录 , 一般用于根据序号来删除表中的一条记录，亦可删除满足条件的多条记录。
语法： AccHelp_DeleteFldNumRow(" 表名称 "," 条件字段名称 ", 数字型变量 )
示例：
    '下面的代码将删除表 tblSale 中字段 ID 中的值等于 100 的记录
    Call AccHelp_DeleteFldNumRow("tblSale", "ID", 100)
    AccHelp_DeleteFldStrRow 函数（删除文本型）
    功能： AccHelp_DeleteFldStrRow 函数根据某字段条件删除某表中某个字段符合条件 ( 必须是文本型 ) 的记录 , 一般用于根据文本来删除表中的一条记录，亦可删除满足条件的多条记录。
    语法： AccHelp_DeleteFldStrRow(" 表名称 "," 条件字段名称 ", 文本型变量 ) 。
示例：
    '下面的代码将删除表 tblSale 中字段 conID 中的值等于 S00005 的记录
    Call AccHelp_DeleteFldStrRow("tblSale", "conId", "S00005")
9.10 判断表中字段存在某值
功能： 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
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

相关索引：

上一节(2003版) 上一节(2007版) 上一节(2010版) 下一节(2003版) 下一节(2007\2010版)

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店

【打印此文】【关闭窗口】