access vba 禁止右键_access-vba 禁用班次功能代码

示例

Function DisableShift()

'This function disable the shift at startup. This action causes

'the Autoexec macro and Startup properties to always be executed.

On Error GoTo errDisableShift

Dim db As DAO.Database

Dim prop As DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb()

'This next line disables the shift key on startup.

db.Properties("AllowByPassKey") = False

'The function is successful.

Debug.Print"Disabled Shift Key - Successful"

Exit Function

errDisableShift:

'The first part of this error routine creates the "AllowByPassKey

'property if it does not exist.

If Err = conPropNotFound Then

Set prop = db.CreateProperty("AllowByPassKey", _

dbBoolean, False)

db.Properties.Append prop

Resume Next

Else

MsgBox "Function 'ap_DisableShift' did not complete successfully."

GoTo ExitHere

End If

ExitHere:

Set prop = Nothing

Set db = Nothing

Exit Function

End Function