โปรแกรมแจกฟรี (ส่งท้ายปีเก่า ต้อนรับปีใหม่) นี้ ใช้ชื่อว่า Q2RFree

เหมาะสำหรับผู้ทำอาชีพอิสระที่จำเป็นต้องออกพวกใบเสนอราคา/ใบแจ้งหนี้/ใบเสร็จ

ตัวโปรแกรมใช้ระบบ MS Access มีความสามารถดังนี้
1. เก็บข้อมูลลูกค้าได้
2. เก็บข้อมูลการออกเอกสารทุกรายการได้
3. สำเนารายการจากเอกสารที่มีอยู่ได้ สำหรับกรณีทำงานเดิมอีกครั้ง หรือจะสำเนาจากใบเสนอราคาไปเป็นใบแจ้งหนี้แล้วต่อด้วยใบเสร็จก็ได้
4. สามารถใส่ Logo ได้ (อย่าลืมไปจดทะเบียนเครื่องหมายการค้าก่อนนะครับ)
5. ถ้ายังไม่มี Logo ก็สามารถออกเอกสารแบบที่ไม่มี Logo ได้
6. เปลี่ยนสีหัวเอกสารได้ จะแดง/เขียว/น้ำเงิน/ชมพู/ฟ้า/เหลือง ได้หมด ไม่มีสีดำ เพราะทำแล้วดูไม่ได้
7. ทุกเอกสารมีให้เลือก 2 แบบ ตามความชอบ

ดาวน์โหลดได้เองเลยที่ลิงก์ด้านล่างนี้
https://1drv.ms/u/s!ArcuGeSfhpiQhwGsRn9TPBxFIpp-?e=c1NGeI

สุดท้ายอย่าลืมอ่านคู่มือก่อนนะครับ
ติดปัญหาอะไรอีเมลมาถามได้ ตอบทุกอีเมลแน่นอน ถ้าไม่ตอบก็รอหน่อย เมลอาจตกไปอยู่ใน Jung Mail

เปลี่ยน Data Type จาก Text เป็น Integer ครับ

รายงานการต่ออายุโดเมนเป็นที่เรียบร้อยครับ

เวลามันช่างผ่านไปไวยิ่งนัก

ดูที่ On Open/On Close ของฟอร์ม และ Module1 ครับ

ถ้า data type ของฟิลด์ห้องสอบเป็น Text ให้เปลี่ยนเป็น

SQL = "update T as T0 set room_sob = cstr(int(dcount(""*"", ""T"", ""number_sob < "" & T0.number_sob)/40)+1)"

DAO.Recordset คือการอ้างถึงคลาสที่ชื่อ Recordset ในไลบรารี่ DAO (จะไม่เขียน DAO. ก็ได้ถ้า 1. เราแน่ใจว่าเรามีคลาสชื่อ Recordset และชื่อนี้ไม่ซ้ำกับคลาสอื่นในไลบรารี่ตัวอื่นในระบบเรา หรือ 2.มีซ้ำในไลบรารี่อื่นๆด้วย แต่เราอ้างถึงไลบรารี่ลำดับแรกที่พบ ซึ่งเราก็ต้องมั่นใจด้วยว่าลำดับของไลบรารี่เรียงถูกต้องแล้ว)

Dim RST As DAO.Recordset  เป็นการสร้างตัวแปรออปเจค RST ที่จะมีคุณสมบัติตามคลาส Recordset

CurrentDb.OpenRecordset("tb_newmember") ให้ชุดเรคอร์ดที่ได้จากเทเบิล tb_newmember และเทเบิลนี้อยู่ในฐานข้อมูลที่โค้ดเรากำลังทำงาน

Set RST = CurrentDb.OpenRecordset("tb_newmember") ให้ตัวแปรออปเจค RST ชี้ไปยังชุดเรคอร์ดที่ได้มาจากคำอธิบายข้างบน

RST.AddNew เป็นเมธอดที่บอกให้ระบบรู้ว่าเราต้องการให้เตรียมพื้นที่สำหรับเรคอร์ดใหม่ในชุดเรคอร์ดในตัวแปรออปเจค RST

RST.Update เป็นเมธอดที่สั่งให้ตัวแปรออปเจค RST เขียนเรคอร์ด กรณีนี้คือเรคอร์ดในพื้นที่ ที่ได้จาก RST.AddNew

Set RST = Nothing บอกให้ตัวแปรออปเจค RST เลิกชี้ไปยังออปเจคใดๆที่มันเคยชี้อยู่

ได้แล้วครับอาจารย์ ปัญหาเกิดจาก ผมอ้างอิง Rs!Num  ใส่ชื่อฟิลล์จริงผิดไปครับลิมสังเกตุ

