اختيار من مربع تحرير وسرد تقفل حقول

[badi]

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

لدي مربع تحرير وسرد بة نقدي - شيك - حوالة كيف اقدر اجعل اذا اختار نقدي يقفل الحقول واذا اختار شيك يقفل بعض الحقول واذا اختار حواله يقفل بعض الحقول عملت الكود علي نقدي كيف اقدرر اعمل الكود علي الشيك والحوالة

اخواني ارجو مساعدتي بالكود التالي

Private Sub العملية_AfterUpdate()

if Me .العمليلة.Text = "نقدي " Then

Me.شيك.Visible = False

Me.النوع.Visible = False

Me.المستفيد.Visible = False

Else

Me.الشيك.Visible = True

Me.النوع.Visible = True

Me.المستفيد.Visible = True

End If

End Sub

[badi]

ارجو سرعة الرد لاني محتاج الكود

[حاكم]

يمكنك إستخدام select case بدل IF

وتكون بعد تحديث حقل العملية كما في مثالك ....

بالصيغة التالية :

select case العملية
case is = "نقدي"
هنا تضع الشرط ( إخفاء أو إظهار الحقول )
case is = "شيك"
هنا تضع الشرط ( إخفاء أو إظهار الحقول )
case is = "حوالة"
هنا تضع الشرط ( إخفاء أو إظهار الحقول )
end select

إن شاء الله وصلت الفكرة ...

[badi]

مشكور اخي حاكم علي سرعة الرد

وياليت تفيدني بكود اخر وتحملونا شوي اخوكم يتعلم

عندي حقلين المودع - المصروف

اولا - عندما ادخل رقم بحقل المودع يقفل حقل المصروف والعكس

ثانيا- اذا ما ادخل بيانات بالحقلين تظهر رسالة ويرجع التركيز علي الحقل المودع

[badi]

ارجو المساعدة منكم