safaa salem5 قام بنشر نوفمبر 14, 2023 مشاركة قام بنشر نوفمبر 14, 2023 مساء الخير الزملاء الاعزاء لو عندى تلاته option button ازاى اخلى المستخدم مايقدرش يختار غير واحده بس منهم زى الصوره كدا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 14, 2023 مشاركة قام بنشر نوفمبر 14, 2023 تفضلي ، هذا مثال بسيط Options.accdb رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 14, 2023 الكاتب مشاركة قام بنشر نوفمبر 14, 2023 45 minutes ago, Foksh said: Options.accdb 604 kB · 0 downloads هل ممكن اضافة كمان اتنين Option button وعند اختيار أحد الاتنين دول بيتم تفعيل الاختيار من التلاته اللى ف الاول وعند اختيار الاختيار الآخر بيتم إلغاء التمكين من الاختيار فى العناصر التلاته رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر نوفمبر 14, 2023 أفضل إجابة مشاركة قام بنشر نوفمبر 14, 2023 22 دقائق مضت, safaa salem5 said: هل ممكن اضافة كمان اتنين Option button وعند اختيار أحد الاتنين دول بيتم تفعيل الاختيار من التلاته اللى ف الاول وعند اختيار الاختيار الآخر بيتم إلغاء التمكين من الاختيار فى العناصر التلاته مثل هذا المرفق ؟ Options.accdb رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 15, 2023 الكاتب مشاركة قام بنشر نوفمبر 15, 2023 8 hours ago, Foksh said: مثل هذا المرفق ؟ Options.accdb 952 kB · 5 downloads برافو عليك متشكره جدا لحضرتك رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 15, 2023 الكاتب مشاركة قام بنشر نوفمبر 15, 2023 9 hours ago, Foksh said: تفضلي ، هذا مثال بسيط Options.accdb 604 kB · 5 downloads بالنسبه للمثال دا انا عارفه ان الاكسيس بيوفره جاهز بس انا عايزه اعرف الكود اللى بيتحط تحت الفريم الخاص بيهم لان انا عندى وضع مختلف شويه عندى 8 اوبشن فيهم اربعه لازم اختار واحده بس منهم والاربعه التانيين كل واحد خاص بنفسه وكل اوبشن بيتون جوا بوكس منفرد وليس فريم فعايزه الكود اللى بيتعمل رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 15, 2023 مشاركة قام بنشر نوفمبر 15, 2023 منذ ساعه, safaa salem5 said: فعايزه الكود اللى بيتعمل بسيطة ولا يهمك 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 15, 2023 الكاتب مشاركة قام بنشر نوفمبر 15, 2023 10 hours ago, Foksh said: بسيطة ولا يهمك منتظره الحل من حضرتك رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 10 ساعات مضت, safaa salem5 said: منتظره الحل من حضرتك اختي الكريمه ، محتاجه كود إيه بالزبط !!!!! رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 16, 2023 الكاتب مشاركة قام بنشر نوفمبر 16, 2023 11 hours ago, safaa salem5 said: منتظره الحل من حضرتك لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 36 دقائق مضت, safaa salem5 said: لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى انت عندك حاجتين اما خانة اختيار او مجموعة اختيارات 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 2 ساعات مضت, safaa salem5 said: لو كل زرار منفصل عن الآخر ومش تحت فريم واحد اعملها ازاى الحل الأول وهو استخدام الجملة الشرطية في الإخفاء والإظهار للأزرار ، والحل التاني انك تضيفي الأوبشنز للمجموعة التي تحتاجيها بشكل منفصل ، ونفس الحركة اللي عملناها في المرفق الثاني مني نعملها للأوبشنز التانيين حسب رغبتك ومتطلباتك . ولو لقيت حل تالت حبعتهولك هنا رابط هذا التعليق شارك More sharing options...
شايب قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 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 الشايب 2 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 16, 2023 الكاتب مشاركة قام بنشر نوفمبر 16, 2023 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 الشايب رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 16, 2023 الكاتب مشاركة قام بنشر نوفمبر 16, 2023 هو انا كدا عامله ايه غلط علشان مش عارفه اوصل للنتيجه اللى انا عايزاها عايزه ماينفعش اختار غير واحده بس منهم مع امكانية التبديل بينهم رابط هذا التعليق شارك More sharing options...
شايب قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 5 دقائق مضت, safaa salem5 said: هو انا كدا عامله ايه غلط علشان مش عارفه اوصل للنتيجه اللى انا عايزاها هل وضعت علامة في خصائص خانة الاختيار لكل خانة ترغبي في تطبيق الكود عليها رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر نوفمبر 16, 2023 الكاتب مشاركة قام بنشر نوفمبر 16, 2023 10 minutes ago, شايب said: هل وضعت علامة في خصائص خانة الاختيار لكل خانة ترغبي في تطبيق الكود عليها تمام كدا شكرا جدا لحضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان