الربط بعد تقسم قاعدة البيانات واخفاء الجداول المرتبطة

[mostafaelshnawy5]

السلام عليكم ورحمه الله وبركاته

ارجو مساعدتي ضروري

لدي قاعدة بيانات تم تقسيمها لجزء جداول والجزء الاخر نماذج واستعلامات 

المطلوب اخفاء الجداول المرتبطة التي هي بالجزء الخاص بالنماذج

وايضا ربطها بقاعدة البيانات  بالجزء الخاص بالجداول 

ولكم الشكر

[Eng.Qassim]

حينما تقسم القاعدة وتعمل لها share  مع عدد من الاجهزة تقوم بعمل نموذج خاص بالشفت لقاعدة BE الخاصة بالجداوال وكذلك تعمل نموذج للشفت لقاعدة بقية المستخدمين  FEحتى لايتمكن احدهم من الدخول للقاعدة

[د.كاف يار]

لتحديث ربط الجداول استخدم الكود التالي

Dim strDbFile As String
Dim strPassword As String
Dim strConnect As String

    strDbFile = CurrentProject.Path & "\bb.MDB"
    strPassword = "19801213011"
    strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile

    Dim tdf As DAO.TableDef
    Dim db As DAO.Database

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        ' ignore system and temp tables
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
            tdf.Connect = strConnect
            tdf.RefreshLink
        End If
    Next

لإخفاء جدول معين استخدم التالي

Application.SetHiddenAttribute acTable,"Customers", True

 

[Eng.Qassim]

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb

For Each tdf In db.TableDefs
            tdf.Attributes = acHidden 
Next tdf

ولاعادة اضهار الجداول تستخدم acNormal  بدلا من acHidden

[mostafaelshnawy5]

6 hours ago, Eng.Qassim said:

حينما تقسم القاعدة وتعمل لها share  مع عدد من الاجهزة تقوم بعمل نموذج خاص بالشفت لقاعدة BE الخاصة بالجداوال وكذلك تعمل نموذج للشفت لقاعدة بقية المستخدمين  FEحتى لايتمكن احدهم من الدخول للقاعدة

شكرا جزيلا لردك

ولكن انا مش عامل مشاركه لقاعدة البيانات فلكل شخص لديه قاعده علي جهازه لاني ليست لدي سيرفر لمشاركة قاعدة بياناتي

وتفضل بقبول فائق الاحترام

[mostafaelshnawy5]

5 hours ago, Eng.Qassim said:

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb

For Each tdf In db.TableDefs
            tdf.Attributes = acHidden 
Next tdf

ولاعادة اضهار الجداول تستخدم acNormal  بدلا من acHidden

وهل هذا سيمنع استيراد الجداول المرتبطة؟