求助：快捷菜单

access新新新手 · 发表于 2017-9-4 08:36:46

With cmb.Controls.Add(1)
      .Caption = "复制(&C)"
      .FaceId = 39
      .OnAction = "=kuaijie('C')"这里如何不用函数直接等于  SendKeys "^c" '复制
      .Style = 3
End With

tmtony · 发表于 2017-9-6 15:35:27

因为菜单调用的必须是全局函数，所以要放在模块里

access新新新手 · 发表于 2017-9-4 12:12:22

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

谢谢！已经搞定了

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

access新新新手 · 发表于 2017-9-4 09:54:10

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

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

会提示找不到这个函数

Henry D. Sy · 发表于 2017-9-4 09:44:08

不用.OnAction
直接
SendKeys "^c"
试试

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 求助：快捷菜单

群介绍
主题无相 (随机显示版	同地区群块其他地区)