弹出密码框绕过班次

Question

我正在尝试创建一个访问数据库，即使是绕过转移选项，用户也会关闭该数据库。我已经完成了执行此操作的代码，但我想添加的是当按下 shift 键时会弹出一个框，允许用户输入密码，并且绕过 shift 选项将再次起作用。有人知道这是否可能吗？

谢谢！

Function ap_DisableShift()

On Error GoTo errDisableShift

Dim db As DAO.Database
Dim prop As DAO.Property
Const conPropNotFound = 3270

Set db = CurrentDb()

db.Properties("AllowByPassKey") = False

Exit Function

errDisableShift:

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."
Exit Function
End If

End Function

Answer 1

我认为禁用 shift 时无法捕获启动事件。我一直在做的是在启动表单上添加一个隐藏的密码文本框。密码文本框可以通过“隐藏按钮”激活。该效果仅适用于下一次启动事件（及以后），因此它不像您希望的那样直接，但它是可靠的。

1. 在启动窗体中添加一个矩形作为鼠标捕捉器。确保 Back Style 设置为 Normal，但颜色与表单的 BackColor 相同，因此它是不可见的。
2. 在启动表单中添加隐藏文本框。将Input Mask设置为Password
3. 向矩形添加一个 Double_Click 事件，这将取消隐藏密码文本框
4. 在密码文本框中添加一个AfterUpdate 事件，如果密码正确，这将启用 shift 键 (AllowBypassKey)。下次启动就可以进入访问界面了。

使用 AllowBypassKey：

Public Sub CreateLockProperty()

    CurrentDb.Properties.Append CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, True)

End Sub

Public Sub SetToolLock(bLocked As Boolean)

    CurrentDb.Properties("AllowBypassKey") = Not bLocked

End Sub

Public Function ToolLocked() As Boolean

    ToolLocked = Not CurrentDb.Properties("AllowBypassKey")

End Function

首先，您必须通过运行第一个过程来创建属性。之后就可以使用其他两个了。