回答編集履歴
1
コード微修正
test
CHANGED
|
@@ -16,7 +16,7 @@
|
|
|
16
16
|
|
|
17
17
|
'別のAccessファイルを開く
|
|
18
18
|
|
|
19
|
-
.OpenCurrentDatabase "C:\Users\
|
|
19
|
+
.OpenCurrentDatabase "C:\Users\test\Documents\test.accdb"
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
@@ -25,6 +25,8 @@
|
|
|
25
25
|
For Each obj In .CurrentProject.AllForms
|
|
26
26
|
|
|
27
27
|
Debug.Print obj.Name
|
|
28
|
+
|
|
29
|
+
.SaveAsText acForm, obj.Name, "C:\Users\test\Documents\" & obj.Name & ".frm"
|
|
28
30
|
|
|
29
31
|
Next
|
|
30
32
|
|