Office中国论坛/Access中国论坛

标题: 关于右键菜单的执行代码能不能放在窗体的代码窗口中? [打印本页]

作者: yangzn 时间: 2006-9-19 02:00
标题: 关于右键菜单的执行代码能不能放在窗体的代码窗口中?
一个右键菜单是总是针对一个窗体。可以执行代码却要新建一个模块来放置。不便于维护。要是能集成在窗体代码窗口，该多好。有没有一个类似的好的办法呢？？

[此贴子已经被作者于2006-9-18 18:02:25编辑过]

作者: andymark 时间: 2006-9-19 04:21
右键菜单用窗体生成,这样当然可以

作者: yangzn 时间: 2006-9-19 04:39
标题: 做了一个
版主能不能说再明白点。我做了一个，可以还是要个标准模块[attach]20405[/attach]
Private Sub BuildMenu()
Dim c As CommandBarButton
Dim cBar As CommandBar
On Error Resume Next
Set cBar = CommandBars(Me.Name & "右键菜单")
cBar.Delete

On Error GoTo 0
Set cBar = CommandBars.Add(Me.Name & "右键菜单", msoBarPopup)

Set c = cBar.Controls.Add(msoControlButton)
      c.Caption = "代码建的右菜单,并调用窗体的菜单1"
      c.OnAction = "=myPOP(1)"
      c.Style = msoButtonCaption
Set c = cBar.Controls.Add(msoControlButton)
      c.Caption = "菜单2"
      c.OnAction = "=myPOP(2)"
      c.Style = msoButtonCaption

End Sub

其中不能设成 s="=Forms(" & chr(34) & me.name & chr(34) & ".popMenu(1)"

c.OnAction=s 是不是我的语法有问题!!??，还是该用其它方法

[此贴子已经被作者于2006-9-18 20:43:45编辑过]

作者: andymark 时间: 2006-9-19 05:49
不用 acDialog模式就没问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)