#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved