التخطي إلى المحتوى الرئيسي

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

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

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

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

End If
End Sub

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













التسميات:

تعليقات

إرسال تعليق

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

انشاء الجداول في اكسس

انشاء الجداول في اكسس بعد انشاء ملف اكسس جديد فان الخطوة الاولى ستكون انشاء الجداول، ولانشاء الجداول نتبع ما يلي: 1- اختيار create  كما في الصورة 2- نقوم باختيار Table او Table Design والامر متروك للمستخدم، وانا بشكل شخصي افضل Table Design 3- بعد اختيار Table Design ستفتح لنا نافذة تصميم الجدول كما في الصورة 4- الحقل الاول Field Name يتم فية ادخال عناوين الاعمدة (الحقول) 5- الحقل الثاني Data Type يتم فية تحديد نوع المتغير (رقم ، نص ، تاريخ ...الخ) 6- الحقل الثالث Description وهو حقل اختياري ويتم فية ادخال وصف لهذا العمود 7- في كل جدول يجب تحديد المفتاح الاساسي ويجب ان يحتوي هذا الحقل على قيمة فريدة لا تتكرر مع اي حقل اخر. 8 - بعد الانتهاء نقوم باغلاق الجدول وعندها ستظهر نافذة لتحديد اسم الجدول وحفظة . 9- بعد فتح الجدول سيكون شكله كما في الصورة 10- نلاحظ ان عنوان العمود الاول ظهر كما تم كتابتة في التصميم اما العمود الثاني فقد ظهر اسمة باللغة العربية والسبب انه تم اضافة تسمية للعمود من خصائص الحقل اثناء تصميم الجدول كما في الصورة وبذلك يكو...
اعرف المزيد »

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس

انشاء نموذج للدخول باسم مستخدم وكلمة مرور الى برنامج اكسس عندما يكون البرنامج متاح لاكثر من شخص للعمل علية فلا بد من حماية البرنامج من المستخدمين غير المصرح لهم من خلال اضافة نموذج للدخول الى قاعدة الببيانات، ولانشاء نموذج الدخول الى البرنامج نتبع الخطوات التالية: انشاء جدول للمستخدمين يتم فيه تخزين اسماء المستخدمين وكلمات مرورهم ويحتوي على حقل لاسم المستخدم وحقل لكلمة المرور انشاء نموذج للدخول ويحتوي على مربعي نص غير مستندة الى مصدر بيانات، وزري امر واحد للالغاء والثاني للدخول  اضافة الكود التالي في حدث عند النقر في زر موافق   VBA   If pas = DLookup("userpass", "tusers", "usernam='" & [usr] & "'") Then DoCmd.OpenForm "Form1" Else MsgBox "يوجد خطأ في اسم المستخدم او كلمة المرور" End If
8 تعليقات
اعرف المزيد »

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

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