小编Sub*_*ick的帖子

在启动我的 MS Access 2013 数据库时，我只需要它来显示启动表单，而不是其他任何东西。所需的结果如下所示。背景是我的桌面。

期望：

但是，当我打开数据库时，表单会打开整个屏幕。

下面的 VBA 代码在启动表单加载时运行并开始工作，但如果我最小化窗口，我可以再次看到背景。

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then …