ปุ่ม command โต้ตอบ บันทึกเอกสารหรือไม่

[kunlek]

Private Sub Command64_Click()
On Error GoTo Err_Command64_Click
    DoCmd.GoToRecord , , acNewRec

Exit_Command64_Click:
    Exit Sub

Err_Command64_Click:
    'MsgBox Err.Description
    'Resume Exit_Command64_Click
    'DoCmd.GoToRecord , , acNewRec

End Sub
****************
เจตนาว่าเมื่อป้อนข้อมูลแล้ว  กดปุ่มบันทึก  มีข้อความ "ต้องการบันทึกหรือไม่ Y/N" ถ้า Y ขึ้นหน้าใหม่   ถ้า N ออกจากงานบันทึกนี้
เมื่อทำตามนี้แล้ว มันวนไปวนมา ไม่ยอมเลิก หรือ ไม่ยอมขึ้นรายการใหม่

[Un]

Private Sub Command64_Click()
Dim RetValue As Variant
    RetValue = MsgBox("ต้องการบันทึกหรือไม่", vbOKCancel + vbDefaultButton2, "Un")
       Select Case RetValue
          Case 1
                DoCmd.GoToRecord , , acNewRec
          Case Else
                Exit Sub
       End Select
End Sub