回答編集履歴
3
コードの間違いを訂正
answer
CHANGED
|
@@ -26,8 +26,7 @@
|
|
|
26
26
|
Debug.Print acCtl.Name & " / " & acCtl.ControlSource
|
|
27
27
|
Next
|
|
28
28
|
On Error GoTo 0
|
|
29
|
-
|
|
30
|
-
DoCmd.Close acForm,
|
|
29
|
+
appAccess.DoCmd.Close acForm, acObj.Name, acSaveNo
|
|
31
30
|
Next
|
|
32
31
|
appAccess.CloseCurrentDatabase
|
|
33
32
|
appAccess.Quit
|
2
リンクのURL間違いを修正
answer
CHANGED
|
@@ -39,4 +39,4 @@
|
|
|
39
39
|
|
|
40
40
|
テキストに出力する場合は、下記のリンク等をご参考に。
|
|
41
41
|
|
|
42
|
-
[エクセルVBAでテキストファイルに書き出す最も簡単なプログラム](https://tonari-it.com/)
|
|
42
|
+
[エクセルVBAでテキストファイルに書き出す最も簡単なプログラム](https://tonari-it.com/vba-txt-print/)
|
1
コードの微修正
answer
CHANGED
|
@@ -4,10 +4,11 @@
|
|
|
4
4
|
Sub ExportControlsource()
|
|
5
5
|
|
|
6
6
|
Dim strDB As String
|
|
7
|
-
strDB = "C:\TEST\
|
|
7
|
+
strDB = "C:\TEST\テスト.accdb"
|
|
8
8
|
|
|
9
9
|
Dim appAccess As Access.Application
|
|
10
10
|
Set appAccess = CreateObject("Access.Application")
|
|
11
|
+
'対象のAccessデータベースを開く
|
|
11
12
|
appAccess.OpenCurrentDatabase strDB
|
|
12
13
|
|
|
13
14
|
'全フォームを参照する
|