全部显示

DoMenuItem 方法

       

显示 Microsoft Access 的对应菜单工具栏命令。

expression.DoMenuItem(MenuBar, MenuName, Command, Subcommand, Version)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

MenuBar  必需 Variant 型。对“窗体”视图中的菜单栏使用固有常量 acFormBar。对于其他视图,请使用菜单栏参数列表中的视图所对应的数字,如 Microsoft Access 上一版的“宏”窗口中所示(列表由 0 开始向下计数)。

MenuName  必需 Variant 型。可以使用下列固有常量之一:

Command  必需 Variant 型。可以使用下列固有常量之一:

Subcommand  可选 Variant 型。可以使用下列固有常量之一:

Version  可选 Variant 型。对 Microsoft Access 95 数据库的代码使用固有常量 acMenuVer70,对 Microsoft Access 2.0 版数据库的代码使用固有常量 acMenuVer20,而对于 Microsoft Access 1.x 版数据库的代码则使用固有常量 acMenuVer1X。该参数仅在 Visual Basic 中可用。

注意   该参数的默认值为 acMenuVer1X,所以对任何 Microsoft Access 1.x 版数据库的代码将不作更改进行运行。如果为 Microsoft Access 95 或 2.0 版数据库编写代码,并且希望通过 DoMenuItem 方法来使用 Microsoft Access 95 或 2.0 版的菜单命令,则必须将该参数设为 acMenuVer70acMenuVer20

同样,当在“宏”窗口中的“菜单栏”、“菜单名称”、“命令”及“子命令”操作参数列表中向下读数获取 DoMenuItem 方法参数所对应的数字时,如果 Version 参数为 acMenuVer70,则必须使用 Microsoft Access 95 列表,如果 Version 参数为 acMenuVer20,则必须使用 Microsoft Access 2.0 版列表,如果 Version 参数为 acMenuVer1X(或为空),则必须使用 Microsoft Access 1.x 版列表。

注意   对于该参数没有 acMenuVer80 设置。不能使用 DoMenuItem 方法显示 Microsoft Access 97 或 Microsoft Access 2000 命令(虽然 Visual Basic 代码中已有的 DoMenuItem 方法仍然有效)。请使用 RunCommand 方法代替。

说明

注意   在 Microsoft Access 97 中,DoMenuItem 方法由 RunCommand 方法取代。本版 Microsoft Access 中包含 DoMenuItem 方法只是为了与前一版本的 Microsoft Access 兼容。执行已有 Visual Basic 代码时,如果包含 DoMenuItem 方法,Microsoft Access 将显示相应的 Microsoft Access 2000 的菜单工具栏命令。但是与中的 DoMenuItem 操作不同的是,当转换由上一版 Microsoft Access 创建的数据库时,Visual Basic 代码中的 DoMenuItem 方法不能转换为 RunCommand 方法。

上一版 Microsoft Access 中的某些命令在 Microsoft Access 2000 中不能使用,所以在 Visual Basic 中执行对应于这些命令的 DoMenuItem 方法时将引起错误。必须编辑 Visual Basic 代码,替换或删除这些 DoMenuItem 方法。

“宏”窗口的菜单名称、命令及子命令操作参数列表中的选项,取决于对前一版参数的选择。对每一个 MenuBarMenuNameCommandSubcommand 参数必须使用适当的数字或固有常量。

如果将 Subcommand 参数留空,但指定 Version 参数,则必须包含 Subcommand 参数的逗号。如果将 SubcommandVersion 参数留空,那么在 Command 参数后面不能使用逗号。

示例

下面的示例使用 DoMenuItem 方法执行 Microsoft Access 95 数据库“窗体”视图中“编辑”菜单上的“粘贴”命令:

DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70

下面的示例执行 Microsoft Access 2.0 版数据库“窗体”视图中“窗口”菜单上的“平铺”命令:

DoCmd.DoMenuItem acFormBar, 4, 0, , acMenuVer20