主页 / dba / 问题 / 57653
Accepted
Juan Velez
Asked: 2014-01-28 17:25:11 +0800 CST

VBA 最大化访问应用程序主窗口

  • 772

我需要我的访问应用程序窗口全屏打开。我试过使用：

DoCmd.RunCommand acCmdAppMaximize

和

DoCmd.Maximize (which I think only maximizes a Form).

也不为我工作？我将 VBA 代码放入其中，OnLoad event并尝试将其放入命令按钮的单击事件中。

我想我需要先将焦点设置到实际的访问应用程序（主窗口），然后运行DoCmd.RunCommand acCmdAppMaximize命令，但不知道如何实现这一点。

我注意到，如果我单击命令按钮而DoCmd.RunCommand acCmdAppMaximize没有任何反应，但是如果首先我移动窗口（通过拖动它的标题栏）然后单击该按钮，它实际上会最大化窗口。

以前有人有运气吗？

更新：

不知道为什么，但我能得到的唯一方法

DoCmd.RunCommand acCmdAppMaximize

工作，首先调用

DoCmd.RunCommand acCmdAppMinimize (minimize window first)

然后调用DoCmd.RunCommand acCmdAppMaximize（然后最大化）

ms-access vba

3 个回答

  1. Best Answer

    我也花了一段时间来解决这个问题，阅读各种博客和帖子。我找到了一种非常简单的方法，只需使用一行代码即可在 VBA 中实现所需的结果。在 VBA 编辑器中，将此代码放在 On Load 代码之后：

    [您的加载代码]

    键码 = 16

    这段代码实现了相当于按 F11，即最大化当前打开的窗口的视图。

    • 3

  2. 我提出了这个新的解决方案，在我的应用程序中完美运行：

    Dim StrDbAccessPath As String, appAccess As New Access.Application

StrDbAccessPath = "C:\access.mdb" '--> path of access

appAccess.Visible = True
appAccess.RunCommand acCmdAppMaximize
appAccess.OpenCurrentDatabase StrDbAccessPath, False

    我为 excel 应用程序打开此访问权限。我对第一条评论的主要更改是：

    appAccess.RunCommand acCmdAppMaximize

    不是

    DoCmd.RunCommand acCmdAppMaximize
    • 3

  3. 您是否以正常模式（而不是对话框）打开了窗口？您是否尝试过在 OnLoad 事件中显式更改表单的 Height 和 Width 属性？您对选择主窗口并将其最大化是正确的。您可以创建一个 AutoExec 宏来选择该窗口，然后发出 Maximize。

    • 0

相关问题