質問編集履歴
3
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -40,10 +40,10 @@
|
|
|
40
40
|
cat.Tables.Delete "dbo_qAction_add" ' ここに削除したいテーブル名を記述 ここまでは実行された
|
|
41
41
|
MsgBox "dbo_Aテーブルを削除しました"
|
|
42
42
|
On Error GoTo 0
|
|
43
|
-
|
|
44
|
-
|
|
43
|
+
|
|
45
44
|
|
|
46
|
-
①Set tdl = CurrentProject.Table("dbo_A2")
|
|
45
|
+
①Set tdl = CurrentProject.Table("dbo_A2") ' ここに作成するテーブル名を記述
|
|
46
|
+
'ここでエラー発生！！！
|
|
47
47
|
MsgBox "dbo_qAction_add2テーブルを再作成しました"
|
|
48
48
|
|
|
49
49
|
② tdl.Connect = strSQL //実行時エラー424 オブジェクトが必要です（①をコメントアウトした場合）
|
|
@@ -68,4 +68,4 @@
|
|
|
68
68
|
本質問にたいして解決策をお願いいたします。
|
|
69
69
|
|
|
70
70
|
**有職者の皆様方、どうかお知恵をお貸しください。
|
|
71
|
-
コーディングの仕方のサンプルも
|
|
71
|
+
コーディングの仕方のサンプルもお教え頂ければ勉強になり幸いです。**
|
2
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -43,7 +43,7 @@
|
|
|
43
43
|
|
|
44
44
|
' Set tdl = CurrentDb.CreateTableDef("dbo_A2") ' ここに作成するテーブル名を記述
|
|
45
45
|
|
|
46
|
-
①Set tdl = CurrentProject.Table("dbo_A2")
|
|
46
|
+
①Set tdl = CurrentProject.Table("dbo_A2") 'ここでエラー発生！！！
|
|
47
47
|
MsgBox "dbo_qAction_add2テーブルを再作成しました"
|
|
48
48
|
|
|
49
49
|
② tdl.Connect = strSQL //実行時エラー424 オブジェクトが必要です（①をコメントアウトした場合）
|
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
|
|
16
16
|
試行錯誤＆ネットでサンプルを拾ってきて、以下のようなコードを書いてみましたが、
|
|
17
17
|
**エラーが出て、①の行が黄色く反転します。。**
|
|
18
|
-
エラー内容：[実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。]
|
|
18
|
+
エラー内容：[**実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。**]
|
|
19
19
|
|
|
20
20
|
サンプルコードはもともとDAOで書かれており、下記URLを参照にDAO→ADOになんとか書き換えています。
|
|
21
21
|
[https://msdn.microsoft.com/ja-jp/library/cc948693.aspx](https://msdn.microsoft.com/ja-jp/library/cc948693.aspx)(DAO から ADO への移植)
|