تعطيل أو حجب حقل بناءً على قيمة في النموذج

[gelani]

تحية طيبة لجميع الإخوة في هذا المنتدى الرائع

السؤال - عندي نموذج به بيانات عن مريض وأريد أن اخفي أو احجب خانة عدد مرات الولادة في حالة أن المريض ذكر وتنشط في حالة أن المريض أنثى حتى لا يحصل خطأ في النتائج .

وفقكم الله

[rudwan]

private sub form_current()
if me.sex=male then
me.child.visible=false
end if
end sub

حيث sex جنس الشخص

child خانة عدد مرات الولاده

[gelani]

شكراً جزيلاً على سرعة الرد

لم استطع الإستفادة حيث أنني قمت بما يلي ولم يعمل :-

صممت جدول يحتوي على الاسم والعمر والجنس وعدد الأطفال ( name +age+sex+child) وفي خانة child في النموذج ضغطت على الزر الأيمن للفارة وأخترت إنشاء حدث ثم إنشاء البرامج وألصقت الكود . ولم يعمل .

حاولت بطريقة أخرى وهي أنني قمت بإنشاء وحدة نمطية وألصقت الكود بها ولم يعمل أيضاً.

أرجو الإفادة وهل طريقتي صحيحة في وضع الكود وهل أستطيع كتابة الجنس ( ذكر أو أنثى ) بالعربي أو إختيارها من قائمة مثلاً.

مع أجمل وأرق تحية

[التقني]

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

بعد اذن أخي وعزيزي rudwan

الأخ gelani

انظر الى المثال في المرفقات

وبالتوفيق

M_F.rar

[gelani]

ألف شكر لك وللأخ rudwan ولجميع أعضاء هذا المنتدتى الرائع

كما أسأل الله أن يشفي والدتك وأن يدخل السعادة الى قلبك بسلامتها إن شاء الله .

[gelani]

تحية تقدير لجميع الإخوة

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

فهل من طريقة تخفي خانة عدد الولادات بمجرد المرور بالأسهم .

شاكرين لكم تجاوبكم

[التقني]

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

حياك الله أخي gelani

الحل بسيط بإذن الله ... فقط ضع الكود التالي في حدث عند التركيز للحقل Name :

Private Sub Name_GotFocus()
TimesP.Visible = False
End Sub

وبذلك نضمن اختفاء حقل عدد مرات الولادة عند كل سجل جديد ولا يظهر إلا عند اختيار أنثى

بالتوفيق أخي

[gelani]

الأخ التقني

أسأل الله أن ينور قلبك بالعلم والإيمان وأن يزيدك علماً وأن يجعل ما تقدمه أنت وجميع الإخوة في هذا المنتدى خالصاً لوجهة الكريم .

مع دعائي الخالص للأخ رضوان ووالدته التي أسأل الله أن يسبغ عليها ثياب العافية .