• Home
 · 
• String Manipulation
 · 
• Allow Numerals Only

Allow Numerals Only

After looking here and a few other places for a simple code that allows only numerals and not to allow text to be pasted into a textbox and with no prevail I figured it out. Not a major thing but for beginners this will help them.

Rate Allow Numerals Only

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

'Just Paste This in the change section of the textbox sub





Private Sub txtText1_Change()

'if an error should occur go to the error handler


 On Error GoTo txtText1_Change_Err 

 
'if the text entered is not numeric


100 If Not IsNumeric(txtText1.Text) Then 


'display the message box warning


102 MsgBox "Only Numerals Are Allowed", vbOKOnly + vbExclamation, "Numerals Only" 


 
 
 End If


 
 
 Exit Sub


'after handling the error and showing what line the error occured in if any 


' then resume the next action 




txtText1_Change_Err:


 MsgBox Err.Description & vbCrLf & _ 

 
"in Project1.Form1.txtText1_Change " & _ 


 "at line " & Erl


 Resume Next 


End Sub




you could easily have the textbox clear out by adding txt.text ="" but that is so basic I figured no need to add it.
Please if theres no code like this and it does indeed help you at least give me a vote for my time sharing this.