แก้เป็น
Public Sub ExplodeTable()
   Dim DB  As DAO.Database
    Dim RS  As DAO.Recordset
    Dim LastID  As Variant
    Dim I   As Integer
   
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset("SELECT MakeQryOT.MemID, MakeQryOT.sOT  FROM MakeQryOT ORDER BY MakeQryOT.MemID;")
    Do Until RS.EOF
        If RS!MemID <> LastID Then
            I = 1
            DB.Execute "insert into tblOT_Report (MemID, OT1) values (" & CStr(RS!MemID) & ", " & CStr(RS!sOT) & ")", dbFailOnError
        Else
            I = I + 1
            DB.Execute "update tblOT_Report set OT" & CStr(I) & " = '" & CStr(RS!sOT) & "' where MemID = '" & CStr(RS!MemID) & "'", dbFailOnError
        End If
        LastID = RS!MemID
        RS.MoveNext
    Loop
    RS.Close: Set RS = Nothing
End Sub
ตอนนี้ได้แล้วครับ ขอบคุณครับ

ใช้คำสั่ง SQL ล้วนๆคงไม่ได้ ต้องใช้ VBA ด้วย โค้ดนี้ต้องปรับแก้ให้ใส่ ' ' คร่อม ถ้า data type ของ ID, Num, Fieldxx เป็น Text ด้วยนะครับ

Public Sub xxx()
    Dim DB  As DAO.Database
    Dim RS  As DAO.Recordset
    Dim LastID  As Variant
    Dim I   As Integer
   
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset("select * from Table1 (order by ..., ถ้ามี)")
    Do Until RS.EOF
        If RS!ID <> LastID Then
            I = 1
            DB.Execute "insert into Table2 (ID, Field1) values (" & CStr(RS!ID) & ", " & CStr(RS!Num) & ")", dbFailOnError
        Else
            I = I + 1
            DB.Execute "update Table2 set Field" & CStr(I) & " = " & CStr(RS!Num) & " where ID = " & CStr(RS!ID), dbFailOnError
        End If
        LastID = RS!ID
           
        RS.MoveNext
    Loop
    RS.Close: Set RS = Nothing
End Sub

ขึ้น พารามิเตอร์น้อยเกินไปต้องการ 1 ครับ แถวล่าง Else
DB.Execute "update tblOT_Report set OT" & CStr(I) & " = '" & CStr(RS!OT) & "' where ID = '" & CStr(RS!MemName) & "'", dbFailOnError

Field OT จะมี OT1 , OT2 OT3 ไปเรื่อยๆ

ไม่มีทางเพิ่มเกิน 255 ฟิลด์ครับ ให้สร้างอีกเทเบิลที่มีฟิลด์ Primary Key เหมือนเทเบิลแรก และย้ายฟิลด์ส่วนเกินไปไว้เทเบิลที่สองแทน พร้อมกับสร้าง Relationships (ในริบบอน Database Tools) จากเทเบิลแรกไปเทเบิลที่สอง โดยกำหนดให้มี Enforce Referential Integrity, Cascade Update Related Fields และ Cascade Delete Related Fields ด้วย  คุณสมบัติของ Enforce Referential Integrity จะทำให้เมื่อมีการเพิ่มเรคอร์ด เราใส่ข้อมูลลงในฟิลด์ของเทเบิลแรก และเว้นข้อมูลในฟิลด์ของเทเบิลที่ 2 ก็ได้ ก็จะไม่มีเรคอร์ดปรากฏในเทเบิลที่ 2   แต่ถ้าเราใส่ข้อมูลในฟิลด์ของเทเบิลที่ 2 เราจะต้องใส่ข้อมูลอะไรลงในฟิลด์ของเทเบิลแรกด้วย  ส่วนคุณสมบัติ Cascade Update จะทำให้เมื่อมีการแก้ไขค่าในฟิลด์ Primary Key ของเทเบิลแรกแล้ว ค่านั้นจะไปแก้ไขในฟิลด์ Primary Key ของเทเบิลที่ 2 ให้โดยอัตโนมัติ  สุดท้ายคือคุณสมบัติ Cascade Delete จะทำให้เมื่อเราลบเรคอร์ดในเทเบิลแรกแล้ว เรคอร์ดในเทเบิลที่ 2 ที่มีค่า Primary Key เดียวกันก็จะถูกลบโดยอัตโนมัติเช่นกัน

ต่อมาให้สร้าง Query ใน Design View และลากทั้ง 2 เทเบิลนี้มาใส่ (มันจะแสดงเส้น Relationships ออกมาให้ด้วย) แล้วเลือกฟิลด์ที่เป็น * จากทั้ง 2 เทเบิลมาใส่ในคิวรี่

คุณสามารถนำเอา Query ตัวนี้ไปเป็น Record Source ของฟอร์มหรือรายงานที่ต้องการได้

อย่างไรก็ตาม ลองพิจารณาดูอีกทีว่าเราได้ออกแบบเทเบิลให้เป็นไปตามหลักการ Normalization แล้วหรือยัง ทำไมจำนวนฟิลด์ถึงมีมากขนาดนั้น !!!