اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

ولكم تحياتي .

قام بنشر

السلام عليكم

الأخ العزيز

يرجى التوضيح

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

مع تحياتى

mzaki

قام بنشر

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

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

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

CaptureWiz021.jpg

قام بنشر

أخي الكريم

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

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

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

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

العلي

قام بنشر

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

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

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

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

قام بنشر

السلام عليكم

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

الشرح :

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

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

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 فانه يتم ربط الجدول ولكن لا يتم اخفاءه.
  • انصحك أولا بتجربة هذا المثال على قاعدتين بيانات على نفس الجهاز ثم تنتقل لتجربته بين السيرفير والاجهزة الطرفية.

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

مع الاحترام

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information