Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Thu Mar 16 07:50:17 CST 2006
Stuart:
Same result.
Code now reads:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox KeyCode
Select Case KeyCode
Case 116
Me.pgOrderNumber.SetFocus
KeyCode = 0
Me.KeyPreview = True
Case 117
Me.pgReceiving.SetFocus
KeyCode = 0
Me.KeyPreview = True
Case 118
Me.pgProcessing.SetFocus
KeyCode = 0
Me.KeyPreview = True
Case 119
Me.pgShipping.SetFocus
KeyCode = 0
Me.KeyPreview = True
End Select
End Sub
I open the form. Press F6 - Me.pgReceiving gets the focus. I press F7,
I get spell check. The event doesn't fire but once.
Rocky
Stuart McLachlan wrote:
> On 15 Mar 2006 at 21:29, Rocky Smolin - Beach Access S wrote:
>
>
>> So I've traced it down to the lines Me.pgXXX.SetFocus. When that line
>> executes it hoses the KeyPreview property and even setting it at the end of
>> the module doesn't help.
>>
>>
>
> What happens if you set "me.keypreview = true" in code after the SetFocus?
>
>
>
>
--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com