变速箱开发笔记概要
时 间:2012-09-08 21:13:36
作 者:七夜 ID:16896 城市:厦门
摘 要:变速箱开发笔记概要
正 文:
1、新增窗体步骤概述:
1、 定义rst变量为DAO数据类型;
2、 判断控件内是否为空;
3、 判断控件内数据是否重复;Acchelp_StrDataIsExist("表名", "字段名", 控件名) = True
4、 通过msgbox询问用户是否要保存数据;
5、 保存数据的代码:
① set rst 为打开表中的记录,并赋值给rst
Set rst = CurrentDb.OpenRecordset("tblcodebxlb", dbOpenDynaset)
② 新增一行数据 rst.addnew
③ 给数组rst内其他字段赋值,例如编号,等
④ 给rst内对应控件的字段赋值;
⑤ 将rst内新增的数据写入表中, rst.update
⑥ 关闭rst
⑦ 让rst赋值空值
⑧ 刷新程序主窗体,并刷新其数据源
判断是否加载了控制面板窗体,
Forms!usysfrmmain!frmChild.SourceObject = "frmbxlb_child" 前后记得要写一个消除警告的代码docmd.echo false 和true
⑨ 用对话框提示保存成功,msgbox
6、增加一些提高输入速度的技巧性功能:
①、下拉列表自动展开:lbid控件获得焦点事件中输入:me.lbid.dropdown;
②、lbid更新后事件:让下一个要输入的控件自动获得焦点:me.ygid.setfocus
③、ygid的获得焦点事件中输入me.ygid.dropdown;更新后事件让下一个控件获得焦点
……以此类推
2、修改窗体的制作步骤:
1) 先给基础窗体的主键字段编写获取焦点事件;
2) 在基础窗体的成为当前事件中输入=selectrecord() 目的:使得光标所在整行变黑,且第一个字段获得焦点 ;
3)写修改窗体加载事件,并将光标所在行参数赋值给全局变量;
4)写修改按钮的单击事件:
① 判断控件值是否为空;
② 刷新数据 me.refresh
③ 给子窗体附上窗体来源:Forms!usysfrmmain!frmChild.SourceObject = "frmbxlb_child" 前后要加消除警告语句;
④ 书写触发基础窗体的计时器事件,并设定计时器事件的触发间隔时间;
⑤ 编写基础窗体计时器的触发事件:平台函数acchelp_findstrrecoder(全局变量)
⑥ 书写关闭修改窗体的代码,docmd.close acform,”修改窗体名称”
3、编写删除数据代码
1) Public Sub btnDel()
2) 通过msgbox判断用户是否确定要删除该数据;
3) 取消警告提示
4) 如果用户选择是,则通过平台自定义函数AccHelp_DeleteFldstrRow(“表名”,“字段名”,selectstr)删除该数据;
5) 重新给基础窗体子窗体赋上窗体数据源Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
6) 恢复警告提示
系统自定义的查询功能:
1、 编写public sub btnfind()函数
① 打开系统窗体usysfrmfind
② 窗体的cobfldname控件的.rowsource 行来源属性需要赋值为”字段名称,数据类型,”
其中字段类型为 '文本型对应 3 ,日期型对应 1 ,数值型对于 2
③ 指定查询的数据来源:Forms!usysfrmFind!labDataSource.Caption = "qryBxmx"
单击查询按钮定义查询的子窗体的数据来源。
Public Sub FindEnd()
Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True)
End Sub
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)