Allow ByPassKey property

bjackman · December 29th, 2003, 05:22 PM

Hello Folks

I have no idea what i'm doing wrong but i'm trying to disable the shift key bypass and its not working right. I researched it in the VBA help and came across the following code.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    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

Could somebody tell me what i'm doing wrong. This is Office 2003 on XP
Pro

Thanks in advance.

Branden

Steven · December 30th, 2003, 03:39 AM

Looks like you've posted the example from the help file.
I've noticed that sometimes it doesn't work for me either. Basically, sometimes the error trapping part for if the property doesn't exist, doesn't work
So what you could do, to get around this, is just run this code first, to add the property (which is basically rephrasing the error trapping part of your code)

Code:

Function DoStuff()
Dim prp
Set prp = CurrentDb.CreateProperty("AllowByPassKey", 1, False)
CurrentDb.Properties.Append prp
End Function

Steven

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

bjackman · January 3rd, 2004, 08:39 PM

Not to be an idiot, but i tried to paste that code into the project as well and it didn't work either. How do i execute the code to get it to add the property. I have done this in office xp but it doesn't seem to work in office 2003. Thanks for your help