请各位老师看看如何将主窗体里一个子窗体数据复制到另一个子窗体中.

yanwei82123300

请各位老师看看如何将主窗体里一个子窗体数据复制到另一个子窗体中，（批量，可以选择1条或者多条），谢谢
我想
依据tab_COtoPACKINGLIST subform子窗体aa_status控件的值（如果为真时）将选择的数据复制到tab_SANWA_PACKINGLIST_TPRY subform子窗体中，然后将选择的数据完成追加后，将选择的数据删除。
附件的例子是可以选择数据后点击命令"记录点击到箱单"进行数据的复制，但是没有办法将选择的数据完成追加后，将选择的数据删除。

站到终点站

直接运行删除查询，然后requery不行吗？

yanwei82123300

我想复制（追加）哪条数据就删除哪条。

Henry D. Sy

1. Private Sub Command8_Click()
   
2.     Dim sSQL As String
   
3.     sSQL = "INSERT INTO tab_SANWA_PACKINGLIST_TPRY ( PO_NO, SANWA_ITEM, ITEM_DESC, ORDER_QTY, SHIP_DATE )" _
   
4.          & " SELECT tab_COtoPACKINGLIST.PO_NO, tab_COtoPACKINGLIST.SANWA_ITEM, tab_COtoPACKINGLIST.ITEM_DESC, tab_COtoPACKINGLIST.ORDER_QTY, tab_COtoPACKINGLIST.SHIP_DATE" _
   
5.          & " FROM tab_COtoPACKINGLIST" _
   
6.          & " WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
   
7.     CurrentDb.Execute sSQL
   
8.     sSQL = "DELETE FROM tab_COtoPACKINGLIST WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
   
9.     CurrentDb.Execute sSQL
   
10.     Me.tab_COtoPACKINGLIST_subform.Requery
    
11.     Me.tab_SANWA_PACKINGLIST_TPRY_subform.Requery
    
12. End Sub

复制代码

Henry D. Sy

如果要加上判断有没有选择记录.,也不用像你这么复杂,只要

1. Private Sub Command8_Click()
   
2. 
   
3.     Dim sSQL As String
   
4.     Dim L As Long
   
5. 
   
6.     L = DCount("ORDER_QTY", "tab_COtoPACKINGLIST", "aa_status=True")
   
7. 
   
8.     If L <= 0 Then
   
9.         MsgBox "还没有选择记录，不能添加"
   
10.         Exit Sub
    
11.     End If
    
12. 
    
13.     sSQL = "INSERT INTO tab_SANWA_PACKINGLIST_TPRY ( PO_NO, SANWA_ITEM, ITEM_DESC, ORDER_QTY, SHIP_DATE )" _
    
14.          & " SELECT tab_COtoPACKINGLIST.PO_NO, tab_COtoPACKINGLIST.SANWA_ITEM, tab_COtoPACKINGLIST.ITEM_DESC, tab_COtoPACKINGLIST.ORDER_QTY, tab_COtoPACKINGLIST.SHIP_DATE" _
    
15.          & " FROM tab_COtoPACKINGLIST" _
    
16.          & " WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
    
17.     CurrentDb.Execute sSQL
    
18. 
    
19.     sSQL = "DELETE FROM tab_COtoPACKINGLIST WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
    
20.     CurrentDb.Execute sSQL
    
21. 
    
22.     Me.tab_COtoPACKINGLIST_subform.Requery
    
23.     Me.tab_SANWA_PACKINGLIST_TPRY_subform.Requery
    
24. 
    
25. End Sub

复制代码

yanwei82123300

Henry D. Sy 谢谢老师帮助！