Passing control name into a public function

[benwah]

Hi

The problem I am having is when I use the parameter passed by the function as a control name. Any ideas?

Public Function EmpAgeCheckRed(txtField As Control)

Dim RedColor As Long

RedColor = RGB(255, 0, 0)

Me![txtField].BorderColor = RedColor

End Function


Thanks in advance
wah

 

[ToeShot]

what is the error your getting? Is this a module or behind the currrent for? If it is in A module pass the form and do the manipulation like so.

Public Function EmpAgeCheckRed(frmCurrent As Form)

Dim RedColor As Long

RedColor = RGB(255, 0, 0)

frmCurrent![txtField].BorderColor = Cstr(RedColor)

End Function

Also when setting a properties box it needs to be as a text value.