通用菜单引用不确定窗体命令

时　间:2007-11-24 16:43:33
作　者:咱家是猫   ID：85  城市：广州
摘　要:菜单引用不确定窗体模块中的命令.
正　文:

如果你的程序有一套通用的菜单,每个窗体都用这套菜单,但又希望不同的窗体中,菜单命令又有所不同,下面介绍一种方法.

在窗体模块中建立函数命令,注意,要用Public来定义.如:

Public Sub ReportPreview()

DoCmd.OpenReport SalesReport, acViewPreview, , "销售单ID =" & Me.销售单ID

End Sub
上面这段代码可以在如进货窗体,销售窗体,报订窗体....都建立,只不过打开的报表名称与参数各异.

在公共模块中写一个菜单命令

Function File_Preview()
'打印预览命令

On Error Resume Next

'引用当前窗体的打印预览命令

Call Screen.ActiveForm.ReportPreview

End Function


在自定义对话框打开的前掉下,在菜单命令的属性对话框的"所在操作"中填:

File_Preview

好了,这就对打印预览命令设置好了.

当你执行此菜单命令时,如果当前窗体有ReportPreview命令,就引用执行,如果没有,就不执行.

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店