การใช้ MsgBox

[maicnx]

รบกวนท่านผู้รู้ทุกท่านเกี่ยวกับการเขียนโค้ดเกี่ยวกับ MsgBox เช่น
ถ้าเราสร้างปุ่มเพื่อทำการปิดฟอร์มขึ้นมาอันหนึ่ง ก่อนปิดฟอร์ม ถ้าอยากให้มีกล่องข้อความว่า ต้องการปิดจริงหรือไม่
ถ้า Yes ก็ให้ปิดฟอร์มไปเลย ถ้า No ก็ให้อยู่ในฟอร์มเดิมต่อไป

ขอบพระคุณล่วงหน้าสำหรับความช่วยเหลือค่ะ

[Un]

         Dim RetValue As Variant
                RetValue = MsgBox("กด Yes เมื่อต้องการปิด", vbOKCancel + vbDefaultButton2, "Un")
                Select Case RetValue
                    Case 1
                        DoCmd.close acForm, "ชื่อฟอร์ม"
                    Case Else
                        '''
                 End Select

ประมาณนี้ครับ

[maicnx]

ขอบคุณมากเลยค่ะ คุณ Un สุดยอดมากเลย
มีอีกหนึ่งคำถามคือ สร้างฟอร์ค้นหาข้อมูลมาเรียบร้อยแล้ว มีช่องให้ใส่ข้อมูลต่างๆ อยากสร้างปุ่มให้กดแล้วเคลียร์ข้อมูลที่เราใส่ในช่อง เพื่อค้นหาข้อมูลใหม่ ต้องใช้คำสั่งหรือเขียนโค้ดยังไงคะ ลองใช้ docmd แต่ไม่รู้จะไปยังไงต่อ

[Un]

สมมุติกล่องข้อความ ชื่อ กล่อง1 และกล่อง2
ที่ปุ่มคำสั่ง

Private Sub Command_Click()
    Me.กล่อง1 = ""
    Me.กล่อง2 = ""
    Me.กล่อง1.Setfocus
End Sub

[maicnx]

ขอบคุณ คุณ Un มากๆเลยค่ะ

[nonc31]

ป้องกันการปิดด้วย X
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

ยกเลิกการป้องกันการปิดด้วย X
Private Sub Command1_Click()
   Me.OnUnload = ""
End Sub