option button طريقة تحديد اختيار واحد من تلاته

[safaa salem5]

مساء الخير

الزملاء الاعزاء لو عندى تلاته

option button

ازاى اخلى المستخدم مايقدرش يختار غير واحده بس منهم زى الصوره كدا

 

[Foksh]

تفضلي ، هذا مثال بسيط

 

Options.accdb

[safaa salem5]

45 minutes ago, Foksh said:

 

Options.accdb 604 kB · 0 downloads

هل ممكن اضافة كمان اتنين 

Option button

وعند اختيار أحد الاتنين دول بيتم تفعيل الاختيار من التلاته اللى ف الاول

وعند اختيار الاختيار الآخر

بيتم إلغاء التمكين من الاختيار فى العناصر التلاته

[Foksh]

22 دقائق مضت, safaa salem5 said:

هل ممكن اضافة كمان اتنين 

Option button

وعند اختيار أحد الاتنين دول بيتم تفعيل الاختيار من التلاته اللى ف الاول

وعند اختيار الاختيار الآخر

بيتم إلغاء التمكين من الاختيار فى العناصر التلاته

مثل هذا المرفق ؟

Options.accdb

[safaa salem5]

8 hours ago, Foksh said:

مثل هذا المرفق ؟

Options.accdb 952 kB · 5 downloads

برافو عليك متشكره جدا لحضرتك

[safaa salem5]

9 hours ago, Foksh said:

تفضلي ، هذا مثال بسيط

 

Options.accdb 604 kB · 5 downloads

بالنسبه للمثال دا انا عارفه ان الاكسيس بيوفره جاهز بس  انا عايزه اعرف الكود اللى بيتحط تحت الفريم الخاص بيهم

 لان انا عندى وضع مختلف شويه عندى 8 اوبشن فيهم اربعه لازم اختار واحده بس منهم 

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

فعايزه الكود اللى  بيتعمل

[Foksh]

منذ ساعه, safaa salem5 said:

فعايزه الكود اللى  بيتعمل

بسيطة ولا يهمك 

[safaa salem5]

10 hours ago, Foksh said:

بسيطة ولا يهمك 

منتظره الحل من حضرتك 

[Foksh]

10 ساعات مضت, safaa salem5 said:

منتظره الحل من حضرتك 

اختي الكريمه ، محتاجه كود إيه بالزبط !!!!!

 

[safaa salem5]

11 hours ago, safaa salem5 said:

منتظره الحل من حضرتك 

لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى

[عمر ضاحى]

36 دقائق مضت, safaa salem5 said:

لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى

انت عندك حاجتين 

اما خانة اختيار او مجموعة اختيارات 

 

[Foksh]

2 ساعات مضت, safaa salem5 said:

لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى

الحل الأول وهو استخدام الجملة الشرطية في الإخفاء والإظهار للأزرار ، والحل التاني انك تضيفي الأوبشنز للمجموعة التي تحتاجيها بشكل منفصل ، ونفس الحركة اللي عملناها في المرفق الثاني مني نعملها للأوبشنز التانيين حسب رغبتك ومتطلباتك .

 

ولو لقيت حل تالت حبعتهولك هنا

[شايب]

2 ساعات مضت, safaa salem5 said:

لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى

العملية بسيطة

وممكن الوصول لذلك باكثر من طريقة

طريقة استخدام الشروط لكل خانة خيار وهي طريقة تؤدي الغرض ولكنها تستدعي التكرار وصف اسماء الخانات ووو ... لا تعجب اخونا شايب

الطريقة الثانية اذا كنا نرغب في تطبيق العمل على مجموعة من خانات الاختيار بدون استثناء ماعدا الخانة التي يتم النقر عليها فيمكن كتابة اجراء فرعي يمر على كافة الخانات في النموذج ويقوم باستبدال قيمتها الى 0 ماعدا الخانة التي تم اختيارها

Sub x()
Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = 105 Then
    ctl.Value = 0
    End If
    Next ctl
    Me.ActiveControl = -1
End Sub

ويتم استدعاء الاجراء عند النقر

x

اما اذا اردنا تطبيق الامر على بعض الخانات واستثناء البعض منها فيمكن بدلا من الاشارة الى نوع خانات الاختيار وهي هنا 105

بدلا من ذلك نستخدم خاصية tag

ويكون الاجراء

Sub x()
Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.Tag = "*" Then
    ctl.Value = 0
    End If
    Next ctl
    Me.ActiveControl = -1
End Sub

ويستدعى بنفس الطريقة

في الصورة تم تطبيق الامر على خانة اختيار وقيمتها 105 وخانة تدقيق وقيمتها 106

الشايب

 

[safaa salem5]

40 minutes ago, شايب said:

العملية بسيطة

وممكن الوصول لذلك باكثر من طريقة

طريقة استخدام الشروط لكل خانة خيار وهي طريقة تؤدي الغرض ولكنها تستدعي التكرار وصف اسماء الخانات ووو ... لا تعجب اخونا شايب

الطريقة الثانية اذا كنا نرغب في تطبيق العمل على مجموعة من خانات الاختيار بدون استثناء ماعدا الخانة التي يتم النقر عليها فيمكن كتابة اجراء فرعي يمر على كافة الخانات في النموذج ويقوم باستبدال قيمتها الى 0 ماعدا الخانة التي تم اختيارها

Sub x()
Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = 105 Then
    ctl.Value = 0
    End If
    Next ctl
    Me.ActiveControl = -1
End Sub

ويتم استدعاء الاجراء عند النقر

x

اما اذا اردنا تطبيق الامر على بعض الخانات واستثناء البعض منها فيمكن بدلا من الاشارة الى نوع خانات الاختيار وهي هنا 105

بدلا من ذلك نستخدم خاصية tag

ويكون الاجراء

Sub x()
Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.Tag = "*" Then
    ctl.Value = 0
    End If
    Next ctl
    Me.ActiveControl = -1
End Sub

ويستدعى بنفس الطريقة

في الصورة تم تطبيق الامر على خانة اختيار وقيمتها 105 وخانة تدقيق وقيمتها 106

الشايب

 

 

[safaa salem5]

هو انا كدا عامله ايه غلط علشان مش عارفه اوصل للنتيجه اللى انا عايزاها 

عايزه ماينفعش اختار غير واحده بس منهم

مع امكانية التبديل بينهم

[شايب]

5 دقائق مضت, safaa salem5 said:

هو انا كدا عامله ايه غلط علشان مش عارفه اوصل للنتيجه اللى انا عايزاها 

هل وضعت علامة في خصائص خانة الاختيار لكل خانة ترغبي في تطبيق الكود عليها

 

[safaa salem5]

10 minutes ago, شايب said:

هل وضعت علامة في خصائص خانة الاختيار لكل خانة ترغبي في تطبيق الكود عليها

 

تمام كدا شكرا جدا لحضرتك