AllowByPassKey error

[TechBoy]

RE: Access 2002

When my app starts up I am trying to set the F11 key to a disabled
state so users cannot press it to see the DBWindow.

Here is the error:
error msg: 3270-property not found

Here is the line of code the debugger stops at:
---CurrentDb.Prope rties("AllowByp assKey").Value = Enable---

Intellisense recognizes when I type "CurrentDB.prop erties", but how
come it would not allow a "allowbypasskey " to be used here?

I examined Tools/References and the ones I have listed for this app
that are checked are (and they're in this order):
1."Visual Basic for Applications"
2."Microsoft Access 10.0 Object Library"
3."OLE Automation"
4."Microsoft DAO 3.6 Object Library"
5."Microsoft ActiveX Data Objects 2.6 Library"
6."Microsoft Excel 10.0 Object Library"

With regard to "MyProblemApp.m db" above, I have another older copy of
this same app "MyGoodApp. mdb" that uses the same exact code in the same
exact place, and the same 6 references are listed in the same order on
both apps.

If anyone has insights as to why "MyProblemA pp" has this error and how
to correct it would be helpful.

Thank you.

[Wayne Gillespie]

On 27 Jul 2005 08:05:34 -0700, "TechBoy" <ro******@msn.c om> wrote:

RE: Access 2002

When my app starts up I am trying to set the F11 key to a disabled
state so users cannot press it to see the DBWindow.

Here is the error:
error msg: 3270-property not found

Here is the line of code the debugger stops at:
---CurrentDb.Prope rties("AllowByp assKey").Value = Enable---

Intellisense recognizes when I type "CurrentDB.prop erties", but how
come it would not allow a "allowbypasskey " to be used here?

I examined Tools/References and the ones I have listed for this app
that are checked are (and they're in this order):
1."Visual Basic for Applications"
2."Microsoft Access 10.0 Object Library"
3."OLE Automation"
4."Microsoft DAO 3.6 Object Library"
5."Microsoft ActiveX Data Objects 2.6 Library"
6."Microsoft Excel 10.0 Object Library"

With regard to "MyProblemApp.m db" above, I have another older copy of
this same app "MyGoodApp. mdb" that uses the same exact code in the same
exact place, and the same 6 references are listed in the same order on
both apps.

If anyone has insights as to why "MyProblemA pp" has this error and how
to correct it would be helpful.

Thank you.

Sub LockDatabase()
Dim db As Database
'REM out options not required

On Error Resume Next
Set db = CurrentDb()

'turns all security properties on and blocks access to DB window
ChangeProperty "StartupShowDBW indow", dbBoolean, False
ChangeProperty "StartupShowSta tusBar", dbBoolean, False
ChangeProperty "AllowBuiltinTo olbars", dbBoolean, False
ChangeProperty "AllowFullMenus ", dbBoolean, False
ChangeProperty "AllowShortCutM enus", dbBoolean, False
ChangeProperty "AllowBreakInto Code", dbBoolean, False
ChangeProperty "AllowSpecialKe ys", dbBoolean, False
ChangeProperty "AllowBypassKey ", dbBoolean, False

Set db = Nothing
On Error GoTo 0

End Sub