Hello all,
So I've got a bit of a nuisance here, in my Access database I use the fSetAccessWindow Function that I found online (see below for code) to hide the main access window.
Code:
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 = 5 Then '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
But the unfortunate thing is when I use "Call fSetAccessWindow(0)" (which make the access window disappear) it also makes Access disappear in the windows taskbar too. Which makes it difficult for user, especially if they have a lot of windows open. They pretty much have to minimize everything just to find the access popup form.
I did some searches online and it looked like some people were saying that you can see each form in the taskbar if they are set as popup but not modal. But when I try turning Modal off the forms aren't visible either (It seems that only modal stops them from being hidden with the access window). I also tested it without the Access window hidden, Popup set to yes, and model set to no, but they still don't show up in the taskbar.
Does anyone know of a way to make a popup form show up in the taskbar? Ideally, even when the access window is hidden.
Thank you
Jason