how to link a key on keyboard to a function

[neelsfer]

When i press the "+" (ascikey 43)on my keyboard, i would like a function to work in a specific form called "RaceSetupX CF".
The code to be linked to "+" is below. The "+" must not be added to the fields of this form when pressing it.It must only work with the code below when the form is open.

Dim iRetValue As Long
 If KeyAscii = 43 Then iRetValue = sndPlaySound(CurrentProject.Path & "\bell.wav", SND_ASYNC)

any suggestions please?
thx

[neelsfer]

Thought i got it working in the specific subform on main form using

Dim iRetValue As Long
If Len(Nz(Me![RaceNumber].Text, 0)) = 0 And KeyAscii = 43 Then KeyAscii = 0 And iRetValue = sndPlaySound(CurrentProject.Path & "\bell.wav", SND_ASYNC)
   Cancel = True

but my application crashes
But after adding error trapping code it seems to work again

[TheSmileyCoder]

You have to look at your FORMS Key_press event. For example:

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then
        iRetValue = sndPlaySound(CurrentProject.Path & "\bell.wav", SND_ASYNC)
    End If
 
    'If you want to cancel out any other action 
    '  that might come from the key (Such as 
    '  form navigation, or typing in fields), 
    '  you can clear the key by the following code:
    KeyAscii = 0
 
End Sub

For the form to to receive key_press BEFORE the control that has the focus, you need to set the forms KeyPreview value to True.