I am using the below code to disable the shift key that by passes a macro. How do i determine the path of the databse that I want it to affect?

Sub SetStartupProperties()

    ChangeProperty "AllowBypassKey", dbBoolean, False

End Sub



Function ChangeProperty()

    Dim strPropName As String

    Dim varPropType As Variant

    Dim varPropValue As Variant



    Dim dbs As Database, prp As Property

    Const conPropNotFoundError = 3270

    strPropName = "AllowBypassKey"

    varPropType = dbBoolean

    varPropValue = False

    Set dbs = I NEED THE PATH HERE

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropValue

    ChangeProperty = True

MsgBox "Welcome to First Choice"

Change_Bye:

    Exit Function



Change_Err:

    If Err = conPropNotFoundError Then ' Property not found.

        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

        dbs.Properties.Append prp

        MsgBox "Please Try Again"

        Resume Next

    Else

        ' Unknown error.

        MsgBox "ok"

        ChangeProperty = False

        Resume Change_Bye

    End If

End Function







Sam Powell
Information Systems Officer
Neath Port Talbot College

__________________
Sam Powell
Information Systems Officer
Neath Port Talbot College

do you want to do it to a different DB? i.e not the one that this code is in?

if not, then just use CurrentDB, (or just type in AllowBypassKey into VBA help, and paste the example there)

if so, here's a page that shows you just about everything you would want to know about finding paths and the like:
http://www.sloppycode.net/fso/


I am a loud man with a very large hat. This means I am in charge