Open DB Window with function key

[maddman]

In our database, we have some problem users that think they need to
get at the tables themselves rather than use the forms. So I want to
keep them from getting to them at all. I've set the DB Window not to
open, but it seems they know the "hold down shift key" trick. I've
been doing a little digging, and found a way to do this. Set a
KeyDown event for my main form, have it open a form with an unbound
text box to use as a password, and then show the database window.

What I can't get working is the keydown event. Here's the code I set
for the KeyDown event on my main form

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then
KeyCode = 0
DoCmd.OpenForm "frmDBPassword", acNormal
End If
End Sub

But when I select the form and hit F11, it just switches focus to the
DBWindow, as the default behaviour. I thought the 'KeyCode = 0' line
was supposed to take care of that, but it doesn't seem to be working.
I'd be eternally grateful if someone could toss me a clue.

TIA, madd

[Allen Browne]

See help on AllowBypassKey

Under Tools | Startup, you can disable "Special Keys".

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"maddman" <ma********@yahoo.com> wrote in message
news:be**************************@posting.google.c om...

In our database, we have some problem users that think they need to
get at the tables themselves rather than use the forms. So I want to
keep them from getting to them at all. I've set the DB Window not to
open, but it seems they know the "hold down shift key" trick. I've
been doing a little digging, and found a way to do this. Set a
KeyDown event for my main form, have it open a form with an unbound
text box to use as a password, and then show the database window.

What I can't get working is the keydown event. Here's the code I set
for the KeyDown event on my main form

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then
KeyCode = 0
DoCmd.OpenForm "frmDBPassword", acNormal
End If
End Sub

But when I select the form and hit F11, it just switches focus to the
DBWindow, as the default behaviour. I thought the 'KeyCode = 0' line
was supposed to take care of that, but it doesn't seem to be working.
I'd be eternally grateful if someone could toss me a clue.

TIA, madd

[maddman]

> "maddman" <ma********@yahoo.com> wrote in message

news:be**************************@posting.google.c om...

In our database, we have some problem users that think they need to
get at the tables themselves rather than use the forms. So I want to
keep them from getting to them at all. I've set the DB Window not to
open, but it seems they know the "hold down shift key" trick. I've
been doing a little digging, and found a way to do this. Set a
KeyDown event for my main form, have it open a form with an unbound
text box to use as a password, and then show the database window.

What I can't get working is the keydown event. Here's the code I set
for the KeyDown event on my main form

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF11 Then
KeyCode = 0
DoCmd.OpenForm "frmDBPassword", acNormal
End If
End Sub

But when I select the form and hit F11, it just switches focus to the
DBWindow, as the default behaviour. I thought the 'KeyCode = 0' line
was supposed to take care of that, but it doesn't seem to be working.
I'd be eternally grateful if someone could toss me a clue.

TIA, madd

"Allen Browne" <Al*********@SeeSig.Invalid> wrote in message news:<41**********************@per-qv1-newsreader-01.iinet.net.au>... See help on AllowBypassKey

Under Tools | Startup, you can disable "Special Keys".

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

That's not what my problem is. I can get the database window to not
open even with the shift key. What I need is a code to prompt for a
password when I press F11 (or some other function key). Everything
works except triggering off the above code.

[Allen Browne]

If this is application wide, create a macro named AutoKeys.
In the MacroName column to specify the keystroke, e.g.:
{F11}
In the Action column, use RunCode to call the procedure you wish to call, or
use OpenForm to open a small unbound form where the user must enter your
"password".

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"maddman" <ma********@yahoo.com> wrote in message
news:be**************************@posting.google.c om...

"maddman" <ma********@yahoo.com> wrote in message
news:be**************************@posting.google.c om...

> In our database, we have some problem users that think they need to
> get at the tables themselves rather than use the forms. So I want to
> keep them from getting to them at all. I've set the DB Window not to
> open, but it seems they know the "hold down shift key" trick. I've
> been doing a little digging, and found a way to do this. Set a
> KeyDown event for my main form, have it open a form with an unbound
> text box to use as a password, and then show the database window.
>
> What I can't get working is the keydown event. Here's the code I set
> for the KeyDown event on my main form
>
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> If KeyCode = vbKeyF11 Then
> KeyCode = 0
> DoCmd.OpenForm "frmDBPassword", acNormal
> End If
> End Sub
>
> But when I select the form and hit F11, it just switches focus to the
> DBWindow, as the default behaviour. I thought the 'KeyCode = 0' line
> was supposed to take care of that, but it doesn't seem to be working.
> I'd be eternally grateful if someone could toss me a clue.
>
> TIA, madd
"Allen Browne" <Al*********@SeeSig.Invalid> wrote in message

news:<41**********************@per-qv1-newsreader-01.iinet.net.au>... See help on AllowBypassKey

Under Tools | Startup, you can disable "Special Keys".

That's not what my problem is. I can get the database window to not
open even with the shift key. What I need is a code to prompt for a
password when I press F11 (or some other function key). Everything
works except triggering off the above code.