Textbox Help

[gti_jobert]

Hi all,

I have a textbox where I want the user to enter a 6 digit
number.....how can I format the text box so it always displays
'100xxxxxx' where x = the 6 digit user input.

TIA guys!

 

[Guest]

Use Format | Cell and use the Custom tab, enter 100###### as a new custom
format to be applied.

 

[Bob Phillips]

Private Sub TextBox1_Change()
Static fReEntry As Boolean
If Not fReEntry Then
fReEntry = True
With Me.TextBox1
If Len(.Text) > 1 Then
.Text = Right(.Text, Len(.Text) - 3)
End If
.Text = Format(.Text, """100""0")
End With
fReEntry = False
End If
End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

 

[Guest]

Oops, my bad - it is the textbox you want to display the format that way in,
not a cell which echos the input. I don't believe you can do that type of
custom formatting with the text box.

 

[gti_jobert]

Thanks again bob, always appreciate your input