質問編集履歴
3
誤字
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -82,13 +82,13 @@
|
|
|
82
82
|
|
|
83
83
|
On Error GoTo 0
|
|
84
84
|
|
|
85
|
-
|
|
86
|
-
|
|
87
|
-
|
|
85
|
+
|
|
88
86
|
|
|
89
87
|
|
|
90
88
|
|
|
91
|
-
①Set tdl = CurrentProject.Table("dbo_A2") 'ここ
|
|
89
|
+
①Set tdl = CurrentProject.Table("dbo_A2") ' ここに作成するテーブル名を記述
|
|
90
|
+
|
|
91
|
+
'ここでエラー発生！！！
|
|
92
92
|
|
|
93
93
|
MsgBox "dbo_qAction_add2テーブルを再作成しました"
|
|
94
94
|
|
|
@@ -138,4 +138,4 @@
|
|
|
138
138
|
|
|
139
139
|
**有職者の皆様方、どうかお知恵をお貸しください。
|
|
140
140
|
|
|
141
|
-
コーディングの仕方のサンプルも
|
|
141
|
+
コーディングの仕方のサンプルもお教え頂ければ勉強になり幸いです。**
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -88,7 +88,7 @@
|
|
|
88
88
|
|
|
89
89
|
|
|
90
90
|
|
|
91
|
-
①Set tdl = CurrentProject.Table("dbo_A2")
|
|
91
|
+
①Set tdl = CurrentProject.Table("dbo_A2") 'ここでエラー発生！！！
|
|
92
92
|
|
|
93
93
|
MsgBox "dbo_qAction_add2テーブルを再作成しました"
|
|
94
94
|
|
1
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
**エラーが出て、①の行が黄色く反転します。。**
|
|
34
34
|
|
|
35
|
-
エラー内容：[実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。]
|
|
35
|
+
エラー内容：[**実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。**]
|
|
36
36
|
|
|
37
37
|
|
|
38
38
|
|