#164
ある１つのフォームを最小化するには「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
CloseWindow Application.hWndAccessApp
End Sub
この情報は参考になりましたか？、問題は解決しましたか？、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
