allow only numbers in a textbox1

[tony.reynolds]

Id like to only allow numbers in a textbox. but if a user enters any other character only remove that character

At the moment i have this and it obviously removes all characters if any other character is entered. bit of a pain

Should be easy but i cant seem to find a way to remove the last character entered

Private Sub BudgetAmount_Change()
Cancel.Caption = "Cancel"
Done.Enabled = True
If Not IsNumeric(BudgetAmount) Then
BudgetAmount = Empty
End If
End Sub

 

[ayazgreat]

Maybe this you want.

Private Sub BudgetAmount_Change()
Cancel.Caption = "Cancel"
Done.Enabled = True
If (Not IsNumeric(BudgetAmount)) Then
BudgetAmount.Value = ""
End If
End Sub

 

[tony.reynolds]

Thanks,

My code worked fine with exeption that if i typed 1234e for instance the whole 1234 is removed. i want it to remove or not allow the letter.

 

[Ruddles]

Try:-

[FONT=Fixedsys]Private Sub BudgetAmount_Change()[/FONT]
[FONT=Fixedsys]Cancel.Caption = "Cancel"[/FONT]
[FONT=Fixedsys]Done.Enabled = True[/FONT]
[FONT=Fixedsys]If Not IsNumeric(BudgetAmount) Then[/FONT]
[FONT=Fixedsys][COLOR=red]  BudgetAmount = Left(BudgetAmount.Text, Len (BudgetAmount.Text) - 1)[/COLOR][/FONT]
[FONT=Fixedsys]End If[/FONT]
[FONT=Fixedsys]End Sub[/FONT]

 

[pgc01]

Hi

2 remarks:

IsNumeric() will return true if it's possible to convert the text value to number. In this case this means that it will accept for ex. spaces after the digits. I think, therefore, that is better if we test just the last character.

Also if you delete all the digits the IsNumeric() will error out and so it's better to test is the value is the null string.

For ex.:

If Len(BudgetAmount) > 0 Then
    If Not IsNumeric(Right(BudgetAmount.Text, 1)) Then
        BudgetAmount = Left(BudgetAmount.Text, Len(BudgetAmount.Text) - 1)
    End If
End If