|
3#
楼主 |
发表于 2005-9-24 15:51:00
|
只看该作者
看看我的,好象差不多。
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 = TrueChange_Bye:
Exit FunctionChange_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 FunctionPublic Function yesshift()
ChangeProperty "AllowBypassKey", 1, True
End Function
Public Function noshift()
ChangeProperty "AllowBypassKey", 1, FalseEnd Function
试过了,不是函数的问题。但是所有的函数都不能在宏里调用。 |
|