รวม 2 field จากตาราง ลงใน report

[eqsan]

ขออธิบายจากรูปภาพครับผม


จะต้องทำอย่างไรครับผม
รบกวนด้วยครับ

[TTT]

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 DISTINCT Table.Job, ConcatRelated("[Name]","[Table]","[Job]='" & [Table].[Job] & "'") AS Name
FROM [Table];
3. นำคิวรี่นี้ไปสร้างเป็นรายงาน

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

ปล. มีกระทู้คำถามประมาณนี้ลองศึกษาดูที่นี่ครับ https://www.thai-access.com/yeadram_view.php?topic_id=4015 หรือค้นหาใน Google คำว่า ConcatRelated จะเจอตัวอย่างมากมายครับ

[eqsan]

ขอบพระคุณมากครับผม 
เดี๋ยวผมจะลองทำดูก่อนนะครับผม

[eqsan]

เรียนอาจารย์ TTT
ทำได้แล้วครับผม
ขอบคุณมากครับผม