Solved Modify backcolor of a text field (1 Viewer)

[boerbende]

Dear readers

How can I modify textfield.backcolor via a function?

I use

Public Function ChangeColorDropDown(Variable As Variant, Backcolor As Long, Forecolor As Long)
If IsNull(Variable) Then
Backcolor = vbRed
Forecolor = vbWhite
Else
Backcolor = vbWhite
Forecolor = vbBlack
End If
End Function

Private sub dropdown1_afterupdate()
ChangeColorDropDown me.dropdown1, me.dropdown1.backcolor, me.dropdown1.forecolor
end sub

The colors are however not modified. What do I do wrong?

Many thanks

Ben

 

[arnelgp]

Public Function ChangeColorDropDown(Variable As Control, Backcolor As Long, Forecolor As Long)
If IsNull(Variable) Then
Variable.Backcolor = Backcolor
Variable.Forecolor = Forecolor
Else
Variable.Backcolor = vbWhite
Variable.Forecolor = vbBlack
End If
End Function

Private sub dropdown1_afterupdate()
ChangeColorDropDown me.dropdown1, vbred, vbwhite
end sub

 

[boerbende]

Indeed! Thanks Arnel

 

[The_Doc_Man]

Just as a side note: You defined a function but in fact this could have been a Sub. You are returning no value. Your call to activate the function would work equally well for Sub or Function because you weren't checking for any returned value. To avoid confusion in the future, may I suggest that you change the function to a sub?