最小化 MS Access 窗口离开 POPUP 表单答案

【问题标题】：Minimize MS Access Window Leaving POPUP Form最小化 MS Access 窗口离开 POPUP 表单
【发布时间】：2015-02-26 06:32:09
【问题描述】：

我有下面的代码来最小化 MS 访问，但是弹出的表单会随着背景消失......

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

有没有人知道我怎样才能离开弹出表单并最小化访问背景？

【问题讨论】：

您在项目中从哪里调用该函数？
来自一个模块，所以点击按钮看起来像这样（调用 fSetAccessWindow(SW_SHOWMINIMIZED)

标签： ms-access vba ms-access-2010

【解决方案1】：

我知道的唯一方法是将call fSetAccessWindow(SW_SHOWMINIMIZED) 放入form_load 事件中。这对我来说很可靠

【讨论】：

【解决方案2】：

诀窍是之后使用Form.SetFocus cmd。随着主屏幕最小化SetFocus cmd 之后将保持表单向上：

Private Sub cmdMinimize_Click()
        Call fSetAccessWindow(SW_SHOWMINIMIZED)
        Form.SetFocus
End Sub

【讨论】：