Access列表框右键菜单OnAction提前执行及点击无响应问题求助

咱们一步步拆解你遇到的问题，先理清根源，再给出可直接运行的修正方案：

问题1：DelAction()提前执行+运行时错误2465 #

你这里踩了一个典型的VBA坑：给OnAction赋值时用了DelAction()（带括号），这会立即执行函数，而不是把函数绑定到菜单按钮的点击事件上。另外，DelAction里的Me.Controls("RCActionContextMenu")完全错误——RCActionContextMenu是你创建的右键菜单（CommandBar对象），不是表单上的控件，所以Access找不到这个"字段/控件"，才抛出2465错误。

问题2：改成"DelAction"后按钮无响应 #

主要有两个原因：

• List_actions_DblClick是表单的事件过程，它的参数Cancel As Integer不符合CommandBar按钮OnAction的调用要求（这类绑定函数不需要参数，或者要匹配CommandBar的回调签名），直接绑定不会生效。
• DelAction里的逻辑没有正确判断ListBox是否有选中项，也没正确获取选中项的ID。

修正后的完整代码 #

1. 重构双击事件逻辑为公共函数 #

把双击打开表单的逻辑抽成独立公共函数，让双击事件和右键菜单共享同一逻辑：

Public Sub ViewAction()
    Dim rowNumber As Integer
    Dim id_action As Variant
    Dim vStatus As String
    
    ' 先判断是否有选中项，避免空操作
    If Me.List_actions.ListIndex = -1 Then Exit Sub
    
    rowNumber = Me.List_actions.ListIndex + 1
    id_action = Me.List_actions.Column(9, rowNumber)
    vStatus = Me.List_actions.Column(5, rowNumber)
    
    ' 打开编辑表单
    DoCmd.OpenForm "F_ACTIONS", , , "[ID] = " & id_action
    Form_F_ACTIONS.Effective_date.Visible = Effdatefunction(vStatus)
End Sub

' 原双击事件直接调用新函数
Private Sub List_actions_DblClick(Cancel As Integer)
    ViewAction
End Sub

2. 修正右键菜单创建代码 #

Private Sub List_actions_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim combo As CommandBarControl
    
    ' 清理已存在的菜单，避免重复创建导致的异常
    On Error Resume Next
    CommandBars("RCActionContextMenu").Delete
    On Error GoTo 0
    
    ' 仅在右键点击且有选中项时创建菜单
    If Button = acRightButton And Me.List_actions.ListIndex <> -1 Then
        With CommandBars.Add(Name:="RCActionContextMenu", Position:=msoBarPopup)
            ' 查看/编辑按钮
            Set combo = .Controls.Add(Type:=msoControlButton)
            combo.BeginGroup = True
            combo.Caption = "View action"
            combo.OnAction = "ViewAction" ' 绑定公共函数名（字符串形式，不带括号）
            
            ' 删除按钮
            Set combo = .Controls.Add(Type:=msoControlButton)
            combo.Caption = "Delete action"
            combo.OnAction = "DelAction" ' 绑定公共函数名（字符串形式，不带括号）
        End With
        
        DoCmd.CancelEvent
        CommandBars("RCActionContextMenu").ShowPopup
    End If
End Sub

3. 修正删除函数DelAction #

Public Function DelAction()
    Dim selectedId As Variant
    
    ' 检查是否有选中项
    If Me.List_actions.ListIndex = -1 Then Exit Function
    
    selectedId = Me.List_actions.Column(9) ' 直接获取当前选中项的第9列（ID）
    
    ' 执行删除操作（建议后续改用参数化查询提升安全性，这里先保留你的原有写法）
    CurrentDb.Execute "DELETE * FROM T_ACTIONS WHERE ID = " & selectedId & ";"
    MsgBox "Action supprimée", vbInformation, "Information"
    
    ' 删除后刷新ListBox，更新显示
    Me.List_actions.Requery
End Function

关键修改点总结 #

• 所有OnAction都赋值为字符串形式的公共函数名，不带括号，这样才会在按钮点击时触发函数，而非提前执行。
• 移除DelAction中错误的Me.Controls("RCActionContextMenu")引用，改用ListIndex判断是否有选中项。
• 将双击事件逻辑抽成公共函数，确保右键菜单和双击事件行为一致，同时符合CommandBar的调用要求。
• 增加右键菜单创建前的选中项判断，避免用户右键点击空白处弹出无意义的菜单。

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