تشغيل تبويب و تعطيل التبويبات المتبقية ؟

[بوكفوس عبدالسلام]

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

هل بالإمكان عند فتح  الواجهة الرئيسية لقاعدة البيانات ( صورة 1 ) إجبارية إدخال البيانات في ( الولاية و البلديات ) بالتبويب الإعدادات  ( صورة 2 ) و الذي يكون نشيط ( enable ) أما باقي التبويبات ( المعوقين ، المنحة الشهرية ، ...) ( صورة 3 ) تكون معطلة ( disabled ) ، فعند الإنتهاء من إدخال البيانات في التبويب الإعدادات ، تشغل ( enable ) باقي التبويبات .

رابط قاعدة البيانات :

https://www.mediafire.com/file/m6cs3kn40yady1c/setup_Base_de_donn%C3%A9e.rar/file

[ابوخليل]

المرفق تم تحزيمه ويحتاج تنصيب على الجهاز

اذا برنامجك اكسس ، ارفق قاعدة البيانات فقط ، ويكفي ان يوجد بها كائنات حسب حاجتك فقط

[Moosak]

وعليكم السلام ورحمة الله وبركاته 🙂 

من غير تنزيل المرفق .. يمكنك أن تفعل ذلك من خلال دوال التحقق من وجود بيانات في جداول ( الولايات والبلديات ) كدالة DCount مثلا .. يتم الفحص عند فتح النموذج الرئيسي .. 

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

 

هذه هي الفكرة .. جرب تطبيقها بنفسك حتى تثري معلوماتك 🙂 

 

وتوجد لدي طريقة أستخدمها في برامجي عندما يكون لدي شيء أريد التحقق منه دائما في أماكن متفرقة في البرنامج .. هو تحويل عملية التحقق إلى دالة عامة Public Function من نوع (True/False) .. وهذا يسهل علي معرفة النتيجة بمجرد استدعاء اسم الدالة .. بدل تكرار الكواد عدة مرات ..

وهذا مثال عليها (التحقق من وجود سجلات في جدول الولايات مثلا ) :

Public Function WelayatIsThere() As Boolean

If DCount("*", "[Welayat_Tbl]") > 0 Then
    WelayatIsThere = True
Else
    WelayatIsThere = False
End If
End Function

وبهذا للتأكد من وجود سجلات في جدول الولايات فقط أكتب اسم الدالة هكذا : WelayatIsThere ومباشرة ستجيبك الدالة  بنعم أو لا  (True/False) 🙂 

وهذا مثال لطريقة كتابة الكود باستخدام الدالة السابقة :

Me.ListBtn.Enabled = WelayatIsThere

وهذه الطريقة تغنيك عن كتابة العديد من الأسطر حيث أن الدالة ترجع أحد القيمتين  (True/False) عليها سيتم تمكين القائمة أو لا ..

🙂 

[بوكفوس عبدالسلام]

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

تفضل أبو خليل بقاعدة البيانات.

H B M 64 bits.accdb

[Moosak]

6 دقائق مضت, بوكفوس عبدالسلام said:

تفضل أبو خليل بقاعدة البيانات

أخي @بوكفوس عبدالسلام يبدو أنك حذفت جميع الأكواد بالخطأ ..  الملف المرفق بدون أكواد لذلك جميع القوائم لا تعمل 

[بوكفوس عبدالسلام]

تفصل الرابط أدناه لتحميل الملف:

http://www.mediafire.com/file/u9k1js7441xzps2/H_B_M_64_bits.rar