บอร์ดเรียนรู้ Access สำหรับคนไทย

Thai Access Webboard => ห้อง MS Access => ข้อความที่เริ่มโดย: eqsan ที่ 28 พ.ค. 61 , 19:37:09

หัวข้อ: รวม 2 field จากตาราง ลงใน report
เริ่มหัวข้อโดย: eqsan ที่ 28 พ.ค. 61 , 19:37:09

ขออธิบายจากรูปภาพครับผม
(https://www.thai-access.com/tiupld/images/p9fuv4-ae69fa.PNG)

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

หัวข้อ: : รวม 2 field จากตาราง ลงใน report
เริ่มหัวข้อโดย: TTT ที่ 29 พ.ค. 61 , 00:42:08

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 จะเจอตัวอย่างมากมายครับ

หัวข้อ: : รวม 2 field จากตาราง ลงใน report
เริ่มหัวข้อโดย: eqsan ที่ 29 พ.ค. 61 , 06:38:06

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

หัวข้อ: : รวม 2 field จากตาราง ลงใน report
เริ่มหัวข้อโดย: eqsan ที่ 29 พ.ค. 61 , 07:01:15

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