1

次のコードを使用して、バックグラウンドの MS-Access ウィンドウをメイン アプリケーションから非表示にしています。

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

ただし、次のコードで開いている別のデータベース (フォーム) で同じことをしたいと思います。

Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "myDatabasePath"
appAccess.DoCmd.OpenForm "myFormName"
Set appAccess = Nothing

メインアプリケーションからこれを機能させるにはどうすればよいですか? myDatabasePathデータベースのmyFormNameフォームから fSetAccessWindow() 関数を呼び出すこともできると思いますが、その 2 番目のmdbファイルを呼び出すメイン アプリケーションから呼び出したいと思います。

Access 2007 を使用して Access 2000-2003 MDB データベースを開発しています。

4

1 に答える 1

1

Application.hWndAccessApp メソッドを使用して、2 番目の Access アプリケーション インスタンスのウィンドウ ハンドルを取得します。

appAccess.hWndAccessApp

その値を関数にフィードしますapiShowWindow()。

私はこれをテストしていないので、何かを見落としているかどうかはわかりませんが、私にとっては妥当な出発点のようです.

于 2013-01-04T17:41:04.083 に答える