回答編集履歴
2
推敲
answer
CHANGED
|
@@ -1,12 +1,12 @@
|
|
|
1
1
|
[CloseWindow API](http://tokovalue.jp/function/CloseWindow.htm)と[HWndAccessApp メソッド
|
|
2
2
|
](https://docs.microsoft.com/ja-jp/office/vba/api/access.application.hwndaccessapp)を利用して、Accessウインドウを最小化できます。
|
|
3
3
|
|
|
4
|
-
以下は開いているフォームに上記実行ボタン
|
|
4
|
+
以下は開いているフォームに上記の処理の実行用ボタンのクリックイベントを想定したコードです。
|
|
5
5
|
※フォームを閉じて開きなおすのは、ポップアップしたフォームであっても最小化時に一緒に最小化されるからです。
|
|
6
6
|
```VBA
|
|
7
7
|
Declare PtrSafe Function CloseWindow Lib "user32" (ByVal hwnd As LongLong) As Long
|
|
8
8
|
|
|
9
|
-
Private Sub
|
|
9
|
+
Private Sub Reload_Click()
|
|
10
10
|
|
|
11
11
|
DoCmd.Close acForm, "フォーム名"
|
|
12
12
|
CloseWindow Application.hWndAccessApp
|
1
追記
answer
CHANGED
|
@@ -2,6 +2,7 @@
|
|
|
2
2
|
](https://docs.microsoft.com/ja-jp/office/vba/api/access.application.hwndaccessapp)を利用して、Accessウインドウを最小化できます。
|
|
3
3
|
|
|
4
4
|
以下は開いているフォームに上記実行ボタンからのクリックイベントを想定したコードです。
|
|
5
|
+
※フォームを閉じて開きなおすのは、ポップアップしたフォームであっても最小化時に一緒に最小化されるからです。
|
|
5
6
|
```VBA
|
|
6
7
|
Declare PtrSafe Function CloseWindow Lib "user32" (ByVal hwnd As LongLong) As Long
|
|
7
8
|
|