كيف أجعل حقل يظهر على حسب قيم في حقل أخر

بســم الله الـرحمــن الرحيــم

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

تفضل

ek_family.rar

ekseer كتب:

بســم الله الـرحمــن الرحيــم

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

تفضل

استاذ اكسير صباح الخير

ممكن تشرح كيف عملتها

يعطيك العافية أخي/ أكسير و زادك الله من فضله

بوجهاد كتب:

استاذ اكسير صباح الخير

ممكن تشرح كيف عملتها

أخ/ بو جهاد

في الحالي للنموذج ضع هذا

If Me.hz = "ذكر" Then

Me.az.Visible = False

Me.naz.Visible = False

Else

Me.az.Visible = True

Me.naz.Visible = True

End If

و معذرة أخ أكسير على التقدم عليك و الإجابة

تحياتي

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

space1 كتب:

يعطيك العافية أخي/ أكسير و زادك الله من فضله

أخ/ بو جهاد

في الحالي للنموذج ضع هذا

If Me.hz = "ذكر" Then

Me.az.Visible = False

Me.naz.Visible = False

Else

Me.az.Visible = True

Me.naz.Visible = True

End If

و معذرة أخ أكسير على التقدم عليك و الإجابة

تحياتي

الرجاء المعذرة على التدخل ولكني احب تبسيط الكود قدر الامكان

حيث يمكن تنفيذ الكود السابق بطريقة ابسط وهي

private sub hz afterupdate()
Me.az.Visible = (Me.hz = "انثى" )
Me.naz.Visible = (Me.hz = "انثى" )
end sub

ناصر المصاروة

Naser Al Masarwa كتب:

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

الرجاء المعذرة على التدخل ولكني احب تبسيط الكود قدر الامكان

حيث يمكن تنفيذ الكود السابق بطريقة ابسط وهي

private sub hz afterupdate()
Me.az.Visible = (Me.hz = "انثى" )
Me.naz.Visible = (Me.hz = "انثى" )
end sub

ناصر المصاروة

مشكور أخ ناصر و ما قصرت

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

تحياتي و ما منكم اقصور جميعاً

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

شكراً على التصحيح الاملائي ولكني تعودت استخدام الالف المعجمة لانها تدل على جميع انواع الالف

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

private sub hz afterupdate()
Me.az.Visible = (Me.hz <> "ذكر" )
Me.naz.Visible = (Me.hz <> "ذكر" )
end sub

ناصر المصاروة

الله يعطيك العافية أخ ناصر

و بعد تجربته لم يضبط معي فهل بإمكانك تحميل الملف بعد التنفيذ

و تحياتي

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

تم التعديل

استخدام الاسماء العربية يسبب الكثير من المشاكل

family.rar

ناصر المصاروة

مشكور أخ ناصر

و الله يجازيك بألف خير