إستفسار عن كود

[خالد للعلم]

الأساتذة الأفاضل
                          بعد التحية ،
 
أرجو منكم توضيح وشرح معنى الأرقام الذى بتحتها سطر بداخل هذين الكودين : ـ
 
* الأول
 
Private Sub RR_Click()
Dim DB As Database
Dim obj As AccessObject, dbs As Object
Dim TDF As TableDef

Set dbs = Application.CurrentData
Set DB = CurrentDb

For Each obj In dbs.AllTables
Set TDF = DB.TableDefs(obj.Name)
If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 Then
TDF.Attributes = TDF.Attributes + dbHiddenObject
End If
Next


DB.Close
Set DB = Nothing
End Sub
==============================================================================
* الثانى

Private Sub WW_Click()
Dim dbs As Database, TDF As TableDef

Set dbs = CurrentDb
For Each TDF In dbs.TableDefs
If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 _
And TDF.Attributes = 1 Then
TDF.Attributes = TDF.Attributes - dbHiddenObject
End If
Next TDF
Set dbs = Nothing
End Sub

==============================================================================

وهل هذة الأرقام ثايتة أم متغيرة وإلى ما تشيير الضبط ؟؟    وإن تغيرت فلماذا ؟ وفى أى الحالات ؟؟

 

                              ولكم فائق التقدير والإحترام ،

[رمهان]

السلام عليكم اخي

قبل ان اجيبك اليك هذه المعلومات :

- يوجد نوع من الجداول مخفي يبدا باللاحقة msys وهي جداول افتراضية تنشا عند كل ملف قاعدة جديد . طبعا يحظر العبث بها الا للخبراء بل البعد عنها افضل . ولاظهارها بالماوس اليمين على اعلى شريط الكائنات ثم اختيارخيارات التنقل ستظهر نافذة ضع علامة صح على الخيار اظهار كائنات النظام .

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

- يمكنك بالكود معرفة هل الجدول بالقاعدة مخفي ام ظاهر 

- يمكنك بالكود معرفة هل الجدول مرتبط ام اساسي

 

الاان ناتي لشرح الكود

 

يقوم الكود بالدوران على جميع الجداول الموجودة بالقاعدة الحالية والتشييك هل هو جدول نظام حيث يتم معرفة لك باخذ الاربع احرف الاولى فاذا كانت msys فهو جدول نظام . " انتبه هنا بعض المبرمجين يسمي جداوله العادية بداية بهه الاحرف علشان يتم اخفاؤها بالاكسس تلقائيا" . ثم يشيك هل هو غير مرتبط حيث ياخذ الجدول المرتبط خاصية الرقم  1073741824 فعندما تتحقق الشروط السابقة يتم اظهار الجداول باضافة الخاصية TDF.Attributes = TDF.Attributes + dbHiddenObject

والعكس كما بالكود الثاني

 

بالتوفيق

[خالد للعلم]

الأخ والأستاذ الفاضل /  ramhan

         فإليك كل التقدير والحب على إهتمامك بسؤالى .

أولآ : أعتذر بشدة عن تأخرى فى الرد على حضرنك للشكر والإمتنان الشديد لشرحك المبسط وذلك لإنقطاع النت عندى .

 

ثانيآ : أسجل لك إعجابى الشديد لشرحك بالأخص كلمة   Msys  فهى إضافة جديدة لى لفهم أعمق من ذى قبل لجداول النظام .

 

وأخيرآ أستحلفك بالله ألا تؤاخذنى فى تأخرى عن الرد على حضرتك ،

 

                                                                               كل الشكر وفائق تقديرى لشخصك .

[رمهان]

شكرا اخي خالد!

كلام راقي وجميل ! لا ياتي الا من راقي وجميل ! اهنيك على حسن خلقك !

تحياتي