สร้างปุ่มขึ้นมาอันครับ แล้วไปที่ อีเว้น แล้ว ออนคลิก เอาโคดนี้ไปใส่ครับ


Private Sub exit1_Click()
If MsgBox("คุณต้องการปิดโปรแกรม?", vbQuestion + vbYesNo, "Exit Database") = vbYes Then
        DoCmd.RunCommand acCmdExit
    Else
        MsgBox "กลับสู่โปรแกรม"
    End If
End Sub

ขอบคุณมากครับบบบ

จากคำถาม หากปิดฟอร์มข้อมูลจะถูกเซฟอยู่แล้วนะครับ ไม่จำเป็นต้องยืนยันการเซฟ หรือหากหมายถึงการยืนยันก่อนปิดฟอร์ม เผื่อเวลาเผลอกดปุ่มปิดแบบไม่ตั้งใจงั้นหรือเปล่าครับ หากใช่ก็ใส่ลงใน Event > On Unload ของฟอร์ม

'Private Sub Form_Unload(Cancel As Integer)
    If Msgbox("คุณต้องการปิดโปรแกรม?", vbQuestion + vbYesNo + vbDefaultButton2, "Exit Database") = vbNo Then
        Cancel = True
    End If
'End Sub

ประมาณนี้ครับ
ขออนุญาติยืมโค๊ด คุณสุโคย มาแก้ไขหน่อยนะครับ