回答編集履歴
1
説明追記
answer
CHANGED
|
@@ -1,7 +1,5 @@
|
|
|
1
|
-
|
|
1
|
+
まずは下記の間違いを修正してください。
|
|
2
2
|
|
|
3
|
-
とりあえず、あきらかな間違いだけ指摘しておきます。
|
|
4
|
-
|
|
5
3
|
```diff
|
|
6
4
|
Do Until rs1.EOF
|
|
7
5
|
rs2.AddNew
|
|
@@ -12,4 +10,14 @@
|
|
|
12
10
|
rs1.MoveNext
|
|
13
11
|
- Loo
|
|
14
12
|
+ Loop
|
|
15
|
-
```
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
次に、参照設定で、
|
|
16
|
+
|
|
17
|
+
Microsoft DAO 3.6 Object Library
|
|
18
|
+
|
|
19
|
+
のチェックを外して、代わりに、
|
|
20
|
+
|
|
21
|
+
Microsoft Office 16.0 Access database engine Object Library
|
|
22
|
+
|
|
23
|
+
にチェックを入れてください。（16.0 の部分は別の数値になっている場合があるかも）
|