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