By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,484 Members | 1,764 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,484 IT Pros & Developers. It's quick & easy.

Shift Key Bypass

P: n/a

Hi All

Is there any way to prevent someone from using the Shift ket to bypass
the Startup options ?

Thanks in advance for your assistance.
Laetitia
*** Sent via Developersdex http://www.developersdex.com ***
Nov 6 '08 #1
Share this Question
Share on Google+
2 Replies


P: n/a
Please ignore my previous post.

My thanks to
Albert D. Kallal
for the utility so kindly provided.

It works a treat.


*** Sent via Developersdex http://www.developersdex.com ***
Nov 6 '08 #2

P: n/a

"Laetitia" <no****@devdex.comwrote in message
news:49***********************@news.qwest.net...
>
Hi All

Is there any way to prevent someone from using the Shift ket to bypass
the Startup options ?

Thanks in advance for your assistance.
Laetitia
*** Sent via Developersdex http://www.developersdex.com ***

ChangeProperty "AllowBypassKey", dbBoolean, True

Calling the following function will after the MDB is closed and reopened
Keep backup copy incase you lock yourself out.
Check help for "AllowBypassKey" for more information

'---------------------------------
' Change the selected property
'
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
Nov 6 '08 #3

This discussion thread is closed

Replies have been disabled for this discussion.