Attribute VB_Name = "mojLink作成削除"
Option Compare Database
Option Explicit
'

Sub リンクを削除()

   CurrentDb.TableDefs.Delete "mstテスト"
   CurrentDb.TableDefs.Delete "mst仕入先"
   CurrentDb.TableDefs.Delete "mst試験"
   
End Sub

Sub リンクを作成処理()

   Dim dbs As Object
   Dim tdf As Object
   Dim rmtdf As Object
   Dim strTableNm As String
   Dim StrConnect As String
   Dim strDataTabl As String
   Dim strDataFile As String
   Dim lX As Long
   
   strDataFile = "Dataテーブル.accdb"
   Set dbs = CurrentDb
   StrConnect = ";DATABASE=" & CurrentProject.Path & "\" & strDataFile
   For lX = 1 To 3
       Select Case lX
           Case 1
               strTableNm = "mstテスト"
           Case 2
               strTableNm = "mst仕入先"
           Case 3
               strTableNm = "mst試験"
       End Select
       Set rmtdf = CurrentDb.CreateTableDef(strTableNm)
       rmtdf.Name = strTableNm
       rmtdf.Connect = StrConnect
       rmtdf.SourceTableName = strTableNm
       CurrentDb.TableDefs.Append rmtdf
       Set rmtdf = CurrentDb.CreateTableDef(strTableNm)
   Next
   
End Sub