بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
أخوانى لدى فى المرفقات نموذج يحتوى على
Combo Box , Chekbox
المطلوب عند أختيار أى أسم من الـ Combo Box يتم تفعيل الـ Chekbox
و إذا تم إختيار أسم ثابت ومحدد لا يتم التفعيل
لكم منى كل الشكر
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 27 أغسطس 2009 في 00:37
اخي الكريم هل لو سمحت توضيح اكثر للمطلوب فانا لم افهم طلبك؟
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
السلام عليكــم ورحمـة الله وبركاتــه ،،
بارك الله فيك اخي hema212006 وشكراً جزيلاً لك على تواصلك وحبك لمساعدة اخوانك .. وبعد اذنك وددت المساهمة في الحل
اخي bakkar2000
الاسهل ان تختبر وجود القيمة Faster بمربع التحرير والسرد
لاحظ التغيير في الكود
If Me.aa = "Faster" Then Me.y = 0 Else Me.y = 1 End If
بالتوفيق للجميع
تم تعديل هذه المشاركة بواسطة يوسف احمد في 27 أغسطس 2009 في 04:10
بسم الله الرحمن الرحيم
شكراً أخوانى جارى التحميل والتجربة وسوف نوافيكم الرد إن شاء الله تعالى
فى رعاية الله
بســم الله الـرحمــن الرحيــم
أخى الكريم / يوسف احمد .. شكراً لك
فكرة إختبار القيمة بمربع السرد فكرة قيمة وسهلة كما قلت
لكن عند إختيار قيمة فارغة أيضاً يتم تنشيط الـ Chekbox
و هذا ما حاولت تلافية فى مرفقاتى السابقة .. أرجوا الحل
جزاكم الله خيرا
السلام عليكــم ورحمـة الله وبركاتــه ،،
بارك الله فيك اخي بكر
تفضل التعديل على الكود
If Me.aa = "Faster" Or IsNull(Me.aa) Then Me.y = 0 Else Me.y = 1 End If
ارجو ان يكون هو المطلوب هذه المرة
بالتوفيق
بســم الله الـرحمــن الرحيــم
لك كل الشكر والتقدير أخى / يوسف أحمد .. على تفاعلك معى
عملك رائع .. وقد حاولت أنا أيضاً وفعلتها لكن بطريقتى وهذا هو الكود
If Me.Ptype = "individual" Then
شكراً لك أخى الكريم
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 28 أغسطس 2009 في 22:16 — السبب: تنسيق الكود