Shift ByPass 1

[TriniGal]

I found the code on the FAQ on how to Disable/Enable the Shift Key.

Does anyone have any suggestions on how I call the sub to disable the database. I have a a transparent button to Enable the shift key. But I don't know how to go about Disabling it.

Thanks.

 

[PHV]

Which FAQ ? Which code ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TriniGal]

I don't know how to do the link thing, but the FAQ is faq181-142.

 

[TriniGal]

Sorry, typo, it is faq181-143.

 

[PHV]

Why not simply calling DisableByPassKeyProperty in the Immediate window (Ctrl-G) ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PaulF]

Another option is to use an AutoKey macro. Create a macro, ensure you have "Macro Names" checked in the View toolbar. Add a line with a key sequence such as Ctrl-Shift-A (^+A) to allow ByPass and another such as Ctrl-Shift-D (^+D)to disable ByPass (Place the ^+A & ^+D in the column for Macro Name), then for the action select RunCode for Both lines, and then enter the Function Names EnableByPassKeyProperty() & DisableByPassKeyProperty() for the appropriate line. Then just ensure you save the Macro with the name AutoKeys.

PaulF

 

[PaulF]

Forgot to add, that you can set the value once the database has opened by pressing the correct combination of keys, however, it will not take affect until the next time you open the database.

PaulF

 

[TriniGal]

Thank you both for your responses.

I'm fairly okay with Access but I don't really know much about VBA or macros.

PHV, how do I do this? If you can help me get started on this I will appreciate it because I'm hoping for a better understand of VBA.

Why not simply calling DisableByPassKeyProperty in the Immediate window (Ctrl-G) ?

Thanks.

 

[PHV]

You know how to go in the VBE as you already created a module.
Open the Immediate (aka Debug) window by pressing Ctrl and G keys simultanously.
Type DisableByPassKeyProperty and press Enter.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TriniGal]

PHV,

I did what you said.

I opened up the Module which I named DisableByPassKeyProperty and did what you told me. I'm getting the following error:

Expected variable or procedure, not module

I'm not sure what that means. Do you?

Thanks.

 

[PHV]

A module should not have the same name as a procedure !

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TriniGal]

Ok I changed it, now I' getting:

Run-time error '13

Type mismatch

When I hit debug this is what i get:

[highlight]Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)[/highlight]

Do you know what's causing this?

 

[PHV]

Dim prp As [!]DAO.[/!]Property

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[TriniGal]

That worked. Thank you. Here's a star. It did what it was supposed too even though I held the shift key down. I have the enable shift key code in the OnClick event of a button. When I click on the button, I'm getting the following error.

Run-time error '3265':

Item not found in this collection

This part is highlighted:

[highlight]db.Properties.Delete "AllowByPassKey"[/highlight]

Do you think you can help me with this one too?

 

[TheAceMan1]

How are ya TriniGal . . .

For a db property like [blue]AllowByPassKey[/blue] which is a datatype of [blue]Boolean[/blue], you don't have to delete the property! . . . you just set it to false! . . .

Have a look here thread702-1236022 (about six posts down) for a module covering the full spectrum of addressing db properties . . .

The idea is . . . once the property is created all you have to to do is:

[blue]   SetDBProp([blue]AllowByPassKey[/blue], prpVal)[/blue]

prpVal above is either true/False . . .

[blue]Your Thoughts! . . .[/blue]

See Ya! . . . . . .

 

[TheAceMan1]

TriniGal . . .

Woops! . . . should be:

[blue]   SetDBProp("AllowByPassKey", prpVal)[/blue]

See Ya! . . . . . .