تبديل التسميات والنصوص بشكل تفاعلي باستخدام الكود في مايكروسوفت اكسس

-
يمكنكم مشاهدة الفيديو في نهاية الصفحة  للحصول على الشرح الكامل

يمكن تغيير اي تسمية Caption موجودة في النموذج او التقرير باستخدام الكود ولفهم الموضوع بشكل اكبر لنفرض ان لدينا زر يقوم باخفاء صورة اذا كانت ظاهرة او اظهارها اذا كانت مخفية، ونريد ان تكون تسمية الزر "اخفاء" عندما تكون الصورة ظاهرة وان يتحول الاسم الى "اظهار" عندما تكون الصورة مخفية اي اننا نريد تغيير النص او التسمية بشكل تفاعلي في النماذج وفقا لحاجة المستخدم .

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

End If
End Sub

شرح الكود : عند الضغط على الزر سيتم التحقق ما اذا كانت التسمية الحالية للزر = "اخفاء" فسيتم تغييرها الى "اظهار" اما اذا لم تكن التسمية = "اخفاء" فسيتم تحويلها الى "اخفاء".













تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

الشروط في الاستعلامات

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

اخفاء اطار/ شاشة مايكروسوفت اكسس

-
صورة
اخفاء اطار/ شاشة مايكروسوفت اكسس لاخفاء اطار الاكسس يتطلب ذلك مجموعة من الاجراءات البسيطة ولكنها ضرورية جدا بنفس الوقت وكما يلي: 1.        انشاء دالة خاصة بهذا الغرض VBA Option Compare Database Option Explicit Global Const SW_HIDE = 0     Private Declare Function apiShowWindow Lib "user32" _         Alias "ShowWindow" (ByVal hwnd As Long, _               ByVal nCmdShow As Long) As Long            Function fSetAccessWindow(nCmdShow As Long) Dim loX  As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function 2.       يجب ان تكون جميع النماذج والتقارير منبثقة وتحتفظ بالتركيز 3.       يجب ان يتم انشاء نموذج للبدء ويتم تشغيلة بشكل تلقائي عند فتح الاكسس ويتم استدعاء كود اخفاء الشاشة عند فتح هذا النموذج  VBA Private Sub Form_O...
اعرف المزيد »

انواع الاستعلامات في اكسس

-
صورة
(Access Queries) الاستعلامات في اكسس انواع الاستعلامات  يتيح مايكروسوفت اكسس للمستخدم اختيار نوع الاستعلام حسب حاجة المستخدم وتعتمد الاستعلامات في اكسس على SQL  في بناء وتصميم الاستعلام. استعلام تحديد (Select) يساعد هذا النوع من الاستعلامات على انشاء جدول بسجلات محددة، مثلا في جدول الاصناف ممكن ان ننشئ استعلام للاصناف التي لونها احمر، او ممكن ان ننشئ استعلام مبني على جدول الاصناف وجدول الموردين لانشاء جدول يحتوي على اسم المورد (من جدول الموردين) واسم الصنف الذي تم شراؤه من هذا المورد (من جدول الاصناف) استعلام انشاء جدول (Make Table) يقوم هذا النوع من الاستعلامات بانشاء جدول جديد اي اننا ننشئ الاستعلام من جدول او اكثر ثم يتحول هذا الاستعلام الى جدول جديد سواء في قاعدة البيانات الحالية او في قاعدة بيانات اخرى. استعلام الحاق (Append) ويستخدم لالحاق بيانات من جدول او اكثر ليتم اضافتها الى جدول اخر استعلام تحديث  (Update) وهذا النوع من الاستعلامات يستخدم لتحديث قيمة موجودة في جدول بقيمة اخرى موجودة في جدول اخر استعلام انشاء الجدا...
اعرف المزيد »