为什么toolbar不能触发？

benhum　发表于：2013-05-07 15:07:52 　

下面这段代码为什么不能用toolbar工具栏触发，但用button按钮就可以正常触发。

Me.领用查询FRM子窗体.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
obj.ActiveSheet.Paste

主要是这句代码：Me.领用查询FRM子窗体.SetFocus

子窗体不能获取焦点全选记录。

请教各位是何解？谢谢！

Top

大肚秃秃发表于：2013-05-07 16:22:20

上传例子

Top

cspa 发表于：2013-05-07 17:15:00

改Me.领用查询FRM子窗体.SetFocus
为FORMS![主窗体名].领用查询FRM子窗体.SetFocus，试试。

Top

benhum 发表于：2013-05-08 08:47:13

谢谢cspa关注，

FORMS![主窗体名].领用查询FRM子窗体.SetFocus 依旧不行。

Top

西出阳关无故人发表于：2013-05-08 09:31:54

是sub还是function？

也许要function才能用toolbar触发吧？

Top

benhum 发表于：2013-05-08 11:05:08

谢谢各位的关注。

看了殷小宝的

http://www.accessoft.com/article-show.asp?id=6884

可能是这段代码通码性不是很好。又有可能是操作系统版本的问题。

改用了另一种方法导出EXCEL。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

为什么toolbar不能触发？