Ensuring textbox has specified number of digits

[AndyE]

Hi all

I was just wondering how I would go about ensuring that a textbox could auto format to display the correct number of digits that I need, in this case 6, i.e.


If the user was to type "1" the textbox would display "000001" and if the the user was to type "1486" the textbox wouyld display "001486" and so on...

I'm assuming that this would fall within an AfterUpdate sub?

Many thanks,

Andy

[daboho]

Perhab like this
Or you can do using textbox_upterUpdate

private sub textbox1_change()
Dim t$,t1$
If isnumeric(textbox1.value) = true then 
  t = textbox1.value
  t1 = 000000
  If len(t1) > len(t) then
    Textbox1.value = StrReverse(Replace(strReverse(t1),0,t,1,len(t)))
  End if
End if
End sub

[AndyE]

Thanks Daboho

I've just tried that but t=000000 keeps changing to t=0 when I enter it.

[daboho]

Thanks Daboho

I've just tried that but t=000000 keeps changing to t=0 when I enter it.

Try Change to event upter update

[daboho]

Or try this not test

const t1 as string =000000
private sub textbox1_AfterUpdate()
If isnumeric(textbox1.value) = true then 
  t = textbox1.value
  If len(t1) > len(t) then
    Textbox1.value = StrReverse(Replace(strReverse(t1),0,t,1,len(t)))
  End if
End if
End sub

[AndyE]

t1 will not hold the 000000 value. It keeps reverting to 0.

[daboho]

Private Sub TextBox1_Change()
Dim t1$
t1 = TextBox1.Value
t1 = String(6 - Len(t1), "0") & t1
MsgBox t1
TextBox1.Value = t1: t1 = ""
End Sub

[jindon]

AndyE,

Try this

Private Sub TextBox1_Change()
    If Len(Me.TextBox1.Value) = 0 Then Exit Sub
    With Me.TextBox1
        .Value = Format$(Val(.Value), "000000")
    End With
End Sub

[AndyE]

Thank you.