1
ห้อง MS Access / : สอบถามการสร้าง Daily , Weekly , Month Calendar แบบ Gatt Chart ครับ
« เมื่อ: 14 มิ.ย. 61 , 11:13:12 »
ขอบคุณครับอาจารย์ TTT
โพสต์นี้ได้รับคำขอบคุณจาก: eqsan
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
สวัสดีครับเพิ่มเติมอีกนิดนะพี่ ผมกำลังทดลองทำให้อยู่ แต่คงทำให้เป็นทีละส่วนๆไปนะครับ
ผมอยากได้แบบที่ 2 ครับผม
รบกวนด้วยนะครับ
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
SELECT DISTINCT Table.Job, ConcatRelated("[Name]","[Table]","[Job]='" & [Table].[Job] & "'") AS Name
FROM [Table];