I have a GoFind Command button that fills in all of the text, combos, etc, when clicked. There are tons of objects to be filled and I am trying to fill the ones that do not have a value entered with a different color and "Input". Is there a quicker way than the following code to fill all of these in or do I really have to go thru each object and fill it in?? Early Thanks.

If IsNull(tb!TransAssnmtDate) = True Then
txtDateAssnd.Text = "Input Date"
txtDateAssnd.ForeColor = vbRed
Else
txtDateAssnd.ForeColor = vbBlack
txtDateAssnd.Text = (tb!TransAssnmtDate)
End If

If IsNull(tb!transCompleted) = True Then
txtTransCmpleted.Text = "Input Date"
txtTransCmpleted.ForeColor = vbRed
Else
txtTransCmpleted.ForeColor = vbBlack
txtTransCmpleted.Text = (tb!transCompleted)
End If