报销管理系统学习笔记_第五章_2
时 间:2009-03-15 09:02:40
作 者:rcylbx ID:3459 城市:保定
摘 要:四、 修改窗体 frmBxmx_child_Edit
正 文:
四、 修改窗体 frmBxmx_child_Edit
1、仿照新增窗体,调整布局,格式,页眉拷贝控件,添加5个文本框
2、 标签:报销日期 报销类别 员工姓名 报销金额 报销摘要
3、文本框名称(其他-名称)bxrq lbId ygId bxje bxzy
4、控件来源(新增可不设,修改必须设)bxrq,lbId,ygId,bxje,bxzy
5、界面美化
6、报销类别 员工姓名修改为组合框,行来源和其他属性同新增
7、修改窗体属性
标题:报销明细修改; 滚动条:两者均无;记录选定器:否;
导航按钮:否; 分隔线:否; 自动调整:否; 自动居中:是;
边框样式:对话框边框; 控制框:否(新增窗体不需要修改这一属性);
最大化最小化按钮:无; 关闭按钮:否。
允许添加:否
弹出方式:是; 模式:是。
8、frmBxmx_child 报销编号文本框获得焦点事件代码:
On Error GoTo Err_报销编号_GotFocus:
selectstr = Me.报销编号
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_报销编号_GotFocus:
Exit Sub
Err_报销编号_GotFocus:
Resume Exit_报销编号_GotFocus
窗体的成为当前 代码:=selectrecord()
9、 frmBxmx_child_Edit 加载代码:
Me.RecordSource = "Select * FROM tblBxmx Where mxId = '" & selectstr & "'"
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If IsNull(Me.bxrq) Then
MsgBox "请输入报销日期!", vbCritical, "提示:"
Me.bxrq.SetFocus
Exit Sub
End If
If IsNull(Me.lbId) Then
MsgBox "请输入报销类别!", vbCritical, "提示:"
Me.lbId.SetFocus
Exit Sub
End If
If IsNull(Me.ygId) Then
MsgBox "请输入员工姓名!", vbCritical, "提示:"
Me.ygId.SetFocus
Exit Sub
End If
If IsNull(Me.bxje) Then
MsgBox "请输入报销金额!", vbCritical, "提示:"
Me.bxje.SetFocus
Exit Sub
End If
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmBxmx_child_Edit"
End Sub
10、导航 权限 测试
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)
- Inputbox输入密码打开查...(12.23)
- 【Access Dsum示例】...(12.16)
- Inputbox输入密码打开窗...(12.13)
- 【Access DCount示...(12.02)

学习心得
最新文章
- 用Access查询语句如何得到前3...(02.17)
- Access快速开发平台--导入导...(02.14)
- 按回车键后光标移动到下一条记录的V...(02.12)
- Access快速开发平台--要实现...(02.10)
- Access快速开发平台--让Pe...(02.08)
- 【Access Dsum示例】用D...(02.07)
- Access对子窗体的数据进行平均...(02.05)
- Access快速开发平台附件上传,...(01.18)
- 【IIF函数示例】用iif函数判断...(01.18)
- Access快速开发平台--如何获...(01.17)