我将如何以编程方式显示启动时隐藏的项目？

Question

我有一个 Access 数据库，它设置为只显示我的表单并隐藏功能区和表格资源管理器。
这工作正常，除了我。
我希望能够从快捷方式打开数据库，就像我按住 Shift 键绕过启动例程一样。

我检测到命令行参数。我关闭登录表单。

我需要打开什么才能回到功能齐全的 Access 版本而无需使用 shift 键？

这是我从禁用一切的人那里找到的几个候选人。我需要重新打开它们。但是，我看不出这在原版中是如何工作的，而且对我来说根本不起作用。

StartUpShowStatusBar = True  // Done
AllowShortcutMenus = True
AllowFullMenus = True
AllowBuiltInToolbars = True
AllowToolbarChanges = True
AllowSpecialKeys = True
UseAppIconForFrmRpt = True

Answer 1

您已经看到 my answer here 隐藏功能区和导航窗格。我在这里发布，通过单击按钮再次显示它们。下面是隐藏然后显示功能区和导航窗格的代码。

要隐藏的代码-

Private Sub Form_Load()
On Error GoTo HarunErrHandler

'******************* Hide Ribbon and Navigation Pane ***************************

    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
    Call DoCmd.RunCommand(acCmdWindowHide)

'*******************************************************************************

Exit Sub
HarunErrHandler:
MessageBox = MsgBox("Error Number: " & Err.Number & vbCrLf & Err.Description, vbInformation, "Error")
End Sub

显示功能区和左窗格-

Private Sub cmdShow_Click()
On Error GoTo HarunErrHandler
    
'******************* Show Ribbon and Navigation Pane ***************************

    DoCmd.ShowToolbar "Ribbon", acToolbarYes
    Call DoCmd.SelectObject(acTable, , True)

'*******************************************************************************

Exit Sub
HarunErrHandler:
MessageBox = MsgBox("Error Number: " & Err.Number & vbCrLf & Err.Description, vbInformation, "Error")
End Sub

Answer 2

根据 Harun 的回答，我能够构建这个，这似乎可以恢复一切。

Private Sub Form_Load()
On Error GoTo ErrHandler
    If CheckKeyFiles = True Then
        Me!txtUID = "workflow"
        Me!txtSID = GetSID("workflow")
    End If
    Me!txtVersionDate = "Version " & GetVersionDate()
    If Command = "develop" Then
        DoCmd.Close acForm, "Dialog_Login"
        DoCmd.SelectObject acTable, , True
        Application.SetOption "Show Status Bar", True
        CurrentDb.Properties("AllowFullMenus") = True
        CurrentDb.Properties("AllowBuiltInToolbars") = True
        CurrentDb.Properties("AllowToolbarChanges") = True
        CurrentDb.Properties("AllowSpecialKeys") = True
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
    End If
Exit Sub
ErrHandler:
    Dim Response
    Response = MsgBox("Error Number: " & Err.Number & vbCrLf &     Err.Description, vbInformation, "Error")

End Sub