ربط كومبو بوكس و text box

[ymramadan]

اخواني المبرمجين قمت بعمل برنامج وفي احد النماذج اريد ربط كومبو بوكس بـ Text box بحيث إذا اختار المستخدم Quarterly تكون قيمة الـ Text تساوي 90 وإذا اختار Semi annually تكون قيمة الـ Text تساوي 180

[التقني]

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

قاعدة Select Case تفي بالغرض

انظر الى الكود أدناه :

Private Sub Menu_BeforeUpdate(Cancel As Integer)
Select Case [Menu]
Case Is = "Quarterly"
Box.Value = 90
Case Is = "Semi annually "
Box.Value = 180
End Select
End Sub

Box هي مربع النص الذي تظهر فيه القيم 90 و 180

Menu هي قائمة التحرير والسرد وفيه القيمتين Quarterly و Semi annually

والمرفقات فيها مثال على ذلك

وبالتوفيق

ymramadan.rar

تم تعديل سبتمبر 13, 2005 بواسطه التقني

[ymramadan]

جزاك الله خيراً ولكن لم تعمل لدي ولعل السبب وجود اكثر من كومبو آخر وtext box في نفس النموذج.

[التقني]

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

بالنسبة للكود الذي أرفقته

يعمل على كومبو بوكس واحدMenu

ومربع نص واحد Box

يمكنك إضافة مربع نص آخر إن شئت ضمن نفس الكود

مثال على ذلك :

لنفرض أن مربع النص الثاني أسمه BBB بالإضافة الى BOX فيكون لدينا الكودالتالي :

Private Sub Menu_BeforeUpdate(Cancel As Integer)
Select Case [Menu]
Case Is = "Quarterly"
Box.Value = 90
BBB.value= 180
Case Is = "Semi annually "
Box.Value = 180
BBB.value= 90
End Select
End Sub

هكذا استطعنا إضافة مربعي نص

ولكن إذا أردت ان ترفق كومبوبوكس آخر يمكنك نسخ الكود مع تغيير المسميات

[ymramadan]

جزاك الله خيراً اخي التقني تعمل بكفاءة