質問編集履歴
2
修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -80,7 +80,7 @@
|
|
80
80
|
---------------------------
|
81
81
|
Windows Script Host
|
82
82
|
---------------------------
|
83
|
-
スクリプト:C:\Users\
|
83
|
+
スクリプト:C:\Users\(ユーザー名)\Desktop\aaaa.vbs
|
84
84
|
行: 42
|
85
85
|
文字: 3
|
86
86
|
エラー:Not a valid file name.
|
1
エラー行変更
test
CHANGED
File without changes
|
test
CHANGED
@@ -47,8 +47,7 @@
|
|
47
47
|
Set DBE2 = CreateObject("DAO.DBEngine.120")
|
48
48
|
|
49
49
|
For Each item In ary
|
50
|
-
DBE2.RepairDatabase item ★★★ エラー行 ★★★
|
51
|
-
DBE2.CompactDatabase item, "new" & item
|
50
|
+
DBE2.CompactDatabase item, "new" & item ★★★ エラー行 ★★★
|
52
51
|
Next
|
53
52
|
Call MsgBox("Optimization complete.", vbInformation)
|
54
53
|
|
@@ -77,14 +76,13 @@
|
|
77
76
|
|
78
77
|
https://www.excel-pitin.net/single-post/2019/04/12/access%E3%82%84access-runtime%E3%82%92%E4%BD%BF%E3%82%8F%E3%81%9A%E3%81%ABmdb%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%80%81accdb%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E6%9C%80%E9%81%A9%E5%8C%96%E3%81%99%E3%82%8B
|
79
78
|
|
80
|
-
|
81
79
|
エラーメッセージ
|
82
80
|
---------------------------
|
83
81
|
Windows Script Host
|
84
82
|
---------------------------
|
85
|
-
スクリプト:C:\Users\
|
83
|
+
スクリプト:C:\Users\note\Desktop\aaaa.vbs
|
86
84
|
行: 42
|
87
85
|
文字: 3
|
88
|
-
エラー:
|
86
|
+
エラー:Not a valid file name.
|
89
|
-
コード:
|
87
|
+
コード:800A0BEF
|
90
|
-
ソース:
|
88
|
+
ソース:DAO.DbEngine
|