Hi!
Create the label, or textbox, and set it's visible property to false and then add this code to your unbound text box:
Private Sub YourTextBox_GetFocus()
YourLabel.Visible = True
YourLabel.Caption = Nz(Len(YourTextBox), 0)
End Sub
Private Sub YourTextBox_Change()
YourLabel.Caption = Nz(Len(YourTextBox), 0)
End Sub
Private Sub YourTextBox_LostFocus()
YourLabel.Visible = False
End Sub
This should give you a start.
hth
Jeff Bridgham
bridgham@purdue.edu