Pass by val, variable passing in VBA

[Te4t0n]

hi, i have multipule text box's on a form, and then in a macro this code

Dim ch As String
    ch = Chr$(KeyAscii)
    If Not (ch >= "0" And ch <= "9") Then
        ' Cancel the character.
        KeyAscii = 0
    End If

i wish to send the keyascii to this macro sub procedure from the textbox's onkeypress event, how is this done in VBA ? thank you

 

[Chitosunday]

Simpler code in userform module:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

or if you want to branch ,code in userform module:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = passv(KeyAscii)
End Sub

put this in the general module:

Function passv(ByVal n As Long)
If n < 48 Or n > 57 Then
passv = 0
Else
passv = n
End If
End Function

 

[Richie(UK)]

Hi Thomas,

How about something like this (it only accepts lowercase letters but you can amend it to suit your requirements):

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = CheckKey(KeyAscii)
End Sub

Function CheckKey(ByVal KeyAscii As Integer) As Integer
    
    CheckKey = KeyAscii
    'set default value
    
    Select Case KeyAscii
        Case Is < 48: CheckKey = 0
        Case 48 To 57:  CheckKey = 0 'numbers 0 to 9
        Case 58 To 64: CheckKey = 0
        Case 65 To 90:  CheckKey = 0 'capital letters
        Case 91 To 96: CheckKey = 0
        Case 97 To 122: 'lowercase letters
        Case Else: CheckKey = 0
    End Select
    'amend CheckKey value by reference to KeyAscii value
    
End Function

HTH

EDIT : Chito was TDQ!

 

[Te4t0n]

Thank you both, both are great examples, i understand now