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

在窗体模块中建立函数命令,注意,要用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命令,就引用执行,如果没有,就不执行.