隐藏MS Access DB窗口后如何在窗体的任务栏中显示图标

Question

因此，我正在使用此代码隐藏我的Access DB窗口。

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
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
Public 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

这完全隐藏了，大声笑。但是，我想隐藏Access DB窗口并在窗体的Windows任务栏上显示图标。我在win10平台上使用MS Access 2016。我进入了Access File \ Option \ Current Database \ Display Form：并将其设置为我的Main窗体（frm_MainMenu）。上面的代码在一个模块中，您将在其中看到函数（fSetAccessWindow）。我从主窗体（frm_MainMenu）的“加载时”事件调用它。我将其设置为选项“ 0”以隐藏访问数据库窗口。我现在要对此进行修改，以允许表单在任务栏中显示图标，并且仍然隐藏窗口。关于如何可以做到这一点的任何建议。我所有的表单都设置为“弹出窗口”和“模态”。我在桌面上没有使用任何快捷方式图标。使用该数据库的其他用户也没有。