[AccessD] Key Preview Problem

Rocky,

Why not just put a hot key in the tab page label?  Then they only have
to type the shortcut to get to the page, no keydown or remembering which
function key goes where. 


Charlotte Foust

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Thursday, March 16, 2006 8:09 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Key Preview Problem

In my case the tabs are so 'feature rich' (to use a Microsoft phrase)
that there's no one starting point on any tab page. It's mostly editing
and not new records. In fact, the user didn't even ask for this.  I'm
just a mousophobe so I always try to make my apps so they can be run
from the keyboard as much as possible.

Rocky


Penn White wrote:
>> I suppose I could set the KeyPreview to true on all the sub forms but

>> then they'd also have to have a copy of the KeyDown routine as well,
no?
>>     
>
> Congratulations!!
>
> I also got it working by copying the KeyDown sub to the subform 
> control that gets the focus when you go to the tabbed page.  It didn't

> work when I used the KeyDown event for the subform itself.  I like 
> your way but I also like having the user end up in the correct first 
> control on the form for data entry.  If they hit Tab or Enter when the

> focus is on the Exit button, I'm not sure where the cursor would go 
> to.  I'm also not sure the KeyCode=0 is necessary but I haven't tested
it.
>
> I also use this for PgUp and PgDn to go to the next main record 
> because when you're in a subform, as you know, it just tries to go to 
> the next record in the subform and really gets screwed up.
>
> Private Sub FullName_KeyDown(KeyCode As Integer, Shift As Integer)
>   Dim intAltDown As Integer
>     intAltDown = (Shift And acAltMask) > 0
>     If intAltDown Then
>       Select Case KeyCode
>         Case 76 ' L
>           Me.Parent.Pg1.SetFocus
>           KeyCode = 0
>         Case 78 ' N
>           Me.Parent.Pg2.SetFocus
>           KeyCode = 0
>         Case 68 ' D
>           Me.Parent.Pg3.SetFocus
>           KeyCode = 0
>         Case 83
>           Me.Parent.Pg4.SetFocus
>           KeyCode = 0
>       End Select
>     End If
> End Sub
>
> Penn
>
>   

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com