Access 工具栏名称与编号

[复制链接]

tpe01

电梯直达

1^#

发表于 2015-2-18 13:19:23 | 只看该作者回帖奖励

|正序浏览 |阅读模式

制做右键菜单要引用Access自带的功能如下，
但有此方法要先知道Control.ID 比如复制(&C) 的 ID 是 19
那此不知道 ID号的工具怎么办？，如  删除记录

Private Sub MenuBuy()
Dim CB As Office.CommandBar
Dim CBB As Office.CommandBarButton
Set CB = CommandBars.Add("menubuy", msoBarPopup, False, True)
      With CB
         .Controls.Add msoControlButton, 19, , , True
         .Controls.Add msoControlButton, 22, , , True
      End With
Set CB = Nothing
Set CBB = Nothing
End Sub