Vba 从后台和任务栏隐藏MS Access

我希望在项目运行时隐藏项目的Access背景，使其看起来更专业，并使其像独立应用程序一样运行。我使用的是Access 2003，加载项目时表单已经打开。我想在该表单的

私有子表单_Open（取消为整数）

中添加一些代码，以隐藏Access背景。

以下代码适用于较旧版本的Access（在Access 2003上测试）：

选项比较数据库
选项显式
全局常量SW_HIDE=0
全局常数SW_SHOWNORMAL=1
全局常数SW_=2
全局常数SW_showmized=3
私有声明函数apiShowWindow Lib“user32”\u
别名“ShowWindow”（ByVal hWnd，长度为
ByVal nCmdShow As Long）As Long
函数fSetAccessWindow（nCmdShow As Long）
暗淡的loX和长的loX一样
形如形
出错时继续下一步
设置loForm=Screen.ActiveForm
如果错误为0，则
loX=apiShowWindow（hWndAccessApp、nCmdShow）
呃，明白了
如果结束
如果nCmdShow=SW_show最小化且loForm.Modal=True，则
MsgBox“无法使用”\u最小化访问
&（loForm.Caption+“”）
&“屏幕上的表单”
ElseIf nCmdShow=SW_HIDE And loForm.PopUp则为True
MsgBox“无法用”\u隐藏访问权限
&（loForm.Caption+“”）
&“屏幕上的表单”
其他的
loX=apiShowWindow（hWndAccessApp、nCmdShow）
如果结束
fSetAccessWindow=（loX 0）
端函数

只需调用

fSetAccessWindow（0）

隐藏，调用

fSetAccessWindow（1）

显示即可。或者，使用

fSetAccessWindow（2）

和

fSetAccessWindow（3）

显示最小化/最大化。您也可以使用

全局常量。小心：访问权限将从任务栏隐藏

如果Access 2010无法使用，下面是另一个可以使用的代码：

表单必须是模态的，否则将无法工作。如果由于某种原因，您搞砸了，Access仍在后台运行，但没有显示在任务栏或任务管理器中，请再次双击任何Access项目（由于Access仍在运行，因此不会发生任何事情），然后按ALT+TAB键以访问图标（它应该会神奇地显示）。因为它是隐藏的，所以不会再次发生任何事情，但是现在可以使用ALT+F4关闭它（如果它仍然有焦点），从而阻止您重新启动计算机…
在Ms Access 2003中，一种简单的方法似乎可以使窗体
1.弹出
2.边框样式无
3.表单加载事件运行最大化命令

Private Sub Form_Load()
   DoCmd.Maximize
End Sub

它也从那里隐藏（如我在帖子中所述）。（仅当所有表单都被卸载/隐藏时）