ขอคำแนะนำ วิธีนำ record จาก table A ไป able B

[kunlek]

มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?

[PNR]

มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?

ใช้Append ได้ครับแต่เงื่อนไขก็คือ ที่ Field date_sale ของตาราง A
โดยใช้การระบุช่วงเดือนโดยใช้ Between

สมมุติชื่อฟอร์ม ชื่อ FormName
มี textbox 2 ตัวชื่อ DateStart และ DateEnd เพื่อใช้ในการระบุวันที่เริ่มต้น และวันที่สิ้นสุด

สร้างปุ่มขึ้นมา 1 ปุ่ม ใส่โค้ดนี้เข้าไป

Dim strSQL As String
strSQL = "INSERT INTO TableB SELECT TableA.* FROM TableA  WHERE TableA.date_sale Between [forms]![FormName]![DateStart] And [forms]![FormName]![DateEnd];"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

[kunlek]

เนื่องจาก table A และ Table B อยู่คนละ file.mdb ครับ 
ถ้า Table B เป็น table ที่อยู่ d:\MM.mdb  เราจะอ้างอิงเขียนตรง INSERT INTO table b จะเขียนได้อย่างไรครับ

[PNR]

เนื่องจาก table A และ Table B อยู่คนละ file.mdb ครับ 
ถ้า Table B เป็น table ที่อยู่ d:\MM.mdb  เราจะอ้างอิงเขียนตรง INSERT INTO table b จะเขียนได้อย่างไรครับ

แบบนี้ครับ

โค๊ด: [Select]

Dim strSQL As String
strSQL = "INSERT INTO TableB IN 'D:\mm.mdb' SELECT TableA.* FROM TableA  WHERE TableA.date_sale Between [forms]![FormName]![DateStart] And [forms]![FormName]![DateEnd];"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

[kunlek]

Private Sub Command0_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO voucher_s1 SELECT voucher_s.* FROM WHERE (((voucher_s1.voucher_s_id)=[ãÊèàÅ¢·ÕèºÔÅ]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

***ทำไม ติด debug ครับ

[kunlek]

runtime error '3070'
The Microsoft Access database engine does not recognize'voucher_s.*' as a valid field name or expression

[kunlek]

ต้องการโอนข้อมูล ตาราง Voucher_s กับ Voucher_s1 และ Fsale กับ Fsale1  ถ้าใส่ code นี้ จะโอนไปเฉพาะตาราง Fsale แต่ถ้าโอนทีละตารางโอนได้ครับ ขอคำแนะนำครับท่าน.....

Private Sub Command0_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO voucher_s  SELECT voucher_s1.* FROM voucher_s1 WHERE (((voucher_s1.voucher_s_id)=[เลขที่บิล]));"
strSQL = "INSERT INTO fsale  SELECT fsale1.* FROM fsale1 WHERE (((fsale1.voucher_s_id)=[เลขที่บิล]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

[PNR]

Private Sub Command0_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO voucher_s1 SELECT voucher_s.* FROM WHERE (((voucher_s1.voucher_s_id)=[ãÊèàÅ¢·ÕèºÔÅ]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub


***ทำไม ติด debug ครับ

voucher_s.* FROM ...... WHERE
หลัง From ต้องมีชื่อตารางหรือคิวรี