访问复制行table1到表2（İfx= .y到表2）和if（x = z到table3）

Question

我开始使用Microsoft Access，我现在遇到了一个问题。首先，我将使用10000多行。我的研究是真的;在使用Access时不会有问题。

我的主要问题是..Wanna将行复制到table1到其他表。表1包括所有信息。复制必须像这样工作。

如果Table1（column7）''Status''=''Backorder''将该行复制到table2（为延期交货创建）

或者，如果table1''Status''=''Ready''将该行复制到table3（为就绪订单创建）

如果你帮助我，我将非常感激。谢谢你的帮助

Answer 1

不要复制记录，使用查询。

例如“table2”=

SELECT * FROM Table1
WHERE Status = "Backorder"

您可以像表格一样使用此查询，例如作为表单或报告的记录来源。

Answer 2

如果要复制另一个表中的记录，则可以使用vba代码执行此操作。

status= "Backorder"
set rs1 =currentdb.OpenRecordset("table2") 
set rs = currentdb.OpenRecordset("select * from table1 where status = '" & status & "'  ")
while not rs.eof

   rs1.addNew

       rs1!cloumnName = rs!colomnName         

   rs1.update

rs.movenext
wend