Code and Functions

[k209310]

Hello

I created some ASCII code that only allows a backslash (\) and numeric chartacters to be entered in to a text box. The code works fine if its in the keypress event of a textbox.

However if i create the code in a module as a public function and try to call it from the key press function then the code fails (all spellings are correct) althought the function works when tested with other code.

Does anybody have any idea why i cant create a function to delete ascii characters.

This isnt a huge a problem but it will be easier to create a function than to put the code in to every keypreess event where it is needed. The code is below

Select Case KeyAscii
Case Is < 46
KeyAscii = 0

Case Is > 57
KeyAscii = 0

End Select

 

[Juan Pablo González]

How are you calling that function ? how is the function defined ?

 

[k209310]

I have tried

Public Function NoAlpha(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 46
KeyAscii = 0

Case Is > 57
KeyAscii = 0

End Select
End Function

this first method produces the 'argument not optional error message'

and

Public Function NoAlpha()
Select Case KeyAscii
Case Is < 46
KeyAscii = 0

Case Is > 57
KeyAscii = 0

End Select
End Function

This second method doesnt work but produces no error message.

Im simply call the Noalpha from the Keypress event as it appears when slected

 

[Richie(UK)]

Hi,

Try this:

In the UserForm code (for TextBox1):

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

And in a general module (Module1 in this example):

Public Function NoAlpha(ByVal KeyAscii As Integer) As Integer
    
    NoAlpha = KeyAscii
    If KeyAscii = 8 Then Exit Function
    'accept by default and allow delete
    
    Select Case KeyAscii
        Case Is < 46: NoAlpha = 0
        Case Is > 57: NoAlpha = 0
    End Select
    'restrict acceptable input
    
End Function

HTH

 

[k209310]

Thanks for the reply it works great.