报销管理系统学习笔记_第五章_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交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
学习心得
最新文章
- 精美简单实用的系统面板_完善版(改...(05.18)
- Access提示方法成员未找到的解...(05.17)
- Access运行时错误-21472...(05.15)
- 【Access更新查询】更新查询如...(05.15)
- 日期不为空怎么写表达式?[字段名]...(05.14)
- 附件字段如何判断myPictrue...(05.13)
- Access链接表SQL SERV...(05.11)
- Access快速开发平台企业版--...(05.09)
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)