質問編集履歴
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,1 +1,12 @@
|
|
|
1
|
-
今開いているaccessから他に複数開いているaccessを一度に閉じたいのですが、どのような方法がありますでしょうか？
|
|
1
|
+
今開いているaccessから他に複数開いているaccessを一度に閉じたいのですが、どのような方法がありますでしょうか？
|
|
2
|
+
|
|
3
|
+
追記)
|
|
4
|
+
メインとなるaccessから他の複数のaccessを開いたり、閉じたりすることとして…
|
|
5
|
+
メインのaccessに下記コードを入力してみたところ、特定のaccessを閉じることができました。これを応用して複数指定したら、複数のaccessを閉じるれかも…と思いましたが、その特定のaccessが開いていないときに一度開いて閉じるみたいな動きになるため、現在閉じようとしているaccesが開いているのか判定する必要があるのかもしれません。
|
|
6
|
+
|
|
7
|
+
private sub コマンド1_Click
|
|
8
|
+
Dim ac As Object
|
|
9
|
+
Set ac= GetObject("●●●.accdb")
|
|
10
|
+
ac.DoCmd.Quit
|
|
11
|
+
Set ac = Nothing
|
|
12
|
+
End Sub
|