พอดีมีเวลาและเห็นว่ามีหลายครั้งที่มีการถามถึงการสร้างฟอร์มล็อคอินและเมนู ผมเลยเขียนตัวอย่างขึ้นมาเอาไว้ให้เป็นแนวทางในการศึกษาครับ

ระบบมี 2 เทเบิลคือ tbUser ไว้เก็บ ID,รหัสผ่าน,และเมนูที่จะใช้ ในขณะที่อีกเทเบิล tbMenu จะเก็บว่าแต่ละเมนูมีโครงสร้างอย่างไร

ฟอร์มหลักๆคือ FmLogon เพื่อรับ ID และรหัสผ่านผู้ใช้ เมื่อป้อนถูกต้องแล้ว ระบบก็จะเปิดฟอร์ม FmMenu เพื่อแสดงเมนูของแต่ละคน เมื่อคลิกหรือเลื่อนมาที่แต่ละรายการในเมนู คำอธิบายของรายการนั้นจะแสดงที่กรอบด้านล่าง แต่ถ้าดับเบิลคลิก จะเป็นการเปิดหน้าฟอร์ม/รายงานของรายการนั้น พร้อมกับตัวเมนูจะถูกหดย่อลงไป และจะกลับมาแสดงโดยอัตโนมัติเมื่อปิดฟอร์ม/รายงานที่ได้เปิดไป หลังจากปิดเมนู ก็จะกลับมาเปิดฟอร์มล็อคอินอีกครั้ง  ส่วนฟอร์มและรายงานที่เหลือเป็นแค่ตัวอย่างเพื่อแสดงให้เห็นว่าฟอร์ม/รายงานนั้นได้เปิดจริงๆแล้วเท่านั้น

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

ปล. อย่าถามนะว่า login ID และรหัสผ่านมีอะไรบ้าง 

อ้างจาก: ekppom ที่ 29 ม.ค. 61 , 17:59:29

แนะนำนะครับ ผมใช้วิธีนี้อยู่ครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub

จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ

เป็นอีกหนึ่งวิธีที่ OK เลยครับ ผมลองใช้ได้เลย ขอบคุณนะครับ

ลองนำวิธีนีไปใช้กับอีกform ซึ่งในformก็ประกอบด้วย Main form ชื่อ POH กับ Sub form ชื่อ POD Subform พบปัญหาหลังจากกดเลือกรายการสินค้าในform PO Description จะขึ้น error ตามรูปครับ


 แต่ถ้าผมไปเปิดเฉพาะ subform( ไม่เปิด main form) แล้วเลือกรายการสินค้า ใช้ได้ครับ ไม่ error ตามรูป


อันนี้เป็น code ในปุ่มเลือกรายการสินค้า ของ form PO Description