AccessVBAボタンクリックでODBCを張り替えたい

Question

ボタンをクリックしたときに
テキストボックスに入力した接続文字列を、
反映させODBCを張り替えたいです。

・SQLserver
・Access2010

接続文字列はこのように記入してみました。

Driver={SQL Server};Server=サーバー;Uid=ユーザー;Pwd=パスワード;Database=データベース

上の値をテキストボックスに入力し、
その隣にあるボタンをクリックしたときに反映させたいと思っています。
しかしボタンクリック時の書き方がわかりません。
ご教示お願い致します。

Comments

[ExcelVBAer]

Google先生に聞いてください

[apprio]

返信ありがとうございます。現在googleなどでも並行して情報を集めております。

Answer 1

リンクテーブル全部切り替えていいのであればTableDefsコレクションをぐるぐる
回してTableDefのConnectプロパティを入れ替えてください（未検証）

Private Sub btnボタン_Click()
    Dim tdf As DAO.TableDef
    
    For Each tdf In CurrentDb.TableDefs
        If (Nz(tdf.Connect, "") Like "ODBC*") Then
            Debug.Print tdf.Name, tdf.SourceTableName, tdf.Connect
'            tdf.Connect = Me.接続文字列のテキスト.Value
'            tdf.RefreshLink
'            tdf.Attributes = .Attributes Or dbAttachSavePWD
        End If
    Next
End Sub

Answer 2

以下参考。
Access VBA:リンクテーブルのリンク元をVBAで変更する方法

Comments

[apprio]

ありがとうございます。

上の
Driver={SQL Server};Server=サーバー;Uid=ユーザー;Pwd=パスワード;Database=データベース
はサンプルのどこで使うのでしょう....?

Sub Sample01()
Dim db As DAO.Database, tb As DAO.TableDef

Set db = CurrentDb
Set tb = db.TableDefs("運送会社")

tb.Connect = ";DATABASE=C:¥Northwind.mdb;TABLE=運送会社"
tb.RefreshLink ' リンク情報の更新

End Sub

[sazi]

.Connect ですね。
現状のリンクテーブルのプロパティの内容を確認してみてください。