Pass KeyAscii To Function from Property Page 1

[PWise]

See my privious post

http://www.tek-tips.com/viewthread.cfm?qid=1497960&page=1

I would like to create a function for the OnKeyPress Event
for many controls and have the value of the of Keyascii passed to the function

On Key Press =ReplaceSpace(KeyAscii)

Function ReplaceSpace(KeyAscii)
If KeyAscii = 32 Then
    KeyAscii = 160
Else
    KeyAscii = KeyAscii
End If
End Function

Instead of having to create this code for each control

Private Sub VStaffLastName_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then KeyAscii = 160

End Sub

 

[Remou]

Have a look at KeyPreview for the form. It should allow you to get the key press for the form, rather than any particular control.

 

[PWise]

Seems to work have another pink one.