Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

UMV平台开发函数

时 间:2009-12-21 15:54:31
作 者:影子灬   ID:8218  城市:深圳
摘 要:UMV平台开发函数
正 文:

UMV平台开发函数

一、 自增序号
    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
二、 定位记录
    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)
三、 获得字段的名称
    Acchelp_GetColumnName 函数
    功能: Acchelp_GetColumnName 函数可用于获得表或查询中的字段名称,用分号隔开,用于组合框或列表框的行来源,组合框或列表框的行来源类型必须选择值列表。
    语法: Acchelp_GetColumnName(" 表或者查询名称 ")
    示例 :
Dim strSQL as string
strSQL = Acchelp_GetColumnName("tbl 销售明细 ")
Debug.Print strSQL
四、 判断生日到期天数
    功能: 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
五、 获得年龄
    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
六、 判断表是否存在
    fExistTable 函数
    功能: fExistTable 函数可用于判断当前数据库中是否存在某个表。
    语法: fExistTable(" 表名称 ") ,如果返回值为 True, 则表示该表存在,如果返回值为 False, 则表示该表不存在。
    示例:
If fExistTable("tbl 销售明细 ")=True Then
     Msgbox " 该表存在 "
    Else
     Msgbox " 该表不存在 "
End If
七、 判断表中是否存在记录
    功能: CheckRecords 函数可用于判断某表中是否存在记录。
    语法: CheckRecords(" 表名称 ") ,如果返回值为 True, 则表示该表有至少一条记录,如果返回值为 False, 则表示该表没有记录。
    示例:
    '我们假定有表 tbl 销售明细
If CheckRecords("tbl 销售明细 ")=True Then
     Msgbox " 该表存在记录 "
   Else
     Msgbox " 该表不存在记录 "
End If
八、 删除记录
    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")
九、 判断表中字段存在某值
    功能: 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



Access快速开发平台QQ群 (群号:321554481)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助