Solved Text Box Color Changing Only At Debug But Not At OnLoad event code

[Ashfaque]

Hi,

For some reason, I am calculating some %age in a text box using vba codes in form's OnLoad event.

I have number of other text boxes with similar logical code to change the colors and the code is working.

But when the calculated %age figure goes more than 100, the color effect does not take place.

But when I debug the code step-by-step using F8 function key, it provide the textbox color as per condition.

Is there a way to correct it?

 If TxtAdmPerc.Value < 24.15 Then
               TxtAdmPerc.BackColor = RGB(255, 0, 0) ' Red
               TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
               TxtAdmPerc.FontBold = 12
    ElseIf TxtAdmPerc.Value >= 24.15 And TxtAdmPerc.Value < 40.15 Then
                TxtAdmPerc.BackColor = RGB(52, 79, 33) ' Light Green
                TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    ElseIf TxtAdmPerc.Value >= 40.15 And TxtAdmPerc.Value < 75.15 Then
                TxtAdmPerc.BackColor = RGB(255, 194, 14) ' Yellow
                TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    ElseIf TxtAdmPerc.Value >= 75.15 Then
                TxtAdmPerc.BackColor = RGB(84, 130, 53) ' Green
                TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    End If

 

[Ranman256]

Try putting the code in ON CURRENT instead of ON LOAD.
so the data can load.

 

[Gasman]

Anything in an OnLoad event occurs just once?, unless specifically called again.?
Forecolor appears to be white all the time, so no need to repeat?

 

[Minty]

Are you saying the other conditions definitely work with the code as expected?

Try it like this, a select case only evaluates the first true case, and I think is slightly more intuitive that elseif's

SELECT CASE Me.TxtAdmPerc
    Case >= 75.15
                Me.TxtAdmPerc.BackColor = RGB(84, 130, 53) ' Green
                Me.TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    Case >= 40.15
                Me.TxtAdmPerc.BackColor = RGB(255, 194, 14) ' Yellow
                Me.TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    Case >= 24.15
                Me.TxtAdmPerc.BackColor = RGB(52, 79, 33) ' Light Green
                Me.TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
    Case Else
                Me.TxtAdmPerc.BackColor = RGB(255, 0, 0) ' Red
               Me.TxtAdmPerc.ForeColor = RGB(255, 255, 255) ' white
               Me.TxtAdmPerc.FontBold = 12
End Select

 

[Ashfaque]

Try putting the code in ON CURRENT instead of ON LOAD.
so the data can load.

Thanks Ranman256

I shifted codelines to OnCurrent event of the form but is still same. I have attached pic just for ref. Percentage that is equal or less than 100....displaying colr effect but if more than 100 then code is not working I believe.

 

[Ashfaque]

Select case is no doubt good idea. It worked.

Thanks for all your support.