Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8933 / 9994

←次へ　｜　前へ→


	【4214】Re:リンクのループ？

nemotake - 05/1/20(木) 8:57 -


	引用なし

	パスワード

▼MJM さん：
またまたありがとうございます。早速やってみましたがうまくいきません。
やはりコンパイルでエラーになってしまいます。MJM さんの指摘とうりすうせいしたのでが、どこがおかしいのでしょうか？

Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim TD As DAO.TableDef
Dim INRs As Recordset
Dim 読込 As String
Dim 名前 As String

Set Db = CurrentDb
読込 = "日付テーブル"
Set INRs = Db.OpenRecordset(読込,dbOpenDynaset)

名前 = "D:\顧客データ\" & INRs!開始年 & ".mdb"

TD.Connect = ";DATABASE=" & 名前
TD.SourceTableName = RS!顧客テーブル
DB.TableDefs.Append TD　　　（エラー場所）

INRs.Close
RS.Close
DB.Close
Set TD = Nothing
Set RS = Nothing
Set DB = Nothing

と記述したのですがエラー場所(TableDefsのところにカーソルがきています）
でメソッドまたはデータメンバーが見つかりませんになってしまいます。
宜しくお願いします。

606 hits

▼

【4201】リンクのループ？ nemotake 05/1/19(水) 12:30