ลองๆดูข้อมูลแล้วผมว่าใช้ Append Query น่าจะสะดวกสุดและง่ายด้วย
โดย Criteria ID จาก Form มาเพื่อCopy ข้อมูล นำไปวางในตารางครับ
Query Append ตั้งชื่อว่า AppendDataFromFormMerchandiserKeyUpdate
Copy โค้ดนี้ไปวางในSQL ได้เลยดังนี้
INSERT INTO Production ( AGENT, BUYER, [PD #], STYLE, [OD #], [P/O #], DESCRIPTION, PIECES, SHIPMENT, COUNTRY, [CR TERM], [UNIT PRICE], [UNIT PRICE baht จริง], [UNIT PRICE baht ประมาณการ], [QTY PCS], [QTY SHIPPED], [TOTAL AMOUNT], [EXC RATE จริง], [TOTAL AMOUNT baht], [COM %], [TOTAL COM], [TOTAL COM baht], [COM baht ประมาณการ], [PAYMENT TERM], [EXC RATE ประมาณการ], [TOTAL BAHT], INVOICE, AMOUNT, [ETD DATE], [DUE DATE], [PAID DATE], REMARK, ผ้า, รวมค่าผ้ารวม, [ค่าแรงตัด-เย็บ-แพ็ค], รวมค่าตัดเย็บแพ็ค, ค่าพิมพ์หลา, รวมค่าพิมพ์หลา, ค่าพิมพ์ชิ้น, รวมค่าพิมพ์ชิ้น, [กระดุม-แสนป-ซิป], [รวมกระดุม-แสนป-ซิป], ค่าปัก, รวมค่าปัก, ค่าปก, รวมค่าปก, ค่าไม้แขวน, รวมค่าไม้แขวน, ค่าซัก, รวมค่าซัก, ค่าวัสดุการผลิต, รวมค่าวัสดุการผลิต, [ค่าคอมมิชชั่น(บาท)], รวมต้นทุนประมาณการ, รวมต้นทุนประมาณการxQTY, ยอดขายรวม, ยอดขายรวมประมาณการ, [ราคาขายก่อน+commission], [Commission Baht], [Commission Baht Total], ต้นทุนรวม, กำไร, สกุลเงิน, pict, [currency], [Air freight], [Total Amount ประมาณการ], ExcRate04, TotalBaht04, DateStatus04, PhotoImport, ChangeShipment )
SELECT Production.AGENT, Production.BUYER, Production.[PD #], Production.STYLE, Production.[OD #], Production.[P/O #], Production.DESCRIPTION, Production.PIECES, Production.SHIPMENT, Production.COUNTRY, Production.[CR TERM], Production.[UNIT PRICE], Production.[UNIT PRICE baht จริง], Production.[UNIT PRICE baht ประมาณการ], Production.[QTY PCS], Production.[QTY SHIPPED], Production.[TOTAL AMOUNT], Production.[EXC RATE จริง], Production.[TOTAL AMOUNT baht], Production.[COM %], Production.[TOTAL COM], Production.[TOTAL COM baht], Production.[COM baht ประมาณการ], Production.[PAYMENT TERM], Production.[EXC RATE ประมาณการ], Production.[TOTAL BAHT], Production.INVOICE, Production.AMOUNT, Production.[ETD DATE], Production.[DUE DATE], Production.[PAID DATE], Production.REMARK, Production.[ผ้า], Production.[รวมค่าผ้ารวม], Production.[ค่าแรงตัด-เย็บ-แพ็ค], Production.[รวมค่าตัดเย็บแพ็ค], Production.[ค่าพิมพ์หลา], Production.[รวมค่าพิมพ์หลา], Production.[ค่าพิมพ์ชิ้น], Production.[รวมค่าพิมพ์ชิ้น], Production.[กระดุม-แสนป-ซิป], Production.[รวมกระดุม-แสนป-ซิป], Production.[ค่าปัก], Production.[รวมค่าปัก], Production.[ค่าปก], Production.[รวมค่าปก], Production.[ค่าไม้แขวน], Production.[รวมค่าไม้แขวน], Production.[ค่าซัก], Production.[รวมค่าซัก], Production.[ค่าวัสดุการผลิต], Production.[รวมค่าวัสดุการผลิต], Production.[ค่าคอมมิชชั่น(บาท)], Production.[รวมต้นทุนประมาณการ], Production.[รวมต้นทุนประมาณการxQTY], Production.ยอดขายรวม, Production.ยอดขายรวมประมาณการ, Production.[ราคาขายก่อน+commission], Production.[Commission Baht], Production.[Commission Baht Total], Production.[ต้นทุนรวม], Production.[กำไร], Production.[สกุลเงิน], Production.pict, Production.currency, Production.[Air freight], Production.[Total Amount ประมาณการ], Production.ExcRate04, Production.TotalBaht04, Production.DateStatus04, Production.PhotoImport, Production.ChangeShipment
FROM Production
WHERE (((Production.ID)=[forms]![Merchandiser Key Update]![ID]));
ส่วนที่ปุ่ม Copy ใส่โค้ดดังนี้
Private Sub Command136_Click()
On Error GoTo Err_Command8_Click
If MsgBox("คุณต้องการ copy ข้อมูลหรือไม่", vbQuestion + vbYesNo + vbDefaultButton2, "Copy ข้อมูล") = vbYes Then
Form.Recalc
DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendDataFromFormMerchandiserKeyUpdate"
DoCmd.SetWarnings True
End If
If DCount("[PD #]", "Production", "[PD #] = '" & Me.PD__ & "'") > 0 Then
MsgBox " PD # มีในระบบแล้วครับ "
End If
Me.Form.Requery
DoCmd.GoToRecord , , acLast
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
