Hello all
I will have to develop a userform and I want to control the value of
TextBox which must be an integer not null. What do I have to do? I
wrote this but it is not the good code!!

Private Sub TextBoxl_Change()

Dim KeyAscii As MSForms.ReturnInteger

Select Case KeyAscii
Case Is < 49, Is > 57
MsgBox "Only a non null interger is allowed."
KeyAscii = Asc(Chr(8))
End Select

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 49, Is > 57
MsgBox "Only a non null interger is allowed."
KeyAscii = 0
End Select

End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Golenboy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello all
> I will have to develop a userform and I want to control the value of
> TextBox which must be an integer not null. What do I have to do? I
> wrote this but it is not the good code!!
>
> Private Sub TextBoxl_Change()
>
> Dim KeyAscii As MSForms.ReturnInteger
>
> Select Case KeyAscii
> Case Is < 49, Is > 57
> MsgBox "Only a non null interger is allowed."
> KeyAscii = Asc(Chr(8))
> End Select
>
> End Sub
>

As a user, I wouldn't want to dismiss that dialog each time I made a typo. But
I liked the beep.

I changed Bob's code to:

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 49, Is > 57
'MsgBox "Only an integer is allowed."
KeyAscii = 0
Beep
End Select
End Sub



Golenboy wrote:
>
> Hello all
> I will have to develop a userform and I want to control the value of
> TextBox which must be an integer not null. What do I have to do? I
> wrote this but it is not the good code!!
>
> Private Sub TextBoxl_Change()
>
> Dim KeyAscii As MSForms.ReturnInteger
>
> Select Case KeyAscii
> Case Is < 49, Is > 57
> MsgBox "Only a non null interger is allowed."
> KeyAscii = Asc(Chr(8))
> End Select
>
> End Sub

--

Dave Peterson