|
|
ความหมาย
เป็น Object ตัวสุดท้ายของโปรแกรม Access ที่ให้ผู้ใช้หรือโปรแกรมเมอร์สร้างโปรแกรมย่อย และฟังก์ชั่น เพื่อให้บริการโปรแกรมที่ควมคุมฟอร์มอีกทีหนึ่ง ประการสำคัญก็คือ ถ้ามีความจำเป็นต้องใช้โปรแกรมซ้ำ ๆ กันหลายจุด จึงควรแยกโปรแกรมที่ซ้ำ ๆ กันนี้ แยกออกเป็นโมดูล หากต้องการใช้ก็เพียงแต่กำหนดชื่อโมดูล หรือโปรแกรมย่อยนั้นเพียงอย่างเดียว
การสร้างโมดูล
การสร้างโมดูล มีขั้นตอนต่าง ๆ ดังนี้
- คลิก Object Module ที่หน้าต่าง Database > คลิก New
รูปที่ 1
2. จากนั้นจะได้หน้าต่างโปรแกรม Visual Basic ตามรูปที่ 2
รูปที่ 2
3. พิมพ์ Code ลงไปที่หน้าต่าง Codeตัวอย่าง โปรแกรม qadatabase.mdb มีความต้องการปุ่มปิดหน้าต่างที่ฟอร์ม 3 ฟอร์ม และปุ่มปิดมีการถามยืนยันด้วยว่า จะปิดหน้าต่างใช่หรือไม่ ถ้าใช่ ตอบ Yes จะปิดหน้าต่างไป ถ้าไม่ใช่ตอบ No จะอยู่ที่เดิม คลิกที่นี่เพื่อดาวน์โหลดตัวอย่างไปเปิดดู ตอนเปิดต้องกด Shift ค้างไว้ด้วยนะครับ ถ้าไม่กด Shift จะเข้าหน้าต่างฟอร์ม Startup ครับ
ให้พิมพ์ Code ดังต่อไปนี้
Sub mClose()
If MsgBox("คุณต้องการปิดหน้าต่างนี้ใช่หรือไม่?", vbYesNo + vbCritical, "โปรดยืนยัน") = vbYes Then
DoCmd.Close
Else
Exit Sub
End If
End Sub
เมื่อพิมพ์เสร็จแล้วให้คลิก Save แล้วใส่ชื่อว่า ModuleClose
การเรียกโมดูลทำงาน
จากโปรแกรมตัวอย่าง มีฟอร์ม 3 ฟอร์ม ที่เรียกใช้โมดูล มีดังนี้
frm_qrysearchcode
frm_qrysearchtitle
frm_qry_tblmain
ที่ฟอร์มทั้ง 3 มีปุ่มคำสั่งสำหรับปิดหน้าต่าง เหมือนกันฟอร์มละ 1 ปุ่มคำสั่ง การเรียกใช้โมดูลก็คือ ให้ไปกำหนด Code ที่เหตุการณ์ Event Click โดยใส่ชื่อโปรแกรมของโมดูลใน Procedure (Private....End Sub) ได้ดังนี้
Private Sub Command11_Click()
mClose
End Sub
เมื่อคลิกที่ปุ่มคำสั่ง Close เมื่อเปิดฟอร์มที่กล่าวมาแล้วขึ้นมา ก็จะเรียกโมดูลที่สร้างไว้ขึ้นใช้ครับผม สวัสดีครับ
****************