CommandBar Control onAction获取源代码控制

时间:2014-04-04 09:26:42

标签: vba ms-access

可能很简单,但我无法在文档中找到它:

这是创建触发函数的CommandBarControl的代码部分

Set CBarControl = cmbRightClick.Controls.Add(Type:=msoControlButton)
CBarControl.caption = "Open Pat"
CBarControl.Style = msoButtonIconAndCaption
CBarControl.FaceId = 59
CBarControl.OnAction = "=SCOpenPat()"

现在我想知道哪个控件触发了这个动作。因此,当我将此快捷菜单分配给Edit时,我希望SCOpenPat()知道编辑,其形式和值。

我还试图找出Application.CommandBars.ActionControl某处是否有这方面的信息,但没有成功....

谢谢你的帮助!

1 个答案:

答案 0 :(得分:0)

感谢您的帮助,现在就把它发现了。

CBarControl.OnAction = "=SCSelectTum([ID])"

这实际上给了我所选Recordset(连续形式)的ID,足以满足我想做的一切。