MS Access 2013 只显示启动表单而不显示其他内容

Question

在启动我的 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
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
    MsgBox "Cannot minimize Access with " _
    & (loForm.Caption + " ") _
    & "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
    MsgBox "Cannot hide Access with " _
    & (loForm.Caption + " ") _
    & "form on screen"
Else
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

我有隐藏的功能区、导航窗格和所有访问用户界面，但我还需要删除访问背景。

当前的：

任何帮助/建议将不胜感激。先谢谢了！！！

Answer 1

您不需要任何 API 代码。

以下设置应该可以解决问题：

文件->选项->当前数据库

取消选中“显示文档选项卡”选择选项卡式文档。

在上面也取消选中显示导航窗格。

要隐藏功能区，请在启动时执行这一行 VBA：

DoCmd.ShowToolbar "Ribbon", acToolbarNo

结果屏幕将是这样的：

确保表单不是对话框，并确保它们不是弹出表单。

要返回“开发”模式，您退出数据库，然后按住 shift 键重新启动——这将绕过上述所有内容并允许您进行开发。