كيف أفعّل خيار واحد فقط من عدة حقول نعم / لا ؟

يمكنك ذلك باستخدام ( مجموعة خيار ) إذا كنت تعرفها ولا ممكن أشرح لك بالتفصيل .

وهذا مثالك بعد التعديل أرجو أن يعجبك :)

db2.rar

أعرف هذا ولكن أنا أريد هذه الطريقة

إن أمكنك أن تعدل على المرفق فلك الشكر الجزيل .

والله الطريقة جميلة ياليت تشرحها لي

ويا ليت تقدر تعدلي المثال اللي أنا مرفقه .

أنت أو أي أحد من الإخوة الكرام .

وألف شكر على مرورك أخي الكريم .

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

الأخ الكريم أبو عبير 2005

رغم انى شخصيا مقتنع تماما بفاعلية طريقة الاخ الكريم معاوية وانها الاكثر اختصارا.

الا انك انت ادرى ببرنامجك , ومرفق ملفك بعد عمل تعديل عليه , اتمنى يكون هو المطلوب.

وبالله التوفيق ,,,

db1.rar

ألف ألف مليوووووووووووووووووووون شكر

بارك الله فيك ورحم والديك وأصلح لك الذرية .

الأخوة الأعزاء

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

حاولت أن أطبق المثال الذي أرفقه الأستاذ عماد حمدى احمد

على برنامج آخر

ولكن المشكلة تظهر رسالة خطأ في الكود call del

الأخ عماد حمدى احمد

هل ادرجت مكتبة أو شيء ما

أرجو أن تشرح لي الطريقة

ولك الشكر

ودمت في حفظ الله .

أرفقت لك صورة الخطأ .

______call.rar

اخي الفاضل ابو عبير

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

انت تتعامل الآن مع متغيرات في الكود

لو نظرت اخر الكود في محرر الفيجول بيسك تلاحظ ان اساس الوظيفة المتحكمة بالكتغيرات هي

Private Sub del(x, y, z)
x.Value = 0
y.Value = 0
z.Value = 0
End Sub

ماذا تلاحظ هنا ( يوجد ثلاث متغيرات هي X Y Z )

والمثال السابق يتم استدعاء الوظيفه DEL في حدث بعد التغيير للحقل A بهذا الشكل

Private Sub a_AfterUpdate()
Call del(b, c, d)
End Sub

نأتي الان للصوره التي قمت بإرفاقها

لاحظ انه لا يوجد سوى حقلين لديك هما اللذان سيقع عليهم الحدث وهما B C

لهذا كل ما عليك هو الذهاب الى الوظيفة DEL في اخر الكود وحذف المتغير الثالث فقط ليصبح بهذا الشكل

Private Sub del(x, y)
x.Value = 0
y.Value = 0
End Sub

شايف الموضوع كيف سهل ولا يوجد به مشكله

الله يرحم والديك ويصلحلك الذرية