Textbox numerical input

[liampog]

Hi

I have the following code which accepts numbers 0-9 in a textbox.

Private Sub txtb_Amount_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii
    
        Case Asc("0")
        
            If txtb_Amount.Value = 0 Then KeyAscii = 0
    
        Case Asc("1") To Asc("9")
        
        Case Else
        
            KeyAscii = 0
    
    End Select


End Sub

However, the default value is 0 and if you try to type numbers to the RIGHT of the zero (other than 0 again) it will allow it "01111". I don't want it to do that, I want that if you start to type a number other than zero, it changes the value to the first number you type.

So if default value is "0" and then you type a "1" to the RIGHT of the zero, it changes the whole textbox value to 1 and then allows you to continue typing numbers.

Thanks in advance for your help.

 

[liampog]

Hi

Nevermind, I worked it out for myself

This worked:

Private Sub txtb_Amount_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii


        Case Asc("0")
        
            If txtb_Amount.Value = 0 Then KeyAscii = 0


        Case Asc("1") To Asc("9")
        
            If (txtb_Amount.Value = 0 And txtb_Amount.SelStart = 1) Then KeyAscii = 0


        Case Else


            KeyAscii = 0


    End Select


End Sub

 

[liampog]

Okay, so this works but what I would ideally like is if you DO happen to enter a number to the RIGHT of the existing default 0, I want it to change the value of the box to that number that you enter and then allow numbers to be entered afterwards.

The only trouble is it fires up the Change event. Is there any way of disabling the Change event?

Private Sub txtb_Amount_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii


        Case Asc("0")
        
            If txtb_Amount.Value = 0 Then KeyAscii = 0


        Case Asc("1") To Asc("9")
        
            If (txtb_Amount.Value = 0 And txtb_Amount.SelStart = 1) Then txtb_Amount.Value = Chr(KeyAscii)


        Case Else


            KeyAscii = 0


    End Select


End Sub

 

[shg]

Private Sub txtb_Amount_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Static bItsjustMe     As Boolean

  If Not bItsjustMe Then
    bItsjustMe = True
    Select Case KeyAscii
      Case Asc("0")
        If txtb_Amount.Value = 0 Then KeyAscii = 0
      Case Asc("1") To Asc("9")
        If (txtb_Amount.Value = 0 And txtb_Amount.SelStart = 1) Then txtb_Amount.Value = Chr(KeyAscii)
      Case Else
        KeyAscii = 0
    End Select
    bItsjustMe = False
  End If
End Sub

 

[liampog]

Hi

This still allowed numbers to be entered to the RIGHT of the existing zero in the box.

Thanks
Liam

 

[shg]

I was addressing this:

The only trouble is it fires up the Change event. Is there any way of disabling the Change event?

You said you'd sorted the other problem -- I didn't look at the rest of the code.

 

[liampog]

Oh okay thanks for your reply though. It worked for the problem highlighted.

 

[shg]

If you start from the top and explain what you're trying to do, I'll look.

I don't understand at all from your first post. What's the objective?

 

[liampog]

If you start from the top and explain what you're trying to do, I'll look.

I don't understand at all from your first post. What's the objective?

Basically, I want to be able to enter a number into a textbox. I have the relevant KeyPress event set up to only accept numbers. The default value is 0, however, if you place the cursor to the right of the default zero and type numbers, it allows them. For example "01111" would be an acceptable number. I wanted to code is to that if you do happen to have the cursor to the right of the default zero and enter a number "1" for example, it changes the 0 to a 1 instead of displaying "01".

I actually managed to work it all out though now

Thanks again.

 

[shg]

Good job.