質問編集履歴
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
Accessでファイル読込の処理を作成しています。
|
|
2
|
-
設定
|
|
2
|
+
設定ページでファイル変更ボタンを押すと、標準モジュールに記述した
|
|
3
3
|
FileSelectプロシージャを呼び出して、読込ファイルを変更します。
|
|
4
4
|
タブ切り替え時にテーブルに値を記入します。
|
|
5
5
|
ページ1画面の処理実行ボタンを押した際、
|
|
@@ -20,7 +20,6 @@
|
|
|
20
20
|
'ファイル未指定、不存在の処理
|
|
21
21
|
Dim FSO As Object
|
|
22
22
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
23
|
-
|
|
24
23
|
Dim FilePath As Variant
|
|
25
24
|
Dim NewFilePath As Variant
|
|
26
25
|
Dim errFlg As Boolean
|