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 tbl_slide.tb_labno, ConcatRelated("[tb_slidenum]","[tbl_slide]","[tb_labno]='" & [tbl_slide].[tb_labno] & "'") AS tb_slidenum
ถ้าต้องการตัดตัวเลขหน้า "," ออกให้เหลือแค่ที่ไฮไลต์ทุกๆอัน ต้องแก้ไขโค้ดตรงไหนค่ะ ลองเขียน
บรรทัด ConcatRelated แล้วมันตัดให้แค่ตัวหน้าแค่ตัวเดียวค่ะ
