質問編集履歴
3
8
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -86,7 +86,7 @@
|
|
|
86
86
|
|
|
87
87
|
"
|
|
88
88
|
|
|
89
|
-
strTblName = "[dbo_A]" '（Accessにあるリンクテーブル名。同名・同内容のものがSQLserver側にも存在）
|
|
89
|
+
strTblName = "[dbo_A]" '（Accessにあるリンクテーブル名。同名・同内容のものがSQLserver側にも存在）
|
|
90
90
|
|
|
91
91
|
|
|
92
92
|
|
|
@@ -94,13 +94,13 @@
|
|
|
94
94
|
|
|
95
95
|
With cat
|
|
96
96
|
|
|
97
|
-
|
|
97
|
+
② Set .ActiveConnection = CurrentProject.Connection 'これは、Accessにあるデータベースを示していますよね？
|
|
98
98
|
|
|
99
99
|
With .Tables(strTblName) //ここでエラー
|
|
100
100
|
|
|
101
101
|
③ .Properties("Jet OLEDB:Link Provider String") = strConnection 'Jet とは、自身（Access）のデータベースにアクセスすること？
|
|
102
102
|
|
|
103
|
-
.Properties.Refresh
|
|
103
|
+
.Properties.Refresh
|
|
104
104
|
|
|
105
105
|
End With
|
|
106
106
|
|
1
ｄ
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,9 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
-
下記コードは、リンクテーブルを更新するロジックを、当サイトでご教示いただいたものを
|
|
11
|
+
下記コードは、リンクテーブルを更新するロジックを、当サイトでご教示いただいたものを参考とさせていただき、値や変数の中身を当方で目的のものに変えて記述しております。
|
|
12
|
-
|
|
13
|
-
参考として記述しております。
|
|
14
12
|
|
|
15
13
|
**コード内①、②、③について質問です。**
|
|
16
14
|
|