وحدة نمطية لربط الجداول

UP

نعم يوجد طريقه سهله جدا بحيث تربط الداول بضغطة زر أو تلغي الارتباط بها

هذه الطريقه تعتمد على اجراء فرعي يمكنك تطويره حسب حاجتك وإليك الكود مختصرا

أولا

كود استدعاء الاجراء الفرعي

                        ConnectOutput dbprog, "" & namenewt & "", ";DATABASE=" & STRfileTOlink & "", "" & namenewt & ""

المتغيرات كاالتالي

1- dbprog= قاعد البيانات الحاليه

2-namenewt = اسم الجدول الجديد

3-strfiletolink=قاعدة البيانات المصدر

4-namenewt=الجدول المصدر وهو هنا ممثل للسابق لأنني أرغب ان يكون الاسم مماثل

طبعا هذا يرتبط بالاجراء الفرعي الذي سيتم استدعاءه وهو

 Sub ConnectOutput(dbprog As Database, strTable As String, _
                    strConnect As String, strSourceTable As String)
    On Error GoTo ConnectOutput_err
    
  
      Dim tdfLinked As TableDef
      Dim rstLinked As Recordset
  
      Set tdfLinked = dbprog.CreateTableDef(strTable)
  
      tdfLinked.Connect = strConnect
      tdfLinked.SourceTableName = strSourceTable
      dbprog.TableDefs.Append tdfLinked

ConnectOutput_err_exit:
        Exit Sub
ConnectOutput_err:
     msgbox"يوجد خطأ"
        ok = False
        Resume ConnectOutput_err_exit
        
  End Sub

أرجو ان يكون ذلك واضح لك

علما انه هذا المثال موجود في تعليمات الاكسس وما عليك سوى تطويره حسب احتياجك

مجهود تشكر عليه, موفق اٍن شاء الله