Disallow Bypass Key and Code

[Dalan]

Perhaps someone knows how to structure the correct VBA code to use for
allowing or disallowing use of the bypass key, because the code that I
used as suggested by MSAccess 97 has failed to work. A copy of the
same is pasted below. Any assistance will be appreciated. Thanks,
Dalan

Sub SetStartupProperties()

ChangeProperty "StartupShowDBWindow", dbBoolean, True
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, False

End Sub
Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType,
varPropValue)
dbs.Properties.Append prp

Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

[Rick Brandt]

"Dalan" <ot***@safe-mail.net> wrote in message
news:50**************************@posting.google.c om...

Perhaps someone knows how to structure the correct VBA code to use for
allowing or disallowing use of the bypass key, because the code that I
used as suggested by MSAccess 97 has failed to work. [snip]

Failed to work how? The property changed don't have an effect on the
current session, but should be in effect if you close and reopen the file.
--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

[Dalan]

"Rick Brandt" <ri*********@hotmail.com> wrote in message news:<bp*************@ID-98015.news.uni-berlin.de>...

"Dalan" <ot***@safe-mail.net> wrote in message
news:50**************************@posting.google.c om...

Perhaps someone knows how to structure the correct VBA code to use for
allowing or disallowing use of the bypass key, because the code that I
used as suggested by MSAccess 97 has failed to work. [snip]

Failed to work how? The property changed don't have an effect on the
current session, but should be in effect if you close and reopen the file.

Simply, after exiting the database and then restarting it by holding
the Shift key down, the database window is shown (several tries). I
had presumed that by not allowing the Shift key to be functional that
it would not permit this, but seemingly, it has no effect. So maybe
someone knows of a workaround for this issue, or a better piece of
code. Thanks.

[Peter Russell]

Dalan previously wrote:

"Rick Brandt" <ri*********@hotmail.com> wrote in message

news:<bp*************@ID-98015.news.uni-berlin.de>...
"Dalan" <ot***@safe-mail.net> wrote in message
news:50**************************@posting.google.c om...

Perhaps someone knows how to structure the correct VBA code to use
for
allowing or disallowing use of the bypass key, because the code
that I
used as suggested by MSAccess 97 has failed to work. [snip]

Failed to work how? The property changed don't have an effect on the
current session, but should be in effect if you close and reopen the
file.

Simply, after exiting the database and then restarting it by holding
the Shift key down, the database window is shown (several tries). I
had presumed that by not allowing the Shift key to be functional that
it would not permit this, but seemingly, it has no effect. So maybe
someone knows of a workaround for this issue, or a better piece of
code. Thanks.

The code looks OK to me.
How are you running kit?

However, before running this you must provide yourself with a reset
procedure. You would normally run the reset from another mdb file.

Regards

Peter Russell