ซับซ้อนดีเหมือนกัน
รออาจารย์ท่านอื่นก่อนนะครับผมยังคิดไม่ออกอิอิ 

เช่น
ใบเสร็จเลขที่ V001
รายงานที่ 1
รายการสินค้า
รหัสใบสั่งซื้อ|รหัสสินค้า|ราคาปกติ|ราคาลด
V001       | P1       |25       |25
V001       | P2       |20       |15
V001       | P3       |15       |15
V001       | P4       |30       |25
V001       | P5       |25       |20

รายงานอันที่ 2
รหัสสินค้า    P5    ราคาลด 20  ของใบเสร็จเลขที่ V001  (head group)
รหัสใบสั่งซื้อ|ราคาลด    (details)
V003       | 20
V003       | 15

รหัสสินค้า    P4    ราคาลด 25  ของใบเสร็จเลขที่ V001  (head group)
รหัสใบสั่งซื้อ|ราคาลด    (details)
V004       | 35
V003       | 30


ถ้าแยกพอทำได้ แต่ถ้าหน้าไปหน้า 2 ผมก็ยังทำไม่เป็น รออาจารย์ท่านอื่น
แต่ถ้าแสดงแบบแยกคิวรี่ และคนละรายงานกันก็พอทำได้
แล้วการระบุ ราคาลด และรหัสสินค้าคุณจะทำอย่างไรครับ

คื่อ จะแสดงยอดขายในแต่ละเดือนใน คิวรี่ ทำยังไงครับ เช่น
เดือนที่แล้วขายได้ เช่น ชื่อของที่ขาย ราคา วันที่ของขายได้ 1/5/63
                  ชื่อของที่ขายได้  ราคา วันที่ขายได้ 2/5/63
เดือนได้ขายได้ เช่น ชื่อของ ราคา วันที่ขายได้ 6/6/63
                       ชื่อของ ราคา วันที่ขายได้ 12/6/3/63

อยากให้แสดงยอดขายแต่งละเดือนขายได้เท่าไรเช่น  ชื่อของที่ขาย ราคา วันที่ของขายได้ 1/5/63
                                                              ชื่อของที่ขายได้  ราคา วันที่ขายได้ 2/5/63

ไม่ค่อยเข้าใจโจทย์ คือคุณต้องการให้แสดง รายละเอียดการขายของแต่ละเดือน โดยแยกเป็นเดือนๆไปใช่หรือไม่
อยากแสดงผลแบบนี้หรือไม่

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 ต้องมีชื่อตารางหรือคิวรี

น่าจะแบบนี้ครับ
Sub FieldNames()
    Dim rst, rstOut, strTable  As Recordset
    Dim f As Field
    Dim SQL, RecordName As String
   
    Set rst = CurrentDb.OpenRecordset("tbTarang1")
    Set rstOut = CurrentDb.OpenRecordset("tbfild1")
        rst.MoveFirst
        Do Until rst.EOF
            RecordName = rst!fname
    Set strTable = CurrentDb.OpenRecordset(RecordName)
            For Each f In strTable.Fields
                rstOut.AddNew
                rstOut![tarang] = RecordName
                rstOut![fild] = f.Name
                rstOut.Update
            Next
        rst.MoveNext
        Loop
    rst.Close: Set rst = Nothing
    rstOut.Close: Set rstOut = Nothing
    strTable.Close: Set strTable = Nothing
End Sub

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

แบบนี้ครับ
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

ถ้าเราต้องการให้แยก Field ในตาราง ครับ เราต้องเพิ่มทุกช่องใช่ไหมครับ
เช่น ถ้าเราใส่ตรง Number 1 - 10
ก่จะได้
Runnum   : AAA 10ตัว
Runnum1 : 2010 10ตัว
Runnum2 : 0001-0010

แก้โค้ดเป็นแบบนี้
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = Me.txtModel
        rs![Runnum1] = Me.txtYear
        rs![Runnum2] = strNum
       
     rs.Update
     Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing

ขอปรับเพิ่มโค้ดนิดหน่อยครับ เปิด record มาใช้แล้วลืมปิด

Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Nz(Me.txtModel) & Nz(Me.txtYear) & Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = strNum
     rs.Update
     Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing   

การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตารางแล้วจะได้ 100 ตาราง

100 ตารางหรือ 100 Record ครับ ???

ถ้า 100 Record ก็ตามนี้เลย
โค้ด

Private Sub Command8_Click()
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET) 'Table1 คืื่อตาราง
   
    For I = Me.txtBeginNumber To Me.txtEndNumber
    strNum = Nz(Me.txtModel) & Nz(Me.txtYear) & Right("00000" & I, 4)

     rs.AddNew
        rs![Runnum] = strNum 'runnum คือ Field ในตาราง
     rs.Update
     Next   
End Sub

เวลาใส่ตัวเลข ในช่องเริ่มและสิ้นสุด ใส่ตัวเลข ธรรมดาได้เลยเช่น  1   กับ 100

มีตาราง 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