مايكروسوفت اكسس

يمكنكم مشاهدة الفيديو في نهاية الصفحة  للحصول على الشرح الكامل يمكن تغيير اي تسمية Caption موجودة في النموذج او التقرير باستخدام الكود ولفهم الموضوع بشكل اكبر لنفرض ان لدينا زر يقوم باخفاء صورة اذا كانت ظاهرة او اظهارها اذا كانت مخفية، ونريد ان تكون تسمية الزر "اخفاء" عندما تكون الصورة ظاهرة وان يتحول الاسم الى "اظهار" عندما تكون الصورة مخفية اي اننا نريد تغيير النص او التسمية بشكل تفاعلي في النماذج وفقا لحاجة المستخدم . لتنفيذ ذلك نقوم باضافة زر  Command1  الى النموذج ونسمية  " اخفاء "  وبعد ذلك نقوم باضافة الكود التالي عند النقر VBA Private Sub Command1_Click() If Command1.Caption = "اخفاء" Then    Command1.Caption = "اظهار" Else     Command1.Caption = "اخفاء" End If End Sub شرح الكود : عند الضغط على الزر سيتم التحقق ما اذا كانت التسمية الحالية للزر = "اخفاء" فسيتم تغييرها الى "اظهار" اما اذا لم تكن التسمية = "اخفاء" فسيتم تحويلها الى "اخفاء". ...

منع استخدام الزر الايمن في الماوس (right click)  يمكنكم مشاهدة الفيديو في نهاية الصفحة  للحصول على الشرح الكامل لمنع المستخدمين من استخدام الزر الايمن في جميع انحاء البرنامج يكون ذلك باتباع الخطوات التالية 1-  الدخول الى القائمة (File) الخيارات(Options) ومن ثم قاعدة البيانات الحالية (Current Database)  وثم الانتقال الى القسم Ribbon and Toolbar Options وازالة اشارة صح من امام Allow Default Shortcut Menus ملاحظة : يجب اغلاق واعادة تشغيل قاعدة البيانات حتى تبدأ التغييرات 

طريقة اخفاء / اظهار شريط الادوات / شريط المهام  (Document Tabs)   في مايكروسوفت اكسس  لمنع المستخدمين من استخدام  شريط الادوات او شريط المهام يكون ذلك باتباع الخطوات التالية 1-  الدخول الى القائمة (File) الخيارات(Options) ومن ثم قاعدة البيانات الحالية (Current Database)  وثم الانتقال الى القسم Ribbon and Toolbar Options وازالة اشارة صح من امام Allow Full Menus ملاحظة : يجب اغلاق واعادة تشغيل قاعدة البيانات حتى تبدأ التغييرات 

اخفاء او اظهار كائن / عنصر  في مايكروسوفت اكسس قد يحتاج المبرمج الى التحكم باخفاء او اظهار عنصر معين سواء كان صورة او نص او تسمية او اي شيئ اخر سواء في النماذج ام التقارير  فاذا اردنا ان نخفي العنصر بشكل نهائي يتم عن طريق تغيير القيمة المقابلة ل Visible  في الخصائص الى No اما اذا اردنا ان نعطي للمستخدم حرية الاخفاء والاظهار لصورة مثلا فان الطريقة ستكون باستخدام الكود VBA  وكما يلي 1- يتم اضافة زر حتى يتم من خلالة اخفاء او اظهار الصورة 2- يتم اضافة الكود التالي في حدث عند النقر على الزر  VBA Private Sub Botton1_Click() If Image1.Visible = True Then Image1.Visible = False Else Image1.Visible = True End If End Sub حيث ان  Botton1 = اسم الزر  و   Image1 = اسم الصورة شرح الكود : عند الضغط على الزر سيتم التحقق هل الصورة مخفية ام لا ، فاذا كانت غير مخفية فسيتم اخفائوها وغير ذلك سيتم اظهارها وبالتالي فان عند كل مرة يتم الضغط على هذا الزر سيقوم بتنفيذ عكس ما هو موجود حاليا

 طريقة اخفاء / اظهار جزء التنقل في اكسس (Navigation pane) 1- الدخول الى القائمة (File) الخيارات(Options) ومن ثم قاعدة البيانات الحالية (Current Database)   2-  لاخفاء جزء التنقل (Navigation pane) قم بازالة اشارة صح   من امام (Display Navigation Pane) ولاظهار جزء التنقل (Navigation pane) قم بوضع اشارة صح   امام (Display Navigation Pane)

