طلب كود لاظهار تيكست بوكس

لنفترض أن لديك مربع تحرير وسرد بعنوان cmb1 ومربع نص عدد ٣ بعنوان :

Txt1

Txt2

Txt3

قم بإضافة أسماء مربعات النص إلى value list لمربع التحرير والسرد

ثم قم بإنشاء زر أمر وضع الكود التالي في حدث بعد التحديث:

If me.cmb1.value = "Txt1" then

Me.Txt1.visible = true

End if

If me.cmb1.value = "Txt2" then

Me.Txt2.visible = true

End if

If me.cmb1.value = "Txt3" then

Me.Txt3.visible = true

End if

بالتوفيق أخي العزيز

شكرا جدا اخى 

بعد اذن اخى العزيز هذا حل اخر بدون الزر

db1.rar