:ج: أخفاء الجداول المرتبطة !؟

[فتى الوادي]

السلام عليكم ...

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

ولكن لاحظت أن الجدول على الأجهزة الأخرى ظاهرة وهي مرتبطة بالجداول على السيرفر !

فكيف يمكن أخفاء هذه الجدول المرتبطة بجداول مخفية ؟

ولكم تحياتي .

[mzaki]

السلام عليكم

الأخ العزيز

يرجى التوضيح

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

مع تحياتى

mzaki

[فتى الوادي]

السلام عليكم ..

أخي الكريم الجدول في القاعدة الرئيسية على السيرفر مخفية ...

أما على الأجهزة الأخرى ( جداول مرتبطة مع القاعدة على السيرفر ) فهي ظاهرة وحاولت أخفاءها بالكود ولم ينفع ..!!!

[nccyma]

أخي الكريم

أنقر على الجدول وأختر خصائصه وحدد خيار الإخفاء

اذهب لأدوات وأختر عرض وأزل علامة الصح من عند إظهار الكائنات المخفيه.

وأعمل هذا مع جميع الجدوال والنماذج.. ألخ إذا أردت إخفائها

أمل أن أكون وفقت بمساعدتك..

العلي

[فتى الوادي]

السلام عليكم ..

أخي الكريم العلي : شكراً لك على الرد .... لكن !

ما أريده هو أخفاء الجداول المرتبطة وأخفائها بالكود حتى لا يتمكن اي مستخدم من الأطلاع على الجداول أو نسخها ....

وشكراً .... مازال الموضوع للرفع ...

[فتى الوادي]

للرفع .....

For Up

[الدكتور خضر الرجبي]

السلام عليكم

أخي فتى الوادي ، أود أن اساعدك في حل هذه المسألة .

الشرح :

يوجد على السيرفير قاعدة بيانات، ويوجد على الاجهزة الطرفية المتصلة قواعد بيانات بدون الجداول ، والمطلوب عند فتح قواعد البيانات على الاجهزة الطرفية أن ترتبط بجداول السيرفير مع اخفائها تلقائيا وبرمجيا.

إليك اخي خطوات حل هذه المسألة برمجيا كما طلبت :

1. نفتح قاعدة البيانات على الجهاز الطرفي ( التي لا تحتوي على الجداول)

2. في وحدة نمطية جديدة نعرف الاقتران التالي ونخزن الوحدة النمطية (module)

Public Function MakeHiddenAttachedTable(strDatabaseName As String, _
              strTableName As String, strAttachedTableName As String)

         Dim db As Variant
         Dim td As Variant

         Set db = CurrentDb
         Set td = db.CreateTableDef(strAttachedTableName)

         td.Connect = ";Database=" & strDatabaseName
         td.SourceTableName = strTableName
         db.TableDefs.Append td
         td.Attributes = 1

         Set td = Nothing
         Set db = Nothing

End Function

3. في حدث عن الفتح للنموذج الرئيسي للقاعدة التي على الجهاز الطرفي نطلب هذا الاقتران للجداول المراد ربطها واخفائها بالطريقة التالية:

MakeHiddenAttachedTable ("c:\myfiles\results\maindbname", "table1", "table1")

وطبعا هذا مجرد مثال، ويجب طلب الاقتران عدة مرات حسب عدد الجداول التي تريد ربطها، وتبديل اسم الدليل بحيث يكون لقاعدة البيانات التي في السيرفير لديك وهذا المثال يعمل ربط للجدول الذي اسمه Table1 وطبعا كما طلبت (انت) يخفيه.

ملاحظات:

• إذا غيرت السطر td.Attributes الى 0 بدل 1 فانه يتم ربط الجدول ولكن لا يتم اخفاءه.
• انصحك أولا بتجربة هذا المثال على قاعدتين بيانات على نفس الجهاز ثم تنتقل لتجربته بين السيرفير والاجهزة الطرفية.

أخي ، أتمنى لك التوفيق والنجاح في المهمة ولاحقا إن أحببت استطيع أن اشرح لك ايضا كيف تقوم بحذف الارتباط مع الملفات التي تم ربطها قبل الخروج من قاعدة البيانات على الاجهزة الطرفية

مع الاحترام