รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว

[UnKnown]

คุณ ต้น Original post
รบกวนอาจารย์ครับ ผมอยากได้วิธีการ รวมข้อมูลจากฟิวส์เดียวกัน แต่มีหลายเร็คคอร์ด รวมข้อมูลเป็นฟิวส์ใหม่ ฟิวส์เดียว ตัวอย่าง

รหัสใบสั่งซื้อ                             รายการ
1001                                    อาหารเสริม 1
1001                                    อาหารเสริม 2
1001                                    อาหารเสริม 3

อยากให้รวมฟิวส์ใหม่เป็น      มีรายการ   อาหารเสริม1,อาหารเสริม2,อาหารเสริม3

ขอบคุณครับ

[TTT]

สมมุติตารางคุณชื่อ Table1

1. ใส่ฟังก์ชั่นนี้ลงใน Module

โค๊ด: [Select]

Function ConcatRelated(expression$, domain$, criterial$)
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim ConCat As String
 
    Set db = CurrentDb()
    SQLCmd = "SELECT " & expression$ & " FROM " & domain$ & " WHERE " & criterial$
    Set rs = db.OpenRecordset(SQLCmd)
 
    If Not rs.EOF Then
        rs.MoveFirst
    End If
 
    Do While Not rs.EOF
        ConCat = ConCat & rs(0) & ", "
        rs.MoveNext
    Loop
   
    If ConCat & "" <> "" Then
        ConcatRelated = Left(ConCat, Len(ConCat) - 2)
    End If
    rs.Close: Set rs = Nothing: Set db = Nothing
End Function

2. สร้างคิวรี่ใหม่ เขียน SQL ดังนี้:

โค๊ด: [Select]

SELECT Table1.[รหัสใบสั่งซื้อ], ConcatRelated("รายการ","Table1","รหัสใบสั่งซื้อ=" & [รหัสใบสั่งซื้อ]) AS รวมรายการ
FROM Table1
GROUP BY Table1.[รหัสใบสั่งซื้อ];

ประมาณนี้ ปรับใช้ดูครับ

[marut.navy]

สาธิตทาง youtube ได้ป่าวครับ

[TTT]

  16
ขั้นตอนมีอยู่เท่านี้จริงๆครับ คือสร้างฟังก์ชั่นขึ้นมา แล้วก็นำฟังก์ชั่นไปใช้ในคิวรี่ครับ
คือถ้าตามโจทย์ คุณลองทำตามขั้นที่ 1 สร้างฟังก์ชั่นใน Module ขึ้นมา
ส่วนขั้นที่ 2 ก็ไปที่คิวรี่ สร้างใหม่ แล้วนำ SQL ที่ให้ไปใส่ลองในมุมมอง SQL แล้วเปลี่ยชื่อ Table1 ให้เป็นชื่อตารางของคุณแทนครับ ประมาณนี้

[Peak21]

ทำแล้วเป็นแบบนี้ครับ

[PNR]

แจ้ง ERROR ที่เกิดด้วยครับ มันจะมีข้อความแสดงอยู่