كود لمنع فتح النموذج الفرعي مباشرة الا من خلال فتح النموذج الرئيسي

[عبدالله المجرب]

السلام عليكم 

اخواني الكرام اطلب منكم مساعدتي في الحصول على كود لمنع فتح الفورم الفرعي مباشرة الا بوجود الفورم الرئيسي .

علماً بأني سابقاً قراءت عنه لكني بحثت ولم اجد.

 

 

[ابوخليل]

تفضل ابو احمد

هذه من عندي .. آمل التقييم

subform.rar

[عبدالله المجرب]

جميل جداً 

وهو المطلوب وفكرته سهله ولذيذة

+1

[عبدالله المجرب]

السلام عليكم 

يظهر لدي بأن الكود يتفعل عند فتح الفورم الرئيسي لانه مرتبط به وليس كهذه الحالة  بحيث يمنع الفتح 

Private Sub Form_Load()
Sub1.SourceObject = "sub1"
End Sub

فهل من حل

[ابوخليل]

 وليس كهذه الحالة  بحيث يمنع الفتح 

هذه تحتاج الى زيادة ايضاح

 

 

الفتح والارتباط يتم على خطوات

اولا يفتح الرئسي بدون ارتباط ليعطي الرقم 1 للمتغير ثم يرتبط بالفرعي

 

حيث لا يمكن فتح النموذج الفرعي مادام الرئيسي مغلقا

[ابوخليل]

من الطرق ايضا 

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

 

بمعنى انه لايمكن فتح النماذج عند عرض التصميم 

[عبدالله المجرب]

اي بمعنى ان الفورم الفري مرتبط بالرئييسي اثناء التصميم وليس بعد يرتبط به 

[ابوخليل]

اما دخول صحيح وتفتح النماذج كلها ،او لا تفتح ابدا

امهلني الى الليل سأرفق مثالا... ان لم تسبقني الى ذلك

[عبدالله المجرب]

جربت الفكرة ونجحت

وهي شاشة الصلاحيات تعطي tst  القيمة 1 وفي حدث الفتح لكل فورم (الرئيسي او الفرعي) استدعاء الوحدة النمطية 

في حدث الاغلاق tst يساوي 0 فاذا كان الدخول من خلال فورم الصلاحيات تفتح النماذج أو لا تفتح

 

 

اما دخول صحيح وتفتح النماذج كلها ،او لا تفتح ابدا

[ابوخليل]

نعم  

 

في حدث الاغلاق tst يساوي 0

 

يمكن الاستغناء عنها لانه عند اغلاق القاعدة  يصبح قيمة المتغير صفرا

[أكرم العريفي]

قم بإستخدام برنامج ال والذي بدورة سيمنع فتح النوافذ في عرض التصميم access developer extensions