| |
テーブルリンクに関して教えて下さい。
開発を自分のパソコン、完成モジュールをサーバ上において
います。
さらに、モジュールとテーブルを分けて管理しています。
このときに、テーブルのリンクを毎回手動で処理していますが
できれば自動でできないものか検索していたところ下記の内容で
公開があったのですが、
Dim db As Databaseでユーザー定義型は定義されていませんと
エラーが出ます。
この解消のやり方を教えて下さい。
宜しくお願いします。
Private Sub リンクチェツク_Click()
On Error GoTo Err_リンクチェツク
If MsgBox("リンクテーブルを更新します。よろしいですか？", vbYesNo + vbExclamation + vbDefaultButton2, "更新") = vbYes Then
Dim db As Database, tdfLinked As TableDef
Dim TableName As String, ErrName As String
Set db = CurrentDb
ErrName = ""
TableName = "table1" 'テーブル名を指定する
Set tdfLinked = db.TableDefs(TableName)
tdfLinked.Connect = ";DATABASE=" & (Left(CurrentDb.Name, Len(CurrentDb.Name) - Len("C:\db1.mdb")) & "C:\db2.mdb")
tdfLinked.RefreshLink
Set db = Nothing
If Len(ErrName) > 0 Then
MsgBox ErrName & "のテーブルは更新できませんでした｡"
Else
MsgBox "終了しました。", , "確認"
End If
End If
Exit Sub
Err_リンクチェツク:
ErrName = ErrName & " " & TableName
Resume Next
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
