尝试在A97中设置AllowBypassKey时找不到属性错误

本文介绍了尝试在A97中设置AllowBypassKey时找不到属性错误的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我在frmLaunch的OnOpen 事件代码中调用以下Sub和Function。我一直收到 AllowBypassKey设置的Property Not Found错误。失败点是函数 （不是Sub）中的第30行。想法？ Sub SetStartupProperties（） On Error GoTo SetStartupProperties_Err 10 ChangeProperty" StartupForm"，dbText，" frmLaunch" ; '' 你想在启动时打开的表格 20 ChangeProperty" StartupShowDBWindow"，dbBoolean，False'' True将显示dbase窗口 30 ChangeProperty" StartupShowStatusBar"，dbBoolean，True 40 ChangeProperty" AllowBuiltinToolbars"，dbBoolean，True 50 ChangeProperty" AllowFullMenus" ;，dbBoolean，True 60 ChangeProperty" AllowBreakIntoCode"，dbBoolean，True 70 ChangeProperty" AllowSpecialKeys"，dbBoolean，True 80 ChangeProperty" AllowBypassKey"，dbBoolean，True'' SHIFT关键的东西 SetStartupProperties_Bye： 退出Sub SetStartupProperties_Err： Dim r As String，k As String，Message3 As String r ="以下意外错误发生在Sub setStartupProperties，frmLaunch上的CBF。&qu ot; k = vbNewLine& vbNewLine& Str $（Err）& ： &安培; """" &安培;错误$& """" &安培; "，line＃" &安培; Erl Message3 = r& k MsgBox Message3,48，意外错误 - &安培; MyApp $& "，rev。 " & MY_VERSION $ 恢复SetStartupProperties_Bye 结束子 函数ChangeProperty（strPropName As String ，varPropType As Variant， varPropValue As Variant）As Integer Dim dbs As Database，prp As Property Const conPropNotFoundError = 3270 10设置dbs = CurrentDb 20错误GoTo Change_Err 30 dbs.Properties（strPropName）= varPropValue 40 ChangeProperty = True Change_Bye： 退出功能 Change_Err： Dim r As String，k As String，Message3 As String r ="发生以下意外错误设置" & strPropName& " Sub ChangeProperty中的属性，frmLaunch上的CBF。 k = vbNewLine& vbNewLine& Str $（Err）& ： &安培; """" &安培;错误$& """" &安培; "，line＃" &安培; Erl Message3 = r& k MsgBox Message3,48，意外错误 - &安培; MyApp $& "，rev。 " & MY_VERSION $ 简历Change_Bye 结束功能

解决方案

（Err）& ： &安培; """" &安培;错误

& """" &安培; "，line＃" &安培; Erl Message3 = r& k MsgBox Message3,48，意外错误 - &安培; MyApp的 &安培; "，rev。 " & MY_VERSION

I call the following Sub and Function in frmLaunch''s OnOpen event code. I keep getting Property Not Found error for the AllowBypassKey setting. Failure point is line #30 in the Function (not the Sub). Ideas? Sub SetStartupProperties() On Error GoTo SetStartupProperties_Err 10 ChangeProperty "StartupForm", dbText, "frmLaunch" '' Form you want to open at startup 20 ChangeProperty "StartupShowDBWindow", dbBoolean, False '' True will show the dbase window 30 ChangeProperty "StartupShowStatusBar", dbBoolean, True 40 ChangeProperty "AllowBuiltinToolbars", dbBoolean, True 50 ChangeProperty "AllowFullMenus", dbBoolean, True 60 ChangeProperty "AllowBreakIntoCode", dbBoolean, True 70 ChangeProperty "AllowSpecialKeys", dbBoolean, True 80 ChangeProperty "AllowBypassKey", dbBoolean, True '' The SHIFT key thing SetStartupProperties_Bye: Exit Sub SetStartupProperties_Err: Dim r As String, k As String, Message3 As String r = "The following unexpected error occurred in Sub SetStartupProperties, CBF on frmLaunch." k = vbNewLine & vbNewLine & Str$(Err) & ": " & """" & Error$ & """" & ", line #" & Erl Message3 = r & k MsgBox Message3, 48, "Unexpected Error - " & MyApp$ & ", rev. " & MY_VERSION$ Resume SetStartupProperties_Bye End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 10 Set dbs = CurrentDb 20 On Error GoTo Change_Err 30 dbs.Properties(strPropName) = varPropValue 40 ChangeProperty = True Change_Bye: Exit Function Change_Err: Dim r As String, k As String, Message3 As String r = "The following unexpected error occurred setting " & strPropName & " property in Sub ChangeProperty, CBF on frmLaunch." k = vbNewLine & vbNewLine & Str$(Err) & ": " & """" & Error$ & """" & ", line #" & Erl Message3 = r & k MsgBox Message3, 48, "Unexpected Error - " & MyApp$ & ", rev. " & MY_VERSION$ Resume Change_Bye End Function

解决方案

(Err) & ": " & """" & Error

& """" & ", line #" & Erl Message3 = r & k MsgBox Message3, 48, "Unexpected Error - " & MyApp

& ", rev. " & MY_VERSION