Office中国论坛/Access中国论坛

标题: 求助：快捷菜单 [打印本页]

作者: access新新新手 时间: 2017-9-4 08:36
标题: 求助：快捷菜单
With cmb.Controls.Add(1)
      .Caption = "复制(&C)"
      .FaceId = 39
      .OnAction = "=kuaijie('C')"这里如何不用函数直接等于  SendKeys "^c" '复制
      .Style = 3
End With

作者: Henry D. Sy 时间: 2017-9-4 09:44
不用.OnAction
直接
SendKeys "^c"
试试

作者: access新新新手 时间: 2017-9-4 09:54

Henry D. Sy 发表于 2017-9-4 09:44
不用.OnAction
直接
SendKeys "^c"

谢谢！不用没有反应，用了 .OnAction = "=kuaijie('C')后

会提示找不到这个函数

作者: access新新新手 时间: 2017-9-4 12:12

Henry D. Sy 发表于 2017-9-4 09:44
不用.OnAction
直接
SendKeys "^c"

谢谢！已经搞定了

原来创建菜单代码和自定义函数要在模块里面才可以。

作者: tmtony 时间: 2017-9-6 15:35
因为菜单调用的必须是全局函数，所以要放在模块里

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