Passing variables

[OEB]

This is a snippet of my code:

Public Sub ColorControl(FieldValue, FieldName)
Dim ctrl As Control
Dim StatusNumber As Long
StatusNumber = FieldValue
Set ctrl = Me!FieldName

Getting error because it can't find FieldName. When I debug I see that the
FieldName is being passed correctly, but it can't find it. My syntax is
probably wrong, but how do I fix it?

 

[Dale Fye]

Try:

Set ctrl = me.controls(FieldName)

HTH
Dale