Textboxes in Userforms

[Dazed_]

I'm using a userform for data entry, which includes a textbox for a numeric code. My problem is that the textbox automatically kills all leading zeros... ie... 0104 will become 104. However i need these leading zeros as the are part of the code. Can anyone help me with this?

Cheers...

Daniel

 

[Damon Ostrander]

Hi Daniel,

I hope you are not too dazed.

Actually, you must set up the textbox for string input, because numerically there is no difference between 0104 and 104--they are both the value one hundred four. What I would recomend is that right after textbox entry you check the string using the VBA IsNumeric function to ensure that the string represents a legal numeric value. But from that point on, since you want 0104 to be distinct from 104 you must deal with it as a string. The second you convert the code to any numeric type (Integer, Long, Single, Double, etc.) it will lose its "distinctness."

 

[Juan Pablo González]

You could also try with this code (Which converts the text to a string)

<pre>
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "0000")
End Sub
</pre>

 

[Dazed_]

Thanks for your suggestions guys...

Just wondering, how would i set a textbox for string entry only, as opposed to numeric? It there an option somewhere that i can select?

Cheers...

Dan

 

[Dazed_]

Don't worry.... i've sorted it... i just set the cells i was putting the data into to be text format and its solved all my worries...



Cheers