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

Access Tips


#164	Access自体のウィンドウを最小化する方法	VBA、API
ある１つのフォームを最小化するには「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 \|