#164 Access自体のウィンドウを最小化する方法 VBA、API

ある1つのフォームを最小化するには「DoCmd.Minimize」というメソッドを使います。しかし、Access自体のウィンドウをコマンドボタンなどのクリックによって最小化するには、次のようにWindows APIの「CloseWindow」関数を利用します。何やらウィンドウをクローズしてしまいそうな名前の関数ですが、これはウィンドウを最小化する関数です。

まず標準モジュールに次のコードを記述します。"Declare"の前に"Private"を付けることによってフォームのモジュールにも記述できます。
Declare Function CloseWindow Lib "user32" (ByVal hWnd As Long) As Long

実行例:
次の例では、あるフォームの「cmdMinimize」という名前のコマンドボタンのクリックによって、Accessウィンドウを最小化します。Accessを最小化することによって、Accessの前にアクティブだったタスクがアクティブになります。
Private Sub cmdMinimize_Click()

  CloseWindow Application.hWndAccessApp

End Sub
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved