اظهار حقول في النموذج بشرط معين

بإمكانك استخدام هذا الكود في حدث ( بعد التحديث ) للحقل الخاص بالمرحلة

 Select Case mrhala 

Case "ابتدائي"
' إظهار الابتدائي
s1.Enabled = True
s2.Enabled = True
s3.Enabled = True

' إخفاء المتوسط
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False

' إخفاء الثانوي
c1.Enabled = False
c2.Enabled = False
c3.Enabled = False

' إخفاء الصناعي
d1.Enabled = False
d2.Enabled = False
d3.Enabled = False

Case "متوسط"
' إظهار المتوسط
b1.Enabled = True
b2.Enabled = True
b3.Enabled = True

' إخفاء الابتدائي
s1.Enabled = False
s2.Enabled = False
s3.Enabled = False

' إخفاء الثانوي
c1.Enabled = False
c2.Enabled = False
c3.Enabled = False

' إخفاء الصناعي
d1.Enabled = False
d2.Enabled = False
d3.Enabled = False
Case "ثانوي"
' إظهار الثانوي
c1.Enabled = True
c2.Enabled = True
c3.Enabled = True

' إخفاء الابتدائي
s1.Enabled = False
s2.Enabled = False
s3.Enabled = False

' إخفاء المتوسط
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False

' إخفاء الصناعي
d1.Enabled = False
d2.Enabled = False
d3.Enabled = False
Case "صناعي"
' إظهار الصناعي
d1.Enabled = True
d2.Enabled = True
d3.Enabled = True

' إخفاء الثانوي
c1.Enabled = False
c2.Enabled = False
c3.Enabled = False

' إخفاء الابتدائي
s1.Enabled = False
s2.Enabled = False
s3.Enabled = False

' إخفاء المتوسط
b1.Enabled = False
b2.Enabled = False
b3.Enabled = False

End Select

تحياتي ..

اشكرك مشرفنا العزيز ووفقك الله لما يحب .

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

المشكلة ان الكود لايعمل الا اذا اتم تحديث المرحلة .