Class Module ใช้เขียนโค้ดเพื่อสร้างตัว Object ของเราเอง เทียบอย่างเช่นเมื่อเราเขียน Dim RS as DAO.Recordset ตัว Recordset ก็คือคลาสจากไลบรารี่ DAO   ตัว RS ก็คือตัวแปร Object จากคลาส Recordset

Class และ Object เป็นแนวคิดการเขียนโปรแกรมเชิงวัตถุ (Object Oriented Programming, OOP) ซึ่งมีคุณสมบัติพิเศษมากมาย แต่ VBA มีแค่ส่วนนึงเท่านั้น จุดประสงค์หนึ่งก็เพื่อให้คนอื่นมาเรียกใช้โค้ดของเราอย่างที่ผมขอเรียกว่า "เข้าตามตรอก ออกตามประตู" ใครจะเรียกใช้ให้โค้ดเราทำอะไร ก็ต้องเรียกผ่านโค้ดที่เรากำหนด (ใน OOP เรียกว่า Method) หรือกำหนด/อ่านค่าอะไรของโค้ดเรา ก็ต้องส่ง/รับผ่าน Property เท่านั้น ไม่ว่าจะเป็น Method หรือ Property ก็จะเป็น Procedure ดังนั้นโค้ดใน Procedure เหล่านี้ก็จะสามารถกรองและตรวจสอบได้ว่าค่าที่ส่ง/รับ เป็นค่าที่เหมาะสมหรือไม่ ถ้าเราจะเขียน Module ธรรมดาเพื่อเลียนแบบให้โค้ดอื่น "เข้าตามตรอก ออกตามประตู" เหมือนกันก็ทำได้ แต่การอ้างชื่อจาก Module ของเราคงไม่สะดวกเท่าการเขียนด้วย Class Module และจะทำไปทำไมในเมื่อมี Class Module ให้ใช้อยู่แล้ว ผมก็เคยมีงานชิ้นนึงที่ตัดสินใจใช้ Class Module เพราะมีความซับซ้อนและเห็นว่าการเขียนในรูปแบบ Object.Property = ค่า และ Object.Method จะทำให้อ่านโค้ดได้เข้าใจมากกว่าเขียนเป็น Variable = ค่า และ Call Procedure มากๆครับ

ผมไม่ได้มีความเชี่ยวชาญอะไรเกี่ยวกับ OOP คงตอบได้แค่นี้ก่อนครับ

ปกติในระบบงาน ทุกเทเบิลจะมีการกำหนดฟิลด์ที่เป็น Primary Key เอาไว้ ระบบฐานข้อมูลจะไม่ยอมให้ค่าในฟิลด์เหล่านี้ซ้ำกัน  Primary Key อาจประกอบไปด้วยหลายฟิลด์ก็ได้  แต่ถ้ามี Primary Key อยู่แล้ว ก็กำหนด Key อื่นๆเพิมเติมก็ได้ และกำหนด Unique property ของ Key นั้นเป็น No หรือ Yes เพื่อให้ค่าในฟิลด์ซ้ำกันหรือไม่ซ้ำกันเหมือนคุณสมบัติของ Primary Key ก็ได้  (Key เหล่านี้รวมๆกันจะอยู่ในหมวดที่ Access เรียกว่า Indexes) 

ในกรณีของออเดอร์สินค้า หมายเลขออเดอร์จะไม่ซ้ำกันอยู่แล้ว ถ้าธุรกิจคุณเป็นแบบออเดอร์เดียวมีแค่รายการเดียว ก็กำหนดฟิลด์หมายเลขออเดอร์เป็น Primary Key ไปได้เลย ดังนั้นเมื่อก็อปปี้มาแล้ว ถ้าไม่แก้ไขค่าฟิลด์ที่เป็น Primary Key ระบบก็จะฟ้องออกมาและไม่ยอมบันทึกลงเทเบิลให้ แต่ถ้าที่ป้อนเป็นแค่รายการหนึ่งในหลายๆรายการในใบออเดอร์ ก็จะต้องหาฟิลด์อื่นๆมารวมกับเลขออเดอร์เพื่อเป็น Primary Key ถ้าระบบไม่ยอมให้ออเดอร์สินค้าตัวเดียวกันปรากฏมากกว่าหนึ่งรายการในออเดอร์หนึ่งๆ ก็เอาฟิลด์เลขอเดอร์และฟิลด์รหัสสินค้ามารวมเป็น Primary Key ได้  แต่ถ้าระบบยอม ก็ต้องหาอย่างอื่นมาเพิ่มเติมเข้าไปอีกเพื่อให้แตกต่างจากรายการอื่นๆในใบนั้นให้ได้ หรือกำหนดฟิลด์หมายเลขบรรทัดรวมกับฟิลด์หมายเลขออเดอร์ก็เป็นวิธีหนึ่งที่ทำๆกันครับ

