回答編集履歴
3
コードの間違いを訂正
test
CHANGED
@@ -54,9 +54,7 @@
|
|
54
54
|
|
55
55
|
On Error GoTo 0
|
56
56
|
|
57
|
-
|
58
|
-
|
59
|
-
DoCmd.Close acForm,
|
57
|
+
appAccess.DoCmd.Close acForm, acObj.Name, acSaveNo
|
60
58
|
|
61
59
|
Next
|
62
60
|
|
2
リンクのURL間違いを修正
test
CHANGED
@@ -80,4 +80,4 @@
|
|
80
80
|
|
81
81
|
|
82
82
|
|
83
|
-
[エクセルVBAでテキストファイルに書き出す最も簡単なプログラム](https://tonari-it.com/)
|
83
|
+
[エクセルVBAでテキストファイルに書き出す最も簡単なプログラム](https://tonari-it.com/vba-txt-print/)
|
1
コードの微修正
test
CHANGED
@@ -10,13 +10,15 @@
|
|
10
10
|
|
11
11
|
Dim strDB As String
|
12
12
|
|
13
|
-
strDB = "C:\TEST\
|
13
|
+
strDB = "C:\TEST\テスト.accdb"
|
14
14
|
|
15
15
|
|
16
16
|
|
17
17
|
Dim appAccess As Access.Application
|
18
18
|
|
19
19
|
Set appAccess = CreateObject("Access.Application")
|
20
|
+
|
21
|
+
'対象のAccessデータベースを開く
|
20
22
|
|
21
23
|
appAccess.OpenCurrentDatabase strDB
|
22
24
|
|