Does this code work in Access 2007?

[panoss]

I 've added this code in a project.
I have Access 2003. Works fine on my machine.
My client has Access 2007.
Does it work in Access 2007?

 
        Dim i As Integer
        For i = 1 To CommandBars.Count
            CommandBars(i).Enabled = False
        Next i
        CommandBars("MyMenuBar").Enabled = True
        ChangeProperty "AppTitle", DB_TEXT, "Ðáñáããåëßåò"
        ChangeProperty "AllowFullMenus", DB_BOOLEAN, False 'Access Full Menus.
        ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False 'F11, ALT F11, etc.
        ChangeProperty "AllowBypassKey", DB_BOOLEAN, False 'Shift Key Override on loading.
        ChangeProperty "AllowShortcutMenus", DB_BOOLEAN, False 'Access Shortcut Menus. May be too severe.
        ChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, False 'Code access.
        ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
        ChangeProperty "StartUpShowDBWindow", DB_BOOLEAN, False
        Application.CommandBars.DisableAskAQuestionDropdown = True 'Remove the "Type a question for help"
        ChangeProperty "AllowToolbarChanges", DB_BOOLEAN, False 'Prevent Changes.



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

[ranman256]

Put a STOP (red line F9) on dbs.Properties(strPropName) = varPropValue

in debug, do: ?dbs.Properties(1)
then 2,3, etc
until you find your stuff.

[panoss]

You mean that I should do this in order to avoid using properties that do not exist?
Ok, I don't mind that as long as it works.
My worry is if it works in Access 2007 before giving it to the client.
Thanks for your response.

[ssanfu]

You do know "Commandbars" were done away with in Access 2007 and later, right?

Tried the code in A2010 and it gave a Run-time error '5' - Invalid procedure call or argument on the line
"CommandBars("MyMenuBar").Enabled = True"

But that might be because I don't have a "Commandbar" named "MyMenuBar". The code did disable all 210 menus. I couldn't goto form design view until I closed Access and re-opened the dB.

Would need to have your MDB to test.

[panoss]

Ok I will post test mde.

[Missinglinq]

An mde file isn't going to be much use to anyone trying to evaluate this for you. They could say 'yes' or 'no' as to whether or not it runs, but couldn't look under the hood, so to speak, to suggests tweaks to make it run if it has problems. Best to post the mdb file, instead.

Linq ;0)>

[panoss]

I sent it to the client and works ok! Thank you all for your concern!