สรุปวันลา

[laemthong]

นำข้อมูลจากคาราง   TblVacation  มา สรุป ในตาราง ResultVacation มีแนวทาง การเขียน Query หรือ VBA Code แบบใดได้บ้างครับ

[OddyWriter]

ใช้ Crosstab Query แล้วกำหนด Headder 1-31 ด้วยครับ

[laemthong]

ขอคุณครับ OddyWriter การกำหนด Header ใน Crosstab 1-31 ทำอย่างไรครับ? ผมทำได้แค่นี้ครับ  ขอรบกวนดูวิธีกำหนด Header 1-30 ใน  CrosstabQuery  (ภาพ ใน QBE Grid นะครับ)    ถ้าเป็น VBA Code ที่มีการ Loop ข้อมูล  แล้ว  Update ใน คาราง ResultVacation ที่สร้างรอไว้แล้ว  จะมีความเป็นไปได้หรือเปล่าครับ

[OddyWriter]

เอาไฟล์มาฝากไว้ที่นี่ครับ

[laemthong]

ไฟล์แนบครับ VACATION.ZIP

[OddyWriter]

เอาไปประยุกต์ดูนะครับ

[laemthong]

ยังไปต่อไม่ได้ครับ...

[OddyWriter]

1. สำหรับระบบบันทึกการขาดงานน่ะ คุณควรออกแบบตาราง tblVaction ใหม่ครับ (คุณไม่ได้ส่งตารางนี้มาให้ ผมก็ทำให้ได้เท่าที่ทำให้ครับ)
โดยตารางก็ควรประกอบด้วย ID,วันที่ลา,ประเภทการลา,หมายเหตุ (จะมีหรือไม่ก็ได้)
2. ควรมีตารางวันหยุดของทั้งปี เพื่อนำมาใช้ในข้อ 3
3. การบันทึกข้อมูลในตาราง tblVacation ก็บันทึกวันลาในแต่ละวัน ถ้าเขาลาต่อเนื่องก็ต้องมีวัน เช่น เขาลาวันที่ 5-8 ตุลา ก็ต้องบันทึกวันที่ 5 ตุลา และ 8 ตุลา เท่านั้น ส่วนวันที่ 6-7 ตุลา เป็นเสาร์-อาทิตย์ ซึ่งไม่ต้องบันทึก โดยเรานำตารางวันหยุดมาเป็นตัวหักวันที่ 6-7 ออกไป

เมื่อได้ข้อมูลพวกนี้แล้ว ก็นำมาทำ Crosstab Query

[nonc31]

ไม่รู้ว่าทำถึงไหนแล้ว ผมมีคอนเสบแบบนี้

[laemthong]

กำลังหาแนวทางอยู่ครับ....ต้องขอบคุณ OddyWriter ที่แนะนำครับ ถ้าไม่เป็นการรบกวน ผมขอไฟล์ของคุณ nonc31 มาศึกษา ดูครับ.....

[laemthong]

ทำได้ละครับ.....ชีวิต ต้องมีหนทาง.....
1.สร้างตาราง วันที่ ในรอบปี (365 หรือ 366 วัน แล้วแต่ปี)  และหาวันหยุด เสาร์ และ อาทิตย์  ทั้งปี
2. หาข้อมูลวันหยุดอื่นๆ (จากเวปไซต์ ต่างๆ)  เพื่ออัพเดทตารางในข้อ 1 ลบข้อมูลที่ไม่ใช่ วันหยุด ในข้อ 1 ทิ้ง จะเหลือข้อมูล ที่เป้นวันหยุดทั้งปีรวม เสาร์และอาทิตย์ ทั้งปี (เพิ่งรู้เหมือนกันว่า วันหยุดทั้งปี รวมเสาร์อาทิตย์ 100 กว่าวัน)

3 สร้างตาราง ชั่วคราว (แบบที่ คุณ OddyWriter แนะนำ) Loop ข้อมูล ว่าการลาแต่ละครั้งเป็นการลาแะไร ป่วย กิจ พักผ่อน ขาด ฯลฯ 
4.นำตาราง ที่ได้ จาก ข้อ 1 สร้างความสัมพันธ์กับตารางข้อ 3 วันหยุด(ตารางข้อ1) กับวันที่ลา(ตารางข้อ3)  อัพเดทให้เป็นค่าว่าง  ก็จะเหลือวันที่ลาจริงๆ

[OddyWriter]

จริงๆ แล้วในข้อ 2 ไม่จำเป็นต้องลบข้อมูลก็ได้ แต่กำหนด Data Type เป็น Yes/No ก็ได้แล้วครับ เผื่อระหว่างปีมีการเปลี่ยนวันหยุด

[laemthong]

จริงๆ แล้วในข้อ 2 ไม่จำเป็นต้องลบข้อมูลก็ได้ แต่กำหนด Data Type เป็น Yes/No ก็ได้แล้วครับ เผื่อระหว่างปีมีการเปลี่ยนวันหยุด

[laemthong]

วันหยุดทั้งปี ไม่รวมเสาร์-อาทิตย์

แบบสรุปวันลา รายบุคคล (เตรียมนำไปทำ รายงาน ต่อไป )

วันหยุดทั้งปี เสาร์-ทิตย์ รวม วันหยุดอื่นๆ....ลบวันทำการออกไปแล้ว....(ที่บอกว่าวันหยุดทั้งปี มี 100 กว่าวัน ปีที่คำนวณ มีวันหยุดถึง 124 วันต่อปั)

[laemthong]

อาจจะ เยิ่นเย้อไปหน่อย หลายขั้นตอน หลายตาราง แต่ก็ได้ผลออกมาตามความต้องการ  ขอขอบคุณ  OddyWriter, 86I nonc31  ที่ให้แนวคิด และคำแนะนำ  และอีกหนึ่งท่าน ที่ได้ให้คำแนะนำมาโดยตลอด คือ อาจารย์ สันติสุข....

ด้วย VBA Code อันนี้ ที่นำไปปรับแต่งและประยุกต์ใช้ ทำให้ปัญหาผ่านไปด้วยดี...ขอบคุณครับ