Access VBA中通过AutoKeys实现按F4开关frm_autokeys表单

你可以通过以下步骤用VBA实现F4键切换frm_autokeys表单的打开/关闭状态，完全替代AutoKeys宏：

1. 创建标准模块并编写核心代码 #

打开VBA编辑器（按Alt+F11），插入一个新的标准模块，粘贴以下代码：

' 判断指定表单是否处于打开状态
Function IsFormOpen(formName As String) As Boolean
    Dim frm As Form
    On Error Resume Next
    Set frm = Forms(formName)
    IsFormOpen = Not frm Is Nothing
    On Error GoTo 0
End Function

' 切换frm_autokeys表单的显示/隐藏
Sub ToggleAutoKeysForm()
    If IsFormOpen("frm_autokeys") Then
        DoCmd.Close acForm, "frm_autokeys"
    Else
        DoCmd.OpenForm "frm_autokeys"
    End If
End Sub

' 绑定F4键到切换子程序
Sub SetKeyBindings()
    Application.OnKey "{F4}", "ToggleAutoKeysForm"
End Sub

2. 设置启动时自动绑定快捷键 #

为了让F4键的绑定在数据库打开时自动生效，你可以创建一个隐藏的启动表单：

• 新建一个空白表单（命名为frm_Startup）
• 打开该表单的VBA代码窗口，在Form_Load事件中添加代码：

Private Sub Form_Load()
    SetKeyBindings
    Me.Visible = False ' 隐藏启动表单，不影响用户操作
End Sub

• 打开Access选项 → 当前数据库 → 找到「显示窗体」选项，选择frm_Startup作为启动时加载的窗体。

3. 测试效果 #

保存所有更改后关闭并重新打开数据库，按下F4键即可切换frm_autokeys表单的打开/关闭状态：

• 若表单未打开，按下F4会启动表单
• 若表单已打开，按下F4会关闭表单

内容的提问来源于stack exchange，提问作者lielow