在Access vba中复制粘贴字段

Question

我正在尝试在VBA中编写一个访问宏并开始我希望它将一个表中两个不同字段的所有信息复制并粘贴到一个新表中。是否有一个vba命令允许我在访问中执行此操作？任何帮助都将受到高度赞赏。

Answer 1

Charleh是对的，但你可以运行＆＃34;查询语句＆＃34;来自VBA。以下是几个例子;

如果新表不存在，或者您想要覆盖它;

Docmd.RunSQL "SELECT tbl_Table1.str_Field_1, tbl_Table1.str_Field_2 INTO tbl_Table_2 FROM tbl_Table1;"

如果目标表（＃2）存在且您想要从tbl_Table1追加数据，请尝试;

Docmd.RunSQL "INSERT INTO tbl_Table_2 ( str_Field_1, str_Field_2 ) SELECT tbl_Table1.str_Field_1, tbl_Table1.str_Field_2 FROM tbl_Table1;"

在第二个例子中，您不必使用相同的字段名称（但它们必须是相同的类型），即

Docmd.RunSQL "INSERT INTO tbl_Table_2 ( str_Field_A, str_Field_B ) SELECT tbl_Table1.str_Field_1, tbl_Table1.str_Field_2 FROM tbl_Table1;"