0

Access 2003 MDB プロジェクトに Access 2007 を使用していますが、クエリの結果を表示しようとしているときにいくつかの問題に直面しています。ここには派手なものはありません：

DoCmd.OpenQuery "myQuery", acViewNormal

シンプルな形で、それはうまく機能します。ただし、次のコードを使用してバックグラウンドの Access ウィンドウを非表示にしています。

Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

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(1) を呼び出して完全なインターフェイスに戻すこともできますが、ここでは Access の完全なインターフェイスではなく、クエリの結果だけを表示したいと思います。出来ますか？一部のユーザーは、バッチ ファイルを使用してデータベースを実行します (影響があるかどうかは不明です)。

start msaccess /runtime "myFile.mdb"

また、私のフォームはすべてモーダルであるため (インターフェイスなしで動作するか、ウィンドウが表示されない必要があります)、クエリ結果はバックグラウンドで表示され、フォーカスを設定する方法はありません (ユーザーはアクティブなフォームを閉じる必要があります)。これを行うには、アプリケーション ウィンドウ)。

4

1 に答える 1

1

クエリをレコード ソースとして使用してフォームを作成する以外に解決策はないようです。

于 2012-12-11T20:22:11.360 に答える