exit sub ครับ

ก็ไม่ได้อยู่ดีหละครับ เอาเป็นว่าผมต้องทำยังงัย เมื่อ User จะปิด Form แต่จะให้มีข้อความเพื่อยืนยันก่อนนะครับ

สงสัยคุณ มือใหม่ลือใส่ "Docmd.close"

If MsgBox("Do you what to Close now?", vbYesNo) = vbYes Then
DoCmd.Close 'on close
Else
Exit Sub
End If

มันก็ไม่ได้อยู่ดีหละครับ หรือเราต้องเอาไปไว้ที่ Even อื่น เนี้ย แต่จะเอาไว้ที่ไหนหละ (ต้องไม่ใช้ปุ่มที่สร้างขึ้นมานะครับ)

เอาไว้ที่ Event on Click ค่ะ และก็ copy code ไปใส่ได้เลยค่ะ

พิมพ์ผิด แก้ไม่ตามนี้
เอาไว้ที่ Event on Click ค่ะ และก็ copy code ไปใส่ได้เลยค่ะ

Private Sub Close_Click()
If MsgBox("Do you want to Close form now?", vbYesNo) = vbYes Then
DoCmd.Close 'on close
Else
Exit Sub
End If

End Sub

ปกติถ้าจะทำปุ่ม close แล้ว click เพื่อปิด form ก็ต้องทำอย่างที่คุณ ฐิติมาภรณ์แจ้งไว้ครับ
แต่คุณมือใหม่แจ้งกลับมาว่า "แต่จะเอาไว้ที่ไหนหละ (ต้องไม่ใช้ปุ่มที่สร้างขึ้นมานะครับ) " แสดงว่าไม่ได้สร้างปุ่มไว้เพื่อปิด form
แบบนี้คงต้องไปปิดที่ close button ของ form
โดยให้เขียน code ดักไว้ที่ event unload ที่เกิดก่อน event close

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Close Sure", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub

ใช่เลยครับ ผมต้องการแบบนี้แหละ ขอบคุณจริง ๆ