I have created an Access Project file connected to SQL Server.

I want to disable the AllowBypassKey property for the project but the CreateProperty() method of the CurrentDb object does not seem to be available.

Also, CurrentProject object does not have a CreateProperty() method.

I have a reference to Microsoft ADO ActiveX 2.8 Library and Microsfot DAO 3.6 Object Library.

Any ideas how I might disable the Shift key on startup?

I think you have to do that with Shortcut properties.

The Access 2003 VBA Programmer's Reference mentions the ADE start up wizard that will allow you to prevent users holding down the shift key. See: http://wrox.books24x7.com

You would have to turn your project into an ADE, which is a good thing since it prevents a lot of user interaction with your code, etc.

Did that help any?

mmcdonal

I also found this:

----------------------------------

Function ap_DisableShift()
'This function will disable the shift at startup causing
'the Autoexec macro and Startup properties to always be executed

    On Error GoTo errDisableShift

    Dim db As DAO.Database
    Dim prop As Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False

'function successful
Exit Function

errDisableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, False)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox "Function 'ap_DisableShift' did not complete successfully."
        Exit Function
    End If

End Function
----------------------------------

----------------------------------

Function ap_EnableShift()
'This function will enable the shift key at startup causing
'the Autoexec macro and Startup properties to be bypassed
'if the user holds down the shift key when opening the database.

    On Error GoTo errEnableShift

    Dim db As Database
    Dim prop As Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = True

'function successful
Exit Function

errEnableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, True)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox "Function 'ap_DisableShift' did not complete successfully."
        Exit Function
    End If

End Function

----------------------------------

To run the disable shift, paste the above two functions in a module, then, open the debug window. Type: ap_DisableShift and press <return>. You will not be able to use the shift key to get around the startup procedures (including the autoexec macro) until the ap_EnableShift is run on the application.

mmcdonal

Thanks for the info....

I was able to disable the Shift key on startup using:

CurrentProject.Properties.ADD "AllowBypassKey", False

To enable Shift key:

CurrentProject.Properties.Remove "AllowBypassKey"

Since this is an Access Project file (.ADP) the method described above had no effect because it modifies the CurrentDb object (.MDB).

Thanks again.