尝试在A97中设置AllowBypassKey时找不到属性错误 [英] Property Not Found error when trying to set AllowBypassKey in A97

问题描述

我在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

这篇关于尝试在A97中设置AllowBypassKey时找不到属性错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！