模拟复制粘贴的过程

tmtony

使用    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 '复制粘贴到新记录

这种方法可复制当前记录的内容到新记录,但有个问题就是,如果在复制之前,如果使用Ctr+C 或复制菜单, 复制了一段文字,那在执行上面这段代码之后, 复制的文字内容就会丢失,因为上面的代码会操作剪切板,所以我想在这段代码执行之前,使用Sendkeys来模拟Ctr+V动作将剪切板原来的内容保存起来,但 SendKeys {^+V}并不起作用,我估计是Access屏蔽了,有什么变通的办法?

waltonw

可以做个更新查询. 另外，快捷键方式您之前有教过我，似乎是"Sendkeys "^(V)", True".

waltonw

献丑了

方漠

Tmtony的意思是不是要把在此次复制之前的复制的东西保留在剪切板上？

打开Office剪切板应该就可以了吧，可以收集24次复制的内容，只是用VBA COPY的不知道会不会自动收集进去，没有测试。

DoCmd.RunCommand acCmdOfficeClipboard

[此贴子已经被作者于2004-9-25 22:28:09编辑过]

kunlun

哇，学一招，高人呀DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

请问这句代码何解呀？谁能比较祥细的解说一下，我不太懂。

方漠

DoMenuItem 方法请参阅 应用于 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\Office10\2052\Vbaac10.chm::/html/acmthactDoMenuItem.htm#example]示例[/url] 特性显示 Microsoft Access 的对应[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\Office10\2052\Vbaac10.chm::/html/acmthactDoMenuItem.htm#]菜单[/url]或[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\Office10\2052\Vbaac10.chm::/html/acmthactDoMenuItem.htm#]工具栏[/url]命令。expression.DoMenuItem(MenuBar, MenuName, Command, Subcommand, Version)expression   必需。返回“Applies To”列表中的一个对象的表达式。MenuBar  必需 Variant 型。对“窗体”视图中的菜单栏使用固有常量 acFormBar。对于其他视图，请使用菜单栏参数列表中的视图所对应的数字，如 Microsoft Access 上一版的“宏”窗口中所示（列表由 0 开始向下计数）。MenuName  必需 Variant 型。可以使用下列固有常量之一：固有常量：acFileacEditMenu acRecordsMenu可以将 acRecordsMenu 仅用于 Microsoft Access 2.0 和 Microsoft Access 95 数据库的“窗体”视图菜单栏中。对于其他菜单，请使用菜单名称参数列表中的菜单所对应的数字，如 Microsoft Access 上一版的“宏”窗口中所示（列表由 0 开始向下计数）。Command  必需 Variant 型。可以使用下列固有常量之一：固有常量：acNewacSaveForm acSaveFormAsacSaveRecordacUndoacCutacCopyacPasteacDeleteacSelectRecordacSelectAllRecordsacObjectacRefresh对其他命令，可以使用命令参数列表中各命令所对应的数字，如在上一版 Microsoft Access 的“宏”窗口中所示（列表由 0 开始向下计数）。 Subcommand  可选 Variant 型。可以使用下列固有常量之一：固有常量：acObjectVerbacObjectUpdate acObjectVerb 常量表示“编辑”菜单上“对象”命令的子菜单中的第一个命令。对象的类型决定了子菜单上的第一个命令。例如，对于“画笔”对象，该命令为“编辑”，表示该对象可以编辑。 对子菜单上的其他命令，使用在子命令参数列表中各子命令所对应的数字，如在上一版 Microsoft Access 的“宏”窗口中所示（列表由 0 开始向下计数）。 Version  可选 Variant 型。对 Microsoft Access 95 数据库的代码使用固有常量 acMenuVer70，对 Microsoft Access 2.0 版数据库的代码使用固有常量 acMenuVer20，而对于 Microsoft Access 1.x 版数据库的代码则使用固有常量 acMenuVer1X。该参数仅在 Visual Basic 中可用。</B

灵芝

SendKeys {^+V}  与SendKeys {^+c } 我也有用过有这样的情况:后面还可用 "," 加入一个时间延迟,有时时间延迟还是必须的才能用,不知与此是否相似?