--------------------------------------------------------------------------------

All I want to do is a create function that checks the text in a form field, and then dependant on value assign a font color. So my code I was thinking would look something like this

Dim txt As textBox

set txt = txtBoxName

FormatTxtBox(txtBoxName)

Public Function FormatTxtBox(txt As TextBox)

If txt.text="Not Available" Then
txt.foreColor="Red"
end if


End Function

I just get a runtime error 424 Object required??

Pls Help

Before anyone suggests conditional formatting there are 10 Possible values. I think conditional formatting only allows for a maximum of three

What event are you putting this on?

Anyway, I do something like this:

Dim sText As String

If IsNull(Me.txtYourTextBox) or Me.txtYourTextBox = "" Then
   sText = "Some value"
Else
   sText = Me.txtYourTextBox
End If

Select Case sText
    Case "Not Available"
          Me.txtYourTextBox.ForeColor = vbRed
    Case "Some other value"
          Me.txtYourTextBox.ForeColor = vbGreen
    Case ...
End Select

Did that help any? You will need to copy and paste this to the On Current event, and the Before Insert and Before Update events on the form.

mmcdonal

If this is for a report, put the code in the On Format event for whatever section the text box is in, like the Group Header or Detail section.

mmcdonal