access2007开发教程第6章第4节
时 间:2011-10-10 09:37:35
作 者:Access软件网编著 ID:8 城市:上海 QQ:2851379730
摘 要:6.4 基础资料的快捷添加
正 文:
6.4 基础资料的快捷添加
我们现在发现一个现象,就是比如类别名称这一字段,其数据来源是来源基础资料的报销类别,而现在的情况是,如果在报销管理里输入一个报销明细,却发现其报销类型在报销类别(员工姓名也有这个问题存在)的下拉列表中没有,这个时候,就要退出,到基础资料那边去输入,显得很麻烦。因此,如果在新增窗体上就现成地增加一个按钮,直接执行添加操作,岂不很好?我们下面就来实现这个设想。
直接进入 frmBxmx_child_Add 窗体的设计窗体,将报销类别和员工姓名两个组合框拉短一点,如下图所示:
增加2个按钮控件到报销类别和员工姓名后面,设置一下按钮的并适当调整大小以适应整体布局,完成之后如下图所示:
进入刚添加的报销类别后面的按钮的属性对话框,将其名称命名为cmdBX(属性-其他选项卡-名称),为了按钮美观一点,再设置一下按钮的属性中的格式里面的图片属性,选择一个图标。同理,员工姓名后面的一个命名为 cmdYG ,同样也在图片属性里选择一个相同的图标,这里的图标可以在平台目录下的menuPics文件夹内找到,也可以自己选择自己喜欢的ICO图标,设置完毕后如下图所示:
之后进入该窗体的代码编辑界面,新起一行,输入这样的代码:
Private Sub cmdBX_Click()
DoCmd.OpenForm "frm_CodeBxlb_child_Add", , , , , acDialog
End Sub
Private Sub cmdYG_Click()
DoCmd.OpenForm "frmyg_child_Add", , , , , acDialog
End Sub
确保正确之后,退出保存。之后直接 frm_CodeBxlb_child_Add 窗体的编码编辑页面,注意到有这样一些代码:
'刷新数据
If IsLoaded("usysfrmMain") Then
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frm_CodeBxlb_child"
DoCmd.Echo True
End If
MsgBox "保存成功!", vbInformation, "提示"
Me.lbmc = Null
End If
End Sub
将以上的代码修改如下:
'刷新数据
If IsLoaded("usysfrmMain") Then
If IsLoaded("frmBxmx_child_Add") = True Then
Forms!frmBxmx_child_Add!lbId.Requery
GoTo 100
End If
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frm_CodeBxlb_child"
DoCmd.Echo True
End If
100: MsgBox " 保存成功 !", vbInformation, " 提示 "
Me.lbmc = Null
End If
End Sub
之后退出保存修改,之后直接进入 frmyg_child_Add 窗体的代码编辑页面,也会看到这样一段代码 :
'刷新数据
If IsLoaded("usysfrmMain") Then
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
MsgBox "保存成功!", vbInformation, " 提示 "
Me.ygxm = Null
End If
End Sub
将上面的代码修改如下 :
'刷新数据
If IsLoaded("usysfrmMain") Then
If IsLoaded("frmBxmx_child_Add") = True Then
Forms!frmBxmx_child_Add!ygId.Requery
GoTo 100
End If
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
100: MsgBox " 保存成功 !", vbInformation, " 提示 "
Me.ygxm = Null
End if
End Sub
进行到这里,必要步骤的就进行完毕了,可以检测一下实际的功能是否正常。至于是否添加这个按钮,根据情况决定,如果要对基础资料实现非常严格的权限控制,那么这里就可能不需要设置,因为一旦添加了这个按钮,权限控制就可能成为问题了。
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【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)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 新版铁路工程管理系统V2.0(05.08)
- Access快速开发平台企业版--...(05.07)
- 【Access Call用法学习】...(05.06)
- access软件网站长张志简介 (05.05)
- 精美简单实用的系统面板(05.03)
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)