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