زر واحد يقوم باكثر من امر

[jo_2010]

السادة الافاضل خبراء الاكسيس

هل من الممكن جعل زر واحد يقوم ب3 اوامر

مثال 

نموذج بة الاسم والنوع

اريد عمل زر

عند الضغط علية يجعل خانة النوع افتراضى سيدات

وعند الضغط علية مرة اخرى يجعل خانة النوع افتراضى رجال

وعند الضغط علية  مرة ثالثة يجعل خانة النوع افتراضى اطفال

هل هذا ممكن ام انة طلب مستحيل تحقيقة

لكم الشكر

 

[kha9009lid]

نعم ممكن ومن اسهل الطرقلتنفيذ ذلك

If Me![c_8].Caption = "نساء" Then
Me.Type = "نساء"
Me.c_8.Caption = "رجال"
ElseIf Me![c_8].Caption = "رجال" Then
Me.Type = "رجال"
Me.c_8.Caption = "اطفال"
ElseIf Me![c_8].Caption = "اطفال" Then
Me.Type = "اطفال"
Me.c_8.Caption = "نساء"
End If

وتفسيرة كما يلي

1. اذا كانت تسمية زر الامر نساء
2. اجعل قيمة النوع نساء
3. غير تسمية الامر الى رجال
4. اذا كانت تسمية الامر رجال
5. اجعل النوع رجال
6. غير تسمية الامر الى اطقال
7. اذا كانت تسمية الامر اطفال
8. اجعل النوع اطفال
9. غير التسمية لزر الامر الى نساء وذلك للاستمرار في دورة تنفيذ الكود
10. اغلق الشرط

الملف مرفق

Database1011.accdb

[الحلبي]

ربنا يبارك لك استاذنا والمعلم الجدير ورزقك اينما كنت 

[ابو جودي]

بعد اذن استاذى القدير الاستاذ @kha9009lid🌹

وهذه على طريقة المعقدين امثالي😀

Database1012.accdb

تم تعديل مارس 26, 2020 بواسطه ابا جودى

[kha9009lid]

6 دقائق مضت, ابا جودى said:

وهذه على طريقة المعقدين امثالي

نور الموقع بمشاركة ابا جودي استاذنا الغالي

كما تعلم يا ابا جودي رواد الموقع فيهم المحترف ومتوسط المستوى والمبتدي

وفي ردودي احاول دائما ان ابسط الردود ليستوعبها المبتدي حتى لو كان الكود اطول

لان الاختصار واستخدام المتغيرات قد لا يستوعبه غير المحترفين لذا في كثير من ردودي اشرح ماقمت به ليكون الحل اكثر وضوحا للمتلقي

وتقبل اطيب تحياتي

 

 

3 ساعات مضت, حلبي said:

ربنا يبارك لك استاذنا والمعلم الجدير ورزقك اينما كنت 

نورت الموقع دكتور حلبي

[ابو جودي]

2 دقائق مضت, kha9009lid said:

نور الموقع بمشاركة ابا جودي استاذنا الغالي

كما تعلم يا ابا جودي رواد الموقع فيهم المحترف ومتوسط المستوى والمبتدي

وفي ردودي احاول دائما ان ابسط الردود ليستوعبها المبتدي حتى لو كان الكود اطول

لان الاختصار واستخدام المتغيرات قد لا يستوعبه غير المحترفين لذا في كثير من ردودي اشرح ماقمت به ليكون الحل اكثر وضوحا للمتلقي

وتقبل اطيب تحياتي

 

 

نورت الموقع دكتور حلبي

جزاكم الله خيرا استاذى الجليل واخى الحبيب 🌹 انتم النور كله والبهاء والحسن والجمال

و يا استاذى الجليل لذلك عند مشاركتى كتبت ان هذه على طريقة المعقدين 😁