Formatting

buntykins · Apr 26th, 2002, 01:05 AM

Hi all, what VB code do I put in so that users can only enter numbers into a textbox?

Janie

Mudface · Apr 26th, 2002, 01:12 AM

Try something like: -

If Not IsNumeric(TextBox1.Text) Then ...

Colo · Apr 26th, 2002, 01:16 AM

Hi.
Assume the textbox is on an userform.



Private Sub TextBox1_Change()

    With TextBox1

        If Not IsNumeric(.Text) And .Text <> "" Then

            .Text = Left(.Text, Len(.Text) - 1)

        End If

    End With

End Sub

Regards,
Colo

[ This Message was edited by: Colo on 2002-04-26 01:17 ]

buntykins · Apr 26th, 2002, 01:20 AM

That's great, it kind of works, but the SetFocus bit won't work? I'd like it to remain in Textbox1 so they can try again. Do you know what I'm doing wrong? I've put the following code in Textbox1's exit event:

If Not IsNumeric(TextBox1.Text) Then
MsgBox ("Must be a number")
TextBox1.SetFocus
TextBox1.Value = ""
Else
TextBox2.SetFocus
End If

Thanks
Janie

buntykins · Apr 26th, 2002, 01:22 AM

Oooh that's great code, that does exactly it, thanks Colo!

Janie

xx

Mudface · Apr 26th, 2002, 01:25 AM

Not sure as I can't test this at the minute, but it might be better to do that when a command button is clicked- ie stick all your checking code in the Click event.

Or, you could try Colo's which I think will check as the user types in the textbox.

I see you already have

.

[ This Message was edited by: Mudface on 2002-04-26 01:25 ]

buntykins · Apr 26th, 2002, 01:45 AM

Thanks Mudface, I'm still using your code on another part of it though. Thanks for the advice

Janie

Apr 26th, 2002, 01:16 AM	#3
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi. Assume the textbox is on an userform. Private Sub TextBox1_Change() With TextBox1 If Not IsNumeric(.Text) And .Text <> "" Then .Text = Left(.Text, Len(.Text) - 1) End If End With End Sub Regards, Colo [ This Message was edited by: Colo on 2002-04-26 01:17 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 26th, 2002, 01:05 AM	#1
buntykins Board Regular Join Date: Apr 2002 Posts: 76	Hi all, what VB code do I put in so that users can only enter numbers into a textbox? Janie

Apr 26th, 2002, 01:12 AM	#2
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	Try something like: - If Not IsNumeric(TextBox1.Text) Then ...

Apr 26th, 2002, 01:20 AM	#4
buntykins Board Regular Join Date: Apr 2002 Posts: 76	That's great, it kind of works, but the SetFocus bit won't work? I'd like it to remain in Textbox1 so they can try again. Do you know what I'm doing wrong? I've put the following code in Textbox1's exit event: If Not IsNumeric(TextBox1.Text) Then MsgBox ("Must be a number") TextBox1.SetFocus TextBox1.Value = "" Else TextBox2.SetFocus End If Thanks Janie

Apr 26th, 2002, 01:22 AM	#5
buntykins Board Regular Join Date: Apr 2002 Posts: 76	Oooh that's great code, that does exactly it, thanks Colo! Janie xx

Apr 26th, 2002, 01:25 AM	#6
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	Not sure as I can't test this at the minute, but it might be better to do that when a command button is clicked- ie stick all your checking code in the Click event. Or, you could try Colo's which I think will check as the user types in the textbox. I see you already have . [ This Message was edited by: Mudface on 2002-04-26 01:25 ]

Apr 26th, 2002, 01:45 AM	#7
buntykins Board Regular Join Date: Apr 2002 Posts: 76	Thanks Mudface, I'm still using your code on another part of it though. Thanks for the advice Janie