สอบถามการทำ Query ข้อมูลจากตารางครับ

[prajak]

รบกวนสอบถามครับ ผมจะทำ Query ยังไงเพื่อดึง Output จากตาราง B,C,D ที่วันที่ตรงกับตาราง A ได้ครับ โดย Output ที่มีวันที่เหมือนกันให้นำมารวมกัน ตามรูปครับ

[สันติสุข]

ให้ตาราง A ชื่อ TA มีฟิลด์ชื่อ DateA
ให้ตาราง B ชื่อ TB มีฟิลด์ชื่อ DateB และ Output
ให้ตาราง C ชื่อ TC มีฟิลด์ชื่อ DateC และ Output
...

ให้สร้างคิวรี่ชื่อ JoinOutput ซึ่งมี SQL เป็น
SELECT TA.DateA, TB.Output, "OutputB" AS HeadName FROM TA LEFT JOIN TB ON TA.DateA = TB.dateB
UNION ALL
SELECT TA.DateA, TC.Output, "OutputC" AS HeadName FROM TA LEFT JOIN TC ON TA.DateA = TC.dateC
UNION ALL
...

ให้สร้างคิวรี่ชื่อ FinalOutput ซึ่งมี SQL เป็น
TRANSFORM Sum(JoinOutput.Output) AS SumOfOutput
SELECT JoinOutput.DateA
FROM JoinOutput
GROUP BY JoinOutput.DateA
PIVOT JoinOutput.HeadName;

รัน FinalOutput ก็จะได้ผลลัพธ์ที่ต้องการครับ

[prajak]

เพิ่งจะได้ลองทำตามที่อาจารย์แนะนำครับ ขึ้น error ตามรูป ไม่รู้ว่าผิดตรงไหนครับ

[สันติสุข]

ถ้าไม่มีเชื่อมเทเบิลอื่นต่อไปอีกแล้ว ก็ไม่ต้องมีคำว่า UNION ALL ปิดท้ายครับ

[prajak]

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

[prajak]

อาจารย์ครับ รบกวนสอบถามเพิ่มเติมนะครับ หลังจากสร้าง Query FinalOutput แล้วสร้างฟอร์มจาก query FinalOutputแล้ว ทำไมผมใช้ macro apply filter เพื่อกรองวันที่ไม่ได้อะครับ ขึ้น error ตามรูป สร้างจาก vba ก็error เหมือนกันเลย

[ปิ่นณรงค์]

ไม่ต้องอ้างคำสั่ง form!... แล้วคับ ใส่ชื่อ control ที่ ระบุวันที่ได้เลย

[prajak]

ไม่ต้องอ้างคำสั่ง form!... แล้วคับ ใส่ชื่อ control ที่ ระบุวันที่ได้เลย

ก็ยังไม่ได้ครับ

[ปิ่นณรงค์]

นำไปใว้ในปุ่มสถานะ Click

โค๊ด: [Select]

Me.Filter = "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
Me.FilterOn = True

หรือ จะใช้  DoCmd.ApplyFilter ก็ทำได้ ตัวอย่างตามนี้ครับ

โค๊ด: [Select]

DoCmd.ApplyFilter , "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
ตัวอย่างด้านล่าง

[prajak]

นำไปใว้ในปุ่มสถานะ Click

โค๊ด: [Select]

Me.Filter = "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
Me.FilterOn = True

หรือ จะใช้  DoCmd.ApplyFilter ก็ทำได้ ตัวอย่างตามนี้ครับ

โค๊ด: [Select]

DoCmd.ApplyFilter , "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
ตัวอย่างด้านล่าง

ต้องขอบคุณมากสำหรับความช่วยเหลือนะครับ แต่ยังคงไม่ได้ครับ ปกติผมใช้คำสั่งพวกนี้กับฟอร์มที่สร้างจาก query ก็ไม่มีปัญหาอะไร สังเกตว่าฟอร์มนี้สร้างจาก query ที่เป็น crosstab query ก็เลยไม่รู้ว่าต้องทำยังไงครับ

