Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2016)
リンク先のテーブル名の取得方法
投稿日時: 18/02/08 16:47:08
投稿者: きき

テーブル名とリンク先のテーブル名が異なります。
この場合、リンクテーブルのリンク先のテーブル名を
取得する方法を教えてください。
[/b]

回答
投稿日時: 18/02/08 17:25:44
投稿者: sk

引用:
テーブル名とリンク先のテーブル名が異なります。
この場合、リンクテーブルのリンク先のテーブル名
取得する方法を教えてください。

DAO.TableDef オブジェクトによって
任意のリンクテーブルの定義を参照し、
その SourceTableName プロパティの値を
取得なさればよろしいかと。
 
(標準モジュール)
------------------------------------------------------------------
Private Sub Test()
 
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strMsg As String
     
    Set db = CurrentDb
    Set tdf = db.TableDefs("テーブル名")
 
    With tdf
        If .Connect = "" Then
            strMsg = "テーブル[" & .Name & "]はリンクテーブルではありません。"
        Else
            strMsg = "リンクテーブル[" & .Name & "]のソーステーブルの名前は " & _
                     .SourceTableName & " です。"
        End If
    End With
     
    MsgBox strMsg
     
    Set tdf = Nothing
    Set db = Nothing
 
End Sub
------------------------------------------------------------------

投稿日時: 18/02/14 17:33:21
投稿者: きき

確認が遅くなりました。すみません。
 
思い通りの値が取得できました。
ありがとうございました。