تغيير طيريقة عرض نوافذ برنامج اكسس ( نوافذ ام علامات تبويب) للتحكم في كيفية فتح نوافذ (كائنات) برنامج الاكسس (هل ستفتح كل واحدة بشكل مستقل ام انها ستظهر بجانب بعضها على شكل علامات تبويب يتم ذلك من خلال الدخول الى القائمة (File) الخيارات(Options) ومن ثم قاعدة البيانات الحالية (Current Database)   واذا اردنا ان يتم فتح النوافذ فوق بعضها ( كل واحدة مستقلة) نقوم باختيار Overlapping Windows وستكون النوافذ بهذا الشكل اما اذا اردنا النوافذ ان تفتح بجانب بعضها فنقوم باختيار Tabbed Documents مع الغاء تحديد Display Document Tabs فانه لن تستطيع فتح نافذتين بنفس الوقت وانما واحدة في كل مرة وعندما تفتح الثانية فان اولى سيتم اغلاقها بشكل الي وستكون النوافذ بهذا الشكل واذ1ا قمنا بتحديد Display Document Tabs  ستكون النوافذ بهذا الشكل

التنسيق الشرطي في اكسس هذا الموضوع ينطبق على النماذج والتقارير لتغيير التنسيق بناء على شرط معين او مجموعة شروط نقوم بالخطوات التالية: 1- بعد تحديد الحقل الذي نريد تنسيقة بشرط نقوم بتحديد (Conditional Formatting) من القائمة (Format) وبعد ذلك سيفتح لنا نافذة لاضافة الشروط ونختار منها (New Rule) 2- ستفتح لنا نافذة اختيار نوع الشرط الذي نريد تطبيقة (اذا كان الشرط مستند الى قيم محددة او انه مجرد مقارنة للقيمة الحالية مع بقية القيم 3- اذا كان الشرط مستند الى قيم محددة فان الخيارات ستكون اما انه 1- مستند الى قيمة 2- من خلال تطبيق معادلة  3-عند تحديد الحقل ( اختيار الحقل) بكل بساطة يتم ادخال الشرط مثلا ان تكون القيمة بين 15 و 45 سيتم تطبيق تنسيق معين واذا كان من خلال تطبيق معادلة وستكون النتيجة كما يلي 4- اذا تم اختيار  التنسيق عن طريق مقارنة القيمة الحالية مع بقية القيم فسيكون بهذا الشكل وهذة نتيجة هذا النوع

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

 استخدام الفاصل الزمني (فترة التوقيت) Timer Interval في حدث عند المؤقت On Timer  في اكسس  لتنفيذ كود معين بشكل متكرر في كل فترة يتم استخدام هذا الحدث On Timer وهنا يجب تحديد طول الفترة (عدد الثواني) التي عندها سيتم تنفيذ الكود مرة اخرى، مثلا بعد ان يتم تحديث حقل الساعة والتاريخ في كل 5 ثواني. وهنا يجب ان يتم تحديد الفترة الزمنية او الفاصل الزمني (Timer Interval) والذي يعبر عنه باجزاء الثواني وهو قيمة محصورة بين 0 جزء من الثانية ولغاية  2,147,483,647 جزء من الثانية. والامثلة كثيرة على استخدام الحدث ( On Timer ) فمثلا لو اردنا انشاء ساعة في احد النماذج فاننا سنضطر الى تغيير قيمة حقل الساعة بشكل مستمر حتى يظهر لدينا الوقت بشكل محدث، و  على سبيل المثال   لو اردنا جعل لون الخلفية لتسمية معينة في النموذج يظهر بشكل وميض او مومض سنقوم باخفاء هذة التسمية واعادة اظهارها في كل ربع ثانية او بتغيير اللون من لون الى اخرفي كل نصف ثانية مثلا. مثال على جعل تسمية ( Label1 ) تظهر وتختفي كل نصف ثانية نقوم باضافة تسمية ونسميها ( Label1 ) في ...

التبديل المستمر للون الخلفية او لون الخط  في نماذج اكسس ان  عملية تغيير اللون بشكل تلقائي من لون الى اخر   تعتبر من الامور السهلة من الناحية البرمجية ولتنفيذ ذلك فاننا سنستخدم الدالة IF  في حدث عند المؤقت ( On Timer ) كما سيتطلب منا معرفة ما يلي: 1-       ForeColor = وتستخدم لتحديد لون النص 2-       BackColor = وتستخدم لتحديد لون الخلفي ولفهم الموضوع بشكل اكبر سنقوم بعمل نموذج جديد يحتوي على مربع نص (Text2 ) وتسمية ( Lable2 ) وسنقوم  بعمل تنبيه ضوئي عليها بعد اضافة المربعات نقوم بتعديل فترة التنبيه (Timer Inteval) ونقوم باضافة الكود التالي في حدث عند التنبية (On Timer)  VBA Private Sub Form_Timer() 'Label2  لتغيير لون الخلفية للتسمية   If Label2.BackColor = 255 Then Label2.BackColor = 967400 Else Label2.BackColor = 255 End If ' Text2  لتغيير لون الخط في المربع   If Text2.ForeColor = 255 Then Text2.ForeColor = 12349952 Else Text2.ForeCol...

MS  Access :  Dfirst  Function تقوم هذة الدالة باسترجاع ( احضار) اول قيمة تم ادخالها  في عمود محدد في جدول او استعلام معين  تستخدم هذة الدالة لتحديد اول قيمة تم ادخالها  في عمود معين وبشرط معين او بدون شرط  ،  ويمكن استخدام هذة الدالة في محرر فجوال بيسك (VBA) او الماكرو او في الاستعلامات او في منشئ التعبير. الصيغة Dfirst ("FieldName" , "TableName" , "creteria") FieldName = المتغير (العمود) الذي نريد معرفة  اول قيمة تم ادخالها  فية. TableName=  اسم الجدول او الاستعلام   Criteria = الشرط او المعيار    اذا كان الشرط = رقم Dfirst ("FieldName" , "TableName" , "n") Dfirst ("nam","table1","color= 5") اذا كان المعيار مستمد من مربع نص في نموذج او تقرير Dfirst ("nam","table1","id= " & [box1]) اذا كان المعيار مستمد من مربع نص في نموذج او تقرير اخر    (بشرط ان يكون مفتوح) Dfirst ("nam","table1...

MS  Access :  Dlast  Function تقوم هذة الدالة باسترجاع ( احضار) اخر قيمة تم ادخالها  في عمود محدد في جدول او استعلام معين  تستخدم هذة الدالة لتحديد اخر قيمة تم ادخالها  في عمود معين وبشرط معين او بدون شرط  ،  ويمكن استخدام هذة الدالة في محرر فجوال بيسك (VBA) او الماكرو او في الاستعلامات او في منشئ التعبير. الصيغة Dlast ("FieldName" , "TableName" , "creteria") FieldName = المتغير (العمود) الذي نريد معرفة  اخر قيمة تم ادخالها  فية. TableName=  اسم الجدول او الاستعلام   Criteria = الشرط او المعيار    اذا كان الشرط = رقم Dlast ("FieldName" , "TableName" , "n") Dlast ("nam","table1","color= 5") اذا كان المعيار مستمد من مربع نص في نموذج او تقرير Dlast ("nam","table1","id= " & [box1]) اذا كان المعيار مستمد من مربع نص في نموذج او تقرير اخر    (بشرط ان يكون مفتوح) Dlast ("nam","table1",...