[ปิ่นณรงค์]

มีไฟล์ตัวอย่างไหมครับ

[prajak]

ส่งไฟล์ตัวอย่างมาให้ดูครับ

[ปิ่นณรงค์]

ส่งไฟล์ตัวอย่างมาให้ดูครับ

ติดปัญหาจริงๆด้วยครับท่านแต่ถ้าจะสร้างดัดแปลงการค้นหาแบบนี้ได้ไหม
1.เมื่อได้ Crosstab มาแล้ว ให้ Append มายัง ตารางใหม่ และ กำหนด Form กับตารางใหม่นั้นมันก็จะสามารถค้นหาได้เหมือนกันครับ

โค๊ด: [Select]

Private Sub Command62_Click()
DoCmd.ApplyFilter , "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
End Sub
Private Sub Form_Open(Cancel As Integer)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM TblFinalOutput"
    DoCmd.OpenQuery "MakeTblFinalOutput", acViewNormal
    Me.Form.Requery
End Sub

[prajak]

ส่งไฟล์ตัวอย่างมาให้ดูครับ

ติดปัญหาจริงๆด้วยครับท่านแต่ถ้าจะสร้างดัดแปลงการค้นหาแบบนี้ได้ไหม
1.เมื่อได้ Crosstab มาแล้ว ให้ Append มายัง ตารางใหม่ และ กำหนด Form กับตารางใหม่นั้นมันก็จะสามารถค้นหาได้เหมือนกันครับ

โค๊ด: [Select]

Private Sub Command62_Click()
DoCmd.ApplyFilter , "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
End Sub
Private Sub Form_Open(Cancel As Integer)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM TblFinalOutput"
    DoCmd.OpenQuery "MakeTblFinalOutput", acViewNormal
    Me.Form.Requery
End Sub

ขอบคุณมากครับคุณNewbies ทำตามที่แนะนำได้แล้วครับ แต่หลักการทำงานจริงๆต้องเรียนรู้และทำความเข้าใจเพิ่มเติม เพราะผมเพิ่งหัดเขียนครับ ตอนนี้ยังงงกับอีกตารางหนึ่งครับ ขอลองลองผิดลองถูกด้วยตัวเองดูก่อนนะครับ ถ้าไม่ได้ยังไงคงต้องรบกวนอีกครั้งนะครับ

[ปิ่นณรงค์]

แลกเปลี่ยนความรู้กันคับพี่ เจอเคสใหม่ๆเราได้ศึกษาทำกันคับ

[prajak]

แลกเปลี่ยนความรู้กันคับพี่ เจอเคสใหม่ๆเราได้ศึกษาทำกันคับ

รบกวนสอบถามเพิ่มเติมนะครับ ที่ผมเคยเกริ่นไว้
 ผมมีข้อมูลที่ Query มาได้ทั้งหมด 6 query ดังรูป


และอยากให้ได้ Output ออกมาโดยที่ สมมติหากเรากรองวันที่ 1/3/2018 ถึง 31/3/2018 ให้ ODNo ที่อยู่ในช่วงของวันที่ที่เรากรอง ODNoไหนที่เหมือนกันดึงมาแสดงแค่อันเดียว และเอา TotalCost ของODNo นั้นมารวมกัน คล้ายๆตามตารางที่ด้านล่างนี้ครับ

[ปิ่นณรงค์]

หลายคิวรี่เลย มีตัวอย่างไหมครับ ผมพอจะคิดแนวทางออกละ

[prajak]

เพื่อให้เข้าใจง่ายๆผมสร้างdataมาให้ดูครับ โดยเปลี่ยนจาก query มาสร้างเป็นข้อมูลตารางแทน เนื่องจาก Query มันเชื่อมโยงกันเยอะเอามาไม่หมดครับ
รบกวนด้วยนะครับ