مشكلة في قائمة منسدلة

[mostafaelshnawy5]

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

لو سمحت عندي مشطلة في القائمة المنسدلة حيث عند الضغط علي زر في القائمة تظهر القائمة ولكن اذاضغط

علي  زر اخر في القائمه لا تختفي القائمه الاولي

اي عدم الاخفاء للقائمة عند الضغط ع زر اخر

قائمة منسدلة.rar

[biskra]

مجرد فكرة طبقتها على الحقل " تسجيل دفعات الصرف " من القائمة الأولى في حدث عند النقر على الفأرة ينقل مؤشر الفأرة قائمات المخالفات و يخفي بقية الحقول، ربما هناك حل آخر أحسن، لكن يمكنك تطبيق الفكرة على كل حقل من الحقول الكود

Private Sub f1_Click()
Me.Command5.SetFocus
Call xxx
End Sub

 

تم تعديل فبراير 17, 2021 بواسطه biskra

[mostafaelshnawy5]

2 hours ago, biskra said:

مجرد فكرة طبقتها على الحقل " تسجيل دفعات الصرف " من القائمة الأولى في حدث عند النقر على الفأرة ينقل مؤشر الفأرة قائمات المخالفات و يخفي بقية الحقول، ربما هناك حل آخر أحسن، لكن يمكنك تطبيق الفكرة على كل حقل من الحقول الكود

Private Sub f1_Click()
Me.Command5.SetFocus
Call xxx
End Sub

 

ولكن اذا ضغت ع قائمة تسجيل ثم ضغط علي قائمة المخالفات لا تختفي قائمة تسجيل

[biskra]

18 دقائق مضت, mostafaelshnawy5 said:

ولكن اذا ضغت ع قائمة تسجيل ثم ضغط علي قائمة المخالفات لا تختفي قائمة تسجيل

lممكن بالكود التالي عند الضغط على زر المخالفات

Private Sub Command5_Click()
Me.Command4.SetFocus
Call xxx
Me.m1.Visible = True
Me.m2.Visible = True
Me.m3.Visible = True
Me.m4.Visible = True
Me.m5.Visible = True
End Sub

 

[mostafaelshnawy5]

شكرا استاذي @biskra بارك الله فيك تم حل المشكلة

[biskra]

مجرد اقتراد للكود xxx حتى يسهل عليك التعامل معه عند التعدي غيره للتالي

Sub xxx()
 For i = 1 To 5
    Me.Controls("f" & i).Visible = False
Next i
End Sub