現在、VB.NET上で操作し、Accessのテーブルのリンクをしているのですが、
リンク処理の直後に、最後にテーブルのリンク処理をしたテーブルを
開こうとすると、
「要求された名前、または序数に対応する項目がコレクションで見つかりません。」という
エラーが出ます。
なお、リンクしたテーブルには、きちんと正しいリンクで開こうとしたテーブルが登録されています。
それで、最後にリンクしたのが悪いのかと思い、順番を変えると、
そのエラーは起こらずに通常に起動しました。
ですが、順番を変えただけで普通に動く、というのが
なんだか腑に落ちません。(まあ、無事に動いているのでいいのですが(汗 )
以下にリンク処理を記載します。
何故、このようなことが起こるのかわかる方いらっしゃいましたら、ご教授お願い致します。
予想でもかまいません。
Public Sub DBLink()
LFlag = False
Dim rs As ADODB.Recordset = New ADODB.Recordset
Dim Sql As String = String.Empty
Dim dbPName As String = String.Empty
Dim tName() As String
'リンク先のパスを指定
Dim f As New frmLinkPath
f.ShowDialog()
f.Close()
f = Nothing
'パスを指定したか否か
If LFlag Then
'TMPのパスは固定
dbPName = PathLast(Application.StartupPath) & "TMP.mdb"
'リンクするテーブル名を取得
'mdbLには、テーブル名がカンマ区切りで入っています
tName = mdbL.Split(",")
'リンク先のテーブルを削除
For i = 0 To tName.Length - 1
Sql = "DROP TABLE " & tName(i)
rs.Open(Sql, cn)
Call SLink(tName(i), dbPName)
Next
dbPName = PathLast(DBPath) & "MST.mdb"
'リンクするテーブル名を取得
tName = mdbS.Split(",")
'リンク先のテーブルを削除
For i = 0 To tName.Length - 1
Sql = "DROP TABLE " & tName(i)
rs.Open(Sql, cn)
Call SLink(tName(i), dbPName)
Next
Else
MsgBox("リンク先が指定されなかったので、" & vbCrLf & "テーブルの再リンクをキャンセルします", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "")
End If
End Sub
''' <summary>
''' データベース再リンク
''' </summary>
''' <param name="psNm">リンクするテーブル名</param>
''' <param name="psMdb">リンク元データベース名</param>
''' <remarks></remarks>
Public Sub SLink(ByVal psNm As String, ByVal psMdb As String)
Try
Dim lodDb As dao.Database
Dim ltDef As dao.TableDef
Dim lsSource As String
Dim lsTarget As String
Dim daoE As New dao.DBEngine
'リンク先データベースとリンクデータベース名を指定
lsSource = psMdb
lsTarget = PathLast(Application.StartupPath) & "DATA.mdb"
'既存のデータベースの場合は OpenDatabase を使用する)
lodDb = daoE.OpenDatabase(lsTarget)
'任意の名前でテーブル定義を作成する
ltDef = lodDb.CreateTableDef(psNm)
'リンク先のテーブル名を指定する
ltDef.SourceTableName = psNm
'リンク先のデータベースを指定する(対象がMDBの場合セミコロンの前は省略)
ltDef.Connect = ";Database=" & lsSource
'定義したテーブルをアペンド(追加)する
lodDb.TableDefs.Append(ltDef)
lodDb.Close()
lodDb = Nothing
Catch ex As Exception
Debug.Print(ex.Message)
'Throw
End Try
End Sub
No.1ベストアンサー
- 回答日時:
Access2010のヘルプには
////////////////////
TableDefs.Refresh メソッド
指定されたコレクション内のオブジェクトを更新して、データベースの現在のスキーマを反映させます。
構文
式.Refresh
式 TableDefs オブジェクトを表す変数。
(以下割愛、続きはAccessのヘルプを。)
というのが有りますので
ここいら辺か
lodDb.TableDefs.Append(ltDef)
lodDb.TableDefs.refresh
この辺のどちらかに
Call SLink(tName(i), dbPName)
Next
lodDb.TableDefs.refresh
と追加してみたらどうでしょう?
保証の限りではございませぬ。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ADO&mdbで、リンクテーブルの作り方
Visual Basic(VBA)
-
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
VBのソース上からAccessのmdbファイルのクエリを呼び出す
Visual Basic(VBA)
-
-
4
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
5
VB.NETでテーブルを作成
Visual Basic(VBA)
-
6
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
-
7
C#でaccdbファイルのテーブルの一覧を取得したいです。
C言語・C++・C#
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
VBとアクセスでSQL文に変...
-
他のMDBのテーブルに追加したい
-
DataGridViewで変更した値を反...
-
Accessで宛名ラベルに同一宛先...
-
エクセルのテーブルを解除する...
-
手動または分散トランザクショ...
-
WORD VBA プログラム修正をお願...
-
リストボックスに複数列表示し...
-
ExcelVBAからAccessMDB内のテー...
-
ACCESS2010 実行時エラー 2766
-
Excel複数シートをaccessへ一括...
-
COBOLのINVALID KEYが理解でき...
-
ADO&mdbで、リンクテーブルの...
-
VB.NETでのAccessテーブルリンク
-
オラクルデータベースへの更新方法
-
★クリスタルレポートの元になる...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
WORD VBA プログラム修正をお願...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
DataGridViewに複数テーブルの...
-
他のMDBのテーブルに追加したい
-
エクセルのテーブルを解除する...
-
Excel複数シートをaccessへ一括...
-
手動または分散トランザクショ...
-
SQLを発行とは?クエリの作成と...
-
AccessからExcelへエクスポート...
-
CSVファイルのエクスポートでソ...
-
ACCESS2010 実行時エラー 2766
-
HTMLのテーブルの行数が多くな...
-
ExcelVBAからAccessMDB内のテー...
-
【ADO】「Execute」を使うと...
-
★クリスタルレポートの元になる...
-
DataGridの中身をDataSetにテー...
-
ACCESSのテーブル名をリストに...
-
COBOLのINVALID KEYが理解でき...
おすすめ情報