creating a procedure(resolved)

[dedub]

Hey all.

I have this code to keep everything but numbers from being typed into a text box. (not mine) I have to call this code for several boxes. Instead of copy and pasting this several times I want to call it in a procedure. I created one but it didnot work. My guess is that I have to elaborate the procedure by passing something to it, like the key that was pressed instead of the number. Anyway, could somone help out if you understand. Thanks!

Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii > 0 And KeyAscii <= 32) Or (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then
Exit Sub
Else
KeyAscii = 0
MsgBox "Please enter only numeric values"
End If

[crptcblade]

Private Sub txt_KeyPress(KeyAscii As Integer)
 
    If (KeyAscii > 0 And KeyAscii <= 32) Or (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then
        Exit Sub
    Else
        KeyAscii = 0
        MsgBox "Please enter only numeric values"
    End If
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Call txt_KeyPress(KeyAscii)
End Sub

[MartinLiss]

Here you go.

Public Function TestKey(KeyAscii)
    If (KeyAscii > 0 And KeyAscii <= 32) Or (KeyAscii > vbKey0 And KeyAscii <= vbKey9) Then
        TestKey = True
    Else
        KeyAscii = 0
        TestKey = False
    End If
 
End Function
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    If Not TestKey(KeyAscii) Then
        MsgBox "Please enter only numeric values"
    End If
    
End Sub

You can also download the code for my NuberBox by clicking the link in my signature.

[dedub]

Wow, that was quick and that did it. I knew it would be something simple. I was forgetting to put the (KeyAscii) in my call. Thanks a bunch!

[MartinLiss]

BTW, in IMHO (I don't mean that sarcastically) I don't think that the error message belongs in the validation routine. It's too limiting that way.