Code help appreciated:following code to restrict character input

[peter.thompson]

I have multiple textboxes on multiple forms that use the following code to restrict character input. Is there a way to set something up in a standard module to avoid duplicating the code?

Private Sub txtYr2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")

Case Else
KeyAscii = 0
End Select
End Sub

Private Sub txtYr3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")

Case Else
KeyAscii = 0
End Select
End Sub

Cheers Peter

[Mallycat]

All you need to do is put the common code into a new subroutine, then call that subroutine from other routines.

ie
Sub RestrictInput()
Select Case KeyAscii
Case Asc("0") To Asc("9")

Case Else
KeyAscii = 0
End Select
end sub

Private Sub txtYr2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
RestrictInput
end sub

Private Sub txtYr3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
RestrictInput
End Sub


The only thing you will need to be aware of, is that you will need all the code in the same module, or alternatively add the module name to the start of the routine ie module1.RestrictInput

Matt

[peter.thompson]

Have tried your suggeStion which is very logical - however I can still enter any character in the form text field. The code runs without error - I must be doing something wrong.

Peter

[Mallycat]

I'm not 100% sure what you are trying to do, but I assume you need to pass your parameters to the subroutine. ie

ByVal KeyAscii As MSForms.ReturnInteger

I'm not really sure how to do this, but I would try the following

Sub RestrictInput(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")

Case Else
KeyAscii = 0
End Select
end sub

Private Sub txtYr2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
RestrictInput KeyAscii
end sub

Private Sub txtYr3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
RestrictInput KeyAscii
End Sub

[peter.thompson]

Thanks Mallycat, that works fine!

Cheers

Peter