น่าจะเพราะ AutoExpand property ไม่ได้กำหนดเป็น Yes ครับ

ภาษา VBA นำมาจากภาษา BASIC ซึ่งเป็นภาษาเก่าแก่ สิ่งนึงที่ตกทอดมาถึง VBA ก็คือหมายเลขบรรทัด เราสามารถใส่เลขที่บรรทัด จะเป็นเลขอะไรก็ได้ตั้งแต่ 1 ถึง 65535 และแต่ละบรรทัดจะเป็นเลขอะไรก็ได้ ไม่จำเป็นต้องเรียงลำดับ ไม่จำเป็นต้องมีทุกบรรทัด ขอให้ไม่ซ้ำใน Sub หรือ Function Procedure เดียวกันก็พอ โดยเขียนไว้เป็นส่วนแรกของโค้ดแต่ละบรรทัด ที่ทำๆกันมาเป็นมาตรฐานก็คือเริ่มจาก 10  และเพิ่มทีละ 10 เพื่อให้อ่านง่ายและสะดวกเมื่อมีการแทรกบรรทัดเพิ่ม จะได้ใส่เลขบรรทัดได้โดยไม่ต้องไปแก้หมายเลขของบรรทัดอื่นๆให้เสียเวลาครับ

ตย.ของโค้ดก็เช่น
Private Function NewSalesPrice(Price As Variant, Percent As Variant) As Single
          Dim Factor  As Single

          On Error GoTo ErrHandler

10        Factor = 1 + Percent / 100
20        NewSalesPrice = Price * Factor

ExitRtn:
30        Exit Function
               
ErrHandler:
40        MsgBox "In [NewSalesPrice], Line " & Str(Erl) & ", Error " & Str(Err.Number) & " : " & Err.Description
50        Resume ExitRtn
End Function
เลขบรรทัดทำหน้าที่แบบเดียวกับลาเบล เราสามารถสั่ง Goto <ลาเบล/เลขบรรทัด> หรือ GoSub <ลาเบล/เลขบรรทัด> เพื่อให้โค้ดข้ามไปทำงานที่บรรทัดตามเลขที่นั้นได้ แต่ประโยชน์ที่ชัดเจนที่สุดก็คือ ถ้าเกิด Runtime Error ขึ้นในบรรทัดของโค้ดที่มีเลขที่บรรทัดอยู่ เราสามารถใช้ฟังก์ชั่น Erl เพื่อคืนเลขที่บรรทัดออกมาได้ด้วย ดังนั้นเราจึงใส่ไว้ในส่วนของ Error Handling Routine เพื่อบอกให้ทราบว่าเกิดปัญหาที่บรรทัดอะไร การ Debug หรือแก้ไขปัญหาก็จะทำได้ง่ายขึ้นมาก แต่หากเกิด Error ในบรรทัดที่ไม่ได้ใส่หมายเลขบรรทัดเอาไว้  ฟังก์ชั่น Erl จะคืนค่าของเลขบรรทัดสุดท้ายที่อยู่ก่อนหน้าออกมาให้แทน หรือถ้าไม่มีเลย ก็จะคืนค่าเป็นศูนย์แทนครับ

ตย.ของข้อความ

เขียนข้อเสนอแนะให้ทีมพัฒนา Access access.uservoice.com/forums/319956-access-desktop-application

เขียนข้อเสนอแนะให้ทีมพัฒนา Office officespdev.uservoice.com/forums/224641-feature-requests-and-feedback?category_id=164751 ถ้าเกี่ยวกับ VBA IDE ให้เลือกหมวด Office Development Tools

Blog ของทีมซัพพอร์ทของ Access blogs.technet.microsoft.com/the_microsoft_access_support_team_blog/

Blog ของ Office365 ในเรื่องเกี่ยวกับ Access www.microsoft.com/en-us/microsoft-365/blog/access/

ลองทำตาม Instructions for use ในนี้ดูครับ www.everythingaccess.com/tutorials.asp?ID=A-new-method-for-disabling-the-Mouse-Scroll-Wheel-in-Access-forms

ข้ามไปดูเวลาที่ 11:50

ปักครับ



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

ถ้าวางฐานข้อมูลไว้ที่เครื่องเราเองหล่ะครับ จะเกิดปัญหาหรือไม่

เพิ่มเติม : เมื่อหาใน Google ด้วยประโยค upgrade windows 10 map drive not available จะเห็นว่ามีคนมีปัญหาเดียวกันเยอะมาก ที่พบลิงค์นึงน่าสนใจคือ answers.microsoft.com/en-us/insider/forum/insider_wintp-insider_files/network-mapped-drives-not-available-on-windows-10/ef955b4b-1103-42db-a00d-cd1520a8e178?auth=1 ลองดูหน้าสุดท้ายที่ JE
JemHam เขียนไว้วันที่ November 21, 2016 อาจช่วยได้