从右键单击CommandBar菜单打开当前记录

Question

我正在使用此代码为我的数据表窗体（Access 2007）创建右键单击菜单。此代码在打开事件数据表子窗体运行：

Dim sMenuName As String 
sMenuName = "DatasheetRightClickMenu" 

On Error Resume Next 
CommandBars(sMenuName).Delete 
If Err.Number <> 0 Then Err.Clear 
On Error GoTo 0 

Dim cmb As Office.CommandBar 
Dim cmbItem 

Set cmb = CommandBars.Add(sMenuName, _ 
      msoBarPopup, False, False) 


Set cmbItem = cmb.Controls.Add(msoControlButton, , , , True) 
With cmbItem 
    .Caption = "Open" 
    .OnAction = "=OpenDetails()" 
End With 

Me.ShortcutMenu = True 
Me.ShortcutMenuBar = sMenuName 

我无法弄清楚如何将当前记录的ID传递给OpenDetails功能。如果我能弄清楚如何传递表单或记录集变量/引用，我会很高兴，但我似乎无法弄清楚如何做到这一点。

将“实时”参数或参数从右键菜单传递到自定义函数的技巧是什么？用户点击时是否必须构建右键单击菜单？或者有更好的方法来做到这一点？

EDIT1：
这是我走到这一步的工作是什么：

Private Sub Form_Current() 
    Call CreateRightClickMenu 
End Sub 

Private Sub CreateRightClickMenu() 
    Dim sMenuName As String 
    sMenuName = Me.Name & "RClickMenu" 

    On Error Resume Next 
    CommandBars(sMenuName).Delete 
    If Err.Number <> 0 Then Err.Clear 
    On Error GoTo 0 

    Dim cmb As Office.CommandBar 
    Dim cmbItem 

    Set cmb = CommandBars.Add(sMenuName, _ 
       msoBarPopup, False, False) 


    Dim s1() As String, s2 As String 
    If Nz(Me.txtitemdesc, "") <> "" Then 
     s2 = Me.txtitemdesc & " " 
     s2 = Replace(s2, ",", " ") 
     s1 = Split(s2, " ") 
     s2 = s1(0) 
    End If 

    Set cmbItem = cmb.Controls.Add(msoControlButton, , , , True) 
    With cmbItem 
     .Caption = "Open " & Replace(Me.txtitemdesc, "&", "&&") 
     .Parameter = Me!ItemID 
     .OnAction = "OpenFromDatasheetRightClick" 
    End With 

    Set cmbItem = cmb.Controls.Add(msoControlButton, , , , True) 
    With cmbItem 
     .FaceId = 640 
     .Caption = "Filter = '" & s2 & "'" 
     .Parameter = s2 
     .OnAction = "FilterAllItemsDatasheet" 
    End With 

    If Me.FilterOn = True And Me.Filter <> "" Then 
     Set cmbItem = cmb.Controls.Add(msoControlButton, , , , True) 
     With cmbItem 
      .Caption = "Clear Filter" 
      .Parameter = "" 
      .OnAction = "FilterAllItemsDatasheet" 
     End With 
    End If 

    Me.ShortcutMenu = True 
    Me.ShortcutMenuBar = sMenuName 
End Sub 

看来，我的回调函数必须是一个公共模块，而不是形式的模块中。

Public Sub FilterAllItemsDatasheet() 
    Dim cbar As CommandBarControl 
    Set cbar = CommandBars.ActionControl 
    If cbar Is Nothing Then 
     Debug.Print "CBar is nothing" 
     Exit Sub 
    End If 
    Dim s1 
    s1 = cbar.Parameter 
    If s1 = "" Then 
     Call Forms("frmAllItemsDatasheet").ClearFilter 
    Else 
     Forms("frmAllItemsDatasheet").cboSearch = s1 
     Call Forms("frmAllItemsDatasheet").UpdateSubform 
    End If 
End Sub 


Public Sub OpenFromDatasheetRightClick() 
    Dim cbar As CommandBarControl 
    Set cbar = CommandBars.ActionControl 
    If cbar Is Nothing Then 
     Debug.Print "CBar is nothing" 
     Exit Sub 
    End If 
    Dim s1 
    s1 = cbar.Parameter 
    Call OpenItemDetailForm(s1) 
    Forms("frmAllItemsDatasheet").SetFocus 
End Sub 

Answer 1

如何：

Set cmbItem = cmb.Controls.Add(msoControlButton, , , , True) 
With cmbItem 
    .Caption = "Open" 
    .OnAction = "=OpenDetails([ID])" 
End With 

''Function 
Function OpenDetails(intID) 
    MsgBox intID 
    ''This would also work 
    MsgBox Screen.ActiveForm.ID 
End Function 

不要忘了关闭并重新打开的形式进行测试时:)