自アプリケーションがアクティブか調べる： Access

---

Home　Tipsへ　メニューへ

■ Access VBA 実行コード

'一番手前に立ち上がっているウィンドウ番号を取得
Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Form_Timer()
    Dim lWnd As Long

    lWnd = GetForegroundWindow()
    If lWnd = hWndAccessApp Then 'Me.hWnd Then
        Me.Caption = "フォーカス在り"
    Else
        Me.Caption = "フォーカスなし"
    End If
End Sub