تغییر رنگ فونت کمبو باکس

[ITST-1]

با سلام

من فرمی دارم که روی اون یک کمبو باکسی گذاشتم که کنترل سورسس یک کوئری است.

حال می خواهم اگر کاربر مثلا ویندوز یا ورد یا اکسل یا پاور پوینت الی آخر را انتخاب کرد فونت آن قرمز گردد.
من یک کد نمونه را نوشتم ولی عمل نمی کند

If Combo4.Column(1) ="win xp" Then
Me.Combo4.BackColor = 255

با تشکر از شما

[انگوران]

می تونین از conditional formatting استفاده کنین .

[ITST-1]

با سلام
conditional formatting تا سه تار or را بیشتر نمی پذیرد و من نیاز بیشتر از 3 تا دارم

[انگوران]

می تونی از select case استفاده کنی مثلاٍ در رویداد exit کمبو به شکل زیر کد بنویس .
Select Case comboname
case is = " win xp " l
comboname.BackColor = vbRed
case is = " win 98 " l
combo neme.BackColor = vbGreen
else
...
End Select

[ITST-1]

با سلام

من کد شما رابه صورت زیر نوشتم اما خطایی نمی دهد ولی عمل هم نمی کند.
Private Sub Combo61_Exit(Cancel As Integer)
Select Case Combo61
Case Is = " win xp "
Combo61.BackColor = vbRed
Case Is = " GMP "
Combo61.BackColor = vbGreen

[انگوران]

یه نگاه به فایل ضمیمه بندازین

[ITST-1]

جناب انگوران من ازشما سپاسگزارم

اما من فکر می کنم که مشکلم را خوب بیان نکردم. من یک ساب فرم دارم که یکی از فیلدهای آن توسط یک کمبو باکس انتخاب می شود .ای ساب فرم دارای چند رکورد است .من می خواهم این فیلد هر کورد دارای رنگی شود که در شرایط انتخاب کردیم . و ای رنگ ثابت باشد.

[انگوران]

اگه بتونی فایلش رو اینجا بذاری تا روش کار کنیم بهتره اگه من نتونم مطمئناً دوستان مشکلتون رو حل می کنن

[ITST-1]

جناب انگوران

این برنامه در اکسس پروجکت است و امکان ارسال اون میسر نمی باشد.