回答編集履歴
2
222
test
CHANGED
@@ -1,6 +1,8 @@
|
|
1
1
|
プロセスのKillで良ければ、こちらのソースで可能と思います。
|
2
2
|
|
3
3
|
p.s. "MSACCESS"の部分はOSのバージョンで文字列違う可能性あります。
|
4
|
+
|
5
|
+
プロセスの強制終了ですので、Closeとは違います。
|
4
6
|
|
5
7
|
(環境:Access2007/32bit確認済み)
|
6
8
|
|
1
111
test
CHANGED
@@ -124,6 +124,10 @@
|
|
124
124
|
|
125
125
|
Next
|
126
126
|
|
127
|
+
|
128
|
+
|
129
|
+
'Free Object
|
130
|
+
|
127
131
|
Set objSet = Nothing
|
128
132
|
|
129
133
|
Set obj = Nothing
|