access2010开发教程第6章第4节

时　间:2012-04-27 09:54:24
作　者: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

进行到这里，必要步骤的就进行完毕了，可以检测一下实际的功能是否正常。至于是否添加这个按钮，根据情况决定，如果要对基础资料实现非常严格的权限控制，那么这里就可能不需要设置，因为一旦添加了这个按钮，权限控制就可能成为问题了。

相关索引: 上一节   下一节