كيفية عمل كود يمنع أو يسمح التمكين من زر في أحد صفحات النموذج

[عاشق الرقي]

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

اللهم تقبل منا ومن جميع المسلمين الصيام والقيام وصالح الاعمال

وجازي القائمين على هذا الموقع خير الجزاء والمشاركين والعاملين عليه

طلبي ... قدرت اتحكم في تمكين وعدم تمكين جميع الصفحة.. ولكن كيف اقوم بعمل إجراء تمكين أو عدم تمكين أي زر من الأزرار في صفحة معين من صفحات النموذج المتعدد

مرفق صورة

وتقبلوا الشكر والتقدير

تم تعديل يونيو 12, 2018 بواسطه عاشق الرقي

[kanory]

اخي الفاضل @عاشق الرقي ممكن مثال نطبق عليه فكرتك ... 

[عاشق الرقي]

الله يسعدك

لكن لم اتمكن من ارفاق الملف

مابعرف فين المشكلة

لاحظ اني وضعت الكود هذا في حدث عند التحميل

 If Me.admin = "admin" Then
 Me.Page366.ControlType [أمر173] = True
 Else
 Me.Page366.Enabled "أمر173" = False
 End If

ويكذا منعت التمكين لجميع الازرار في الصفحة اللي اسمها Page366

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

 

كيف ارفع المرفق

الحمدلله هذا المرفق

وشكرا

التحكم في زر أمر في صفحات النموذج المتعددة.rar

[kanory]

تفضل أخي @عاشق الرقي اسف لم ارى مثالك .... لذلك عملت لك مثال أخر

طبقه على مثالك ... او اطلب أن أطبقة لك على المثال ... بارك الله فيك

Ka_n.accdb

[عاشق الرقي]

أحسنت يا ألغالي

ولكن طلبي هو عند الضغط على التبويبة للصفحة أن يقوم الإجراء

بمعنى..ان يوضع الكود في نفس النموذج وعند الضغط على التبويبة الثانية او الصفحة الثانية أن يتم التمكين من عدمه بشرط توافق المعايير باداة الشرط If

ارجوا ان اكون وضحت المطلوب وجزاك الله خير

وازيد في التوضيح أخي الكريم

الشرط .. إذا كان المستخدم آدمن Admin قم بتمكين الزر في الصفحة المعنية وهكذا

انا عندي المعادلة

فقط احتاج إلى الكود اللذي يوجه الأمر إلى الزر الموجود في الصفحة المطلوبة ( كرقم الصفحة أو إسمها )

 

[kanory]

ولكن أخي @عاشق الرقي لم افهم ما هو الشرط المطلوب تحقيقة لتمكن الزر ... ارجو التوضيح ...

[عاشق الرقي]

دعنا من الشرط

خذ هذا الكود

End If
 
 If Me.المسمى = "عضو الجوازات" Then
 ElseIf Me.المسمى = "عضو مساند جوازات" Then
 ElseIf Me.admin = "admin" Then
 Me.Page363.Enabled = True
Else
لاحظ انه اذا تحقق الشرط يقوم بتمكين او عدم التمكين للصفحة اللي اسمها Page363 

فكيف اجعل الكود يقوم بعمل الإجراء للزر اللذي في هذه الصفحة

ارجوا ان اكون وفقت للشرح

واشكر لك سعة صدرك

فالتمكين هنا يتم على جميع مافي الصفحة

[kanory]

ولكن أخي @عاشق الرقي أين الكائن المسمى ليس له وجود

If Me.المسمى = "عضو الجوازات" Then
 ElseIf Me.المسمى = "عضو مساند جوازات" Then
 ElseIf Me.admin = "admin" Then
 Me.Page363.Enabled = True
Else

 

,ولكن حسب تصوري استخدم هذا الكود ... لأني لم استطع التجربة لأن النموذج الذي ارفقته ناقص يعض المسميات

'غير مسميات الازرة حسب
'Kl1
'kl2
If Me.المسمى = "عضو الجوازات" Then
Me.Kl1.Enabled = False
Me.Kl2.Enabled = False
ElseIf Me.admin = "admin" Then
 Me.Kl1.Enabled = True
 Me.Kl2.Enabled = True
End If

 

[عاشق الرقي]

أخي الغالي kanory

يا أستاذي فديت تصورك أنا

هذا المطلوب رغم إني ما أتوقعته بهذي البساطة وغاب عني البحث في الكمبو حق الخصائص

الله يقضي حاجتك وحاجة كل مسلم على وجه الأرض

أكرر شكري وتقديري

[kanory]

اشكرك @عاشق الرقي الحمد لله رب العالمين .

[عاشق الرقي]

أسمحلي أخي الكريم أن اشرح إللي فهمته من حضرتك وخبرتك

إتضح لي أن النموذج ذي التبويبات ( الصفحات المتعددة ) عند العمل على الفيجوال بيسك الخاص بها ستجد جميع المسميات للحقول والأزرار والصور الموجودة في النموذج والتبويبات سوف تظهر جميعها ( أي في الكمبوبوكس عند كتابة الأكواد) ومن ثم تضع المعايير المطلوبة .

شكراً جزيلاً وزادكم الله في علمكم

[kanory]

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