报销管理系统学习笔记_第四章_2
时 间:2009-03-14 09:59:14
作 者:rcylbx ID:3459 城市:保定
摘 要:三、修改窗体制作 frmyg_child_Edit
四、返回修改记录的原始定位
五、删除功能的代码
正 文:
三、 修改窗体制作 frmyg_child_Edit
1、 文本框 员工姓名 ygxm
2、 拷贝Activex02窗体一区控件到页眉
3、 页眉页脚及格式设置同新增窗体
4、 添加模块,Variable 声明全局变量
Public selectstr As String
5、 回到frmyg_child设计视图,员工序号文本框_获得焦点事件:
On Error GoTo Err_ygId_GotFocus:
selectstr = Me.ygId
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_ygId_GotFocus:
Exit Sub
Err_ygId_GotFocus:
Resume Exit_ygId_GotFocus
Frmyg_child成为当前事件输入代码:=selectrecord()
6切换到frmyg_child_Edit,窗体加载事件:
Me.RecordSource = "Select * FROM tblCodeyg Where ygId = '" & selectstr & "'"
6、设定员工姓名文本框数据源:控件来源为ygxm
7、输入代码:
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If IsNull(Me.ygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示:"
Me.ygxm.SetFocus
Exit Sub
End If
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmyg_child_Edit"
End Sub
8、修改导航按钮的修改属性;添加权限;添加窗体说明:员工姓名_修改窗体
四、返回修改记录的原始定位
1、进入variable模块,声明全局变量
Public g_CurrentSelectStrID As String
2、frmyg_child的计时器触发,代码
Acchelp_FindstrRecord (g_CurrentSelectStrID)
'计时器执行一次后不再执行
Me.TimerInterval = 0
3、frmyg_child_Edit窗体加载,原有代码加入新代码(2、3行之间)
g_CurrentSelectStrID = selectstr
五、删除功能的代码
1、frmyg_child,加入代码:
Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
DoCmd.Echo False
Call AccHelp_DeleteFldstrRow ("tblCodeyg", "ygId", selectstr)
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
End Sub
2、添加导航按钮的删除属性,设置权限。
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)