如何解决禁止用SHIFT键打开MDB/MDE文件

来源:转载

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

调用方法:

建一个窗体,在某一按钮的单击事件中写如下代码:

ChangeProperty "AllowBypassKey", 1, False 'false为禁止SHIFT键,TRUE为恢复

分享给朋友:
您可能感兴趣的文章:
随机阅读: