เอาโค้ดในปุ่ม Close และ Cancel มาให้ดูหน่อยครับ ฟังจากอาการแล้วไม่น่าเป็นไปได้เพราะถ้ากำหนดพารามิเตอร์ Cancel ให้เท่ากับ True แล้ว ยังไงมันก็ไม่บันทึกการแก้ไข/เพิ่มเรคอร์ดเข้าไปนะครับ

มี หลักๆ 3 SUB นะครับ
ส่วนใน Msgbox เป็นแค่ Message แจ้งเฉยๆครับ

Private Sub btnCancelRec_Click()
On Error GoTo err:

If MsgBox("µéͧ¡Òà Cancel ÃÒ¡ÒùÕéËÃ×ÍäÁè", vbYesNo) = vbYes Then
intRecID = Me.ReceiveID.value

DoCmd.SetWarnings False
DoCmd.OpenQuery "qryUpdate_CancelRec"
DoCmd.SetWarnings True
MsgBox "Record is Cancelled.", vbOKOnly, "Result"
Me.Requery
End If

ext:
Exit Sub

err:
If err.Number = 94 Then
    SendKeys "{esc}", True
Else
    MsgBox err.Description
End If
    Resume ext
End Sub


Private Sub btnClose2_Click()
On Error GoTo Err_Click

DoCmd.Close
DoCmd.OpenForm "frmMain"

ext:
    Exit Sub

Err_Click:
    MsgBox err.Description
    Resume ext
    
End Sub


Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo err

If Me.Amount.value = 0 Or IsNull(Me.Amount.value) = True Then
MsgBox "¡ÃسÒÃÐºØ Amount ¡è͹à¾ÔèÁ¢éÍÁÙÅ"
Me.Amount.SetFocus
ElseIf Me.BankAcct.value = "" Or IsNull(Me.BankAcct.value) = True Then
MsgBox "¡ÃسÒÃÐºØ BankAcct ¡è͹à¾ÔèÁ¢éÍÁÙÅ"
Me.BankAcct.SetFocus
ElseIf Me.RType.value = "" Or IsNull(Me.RType.value) = True Then
MsgBox "¡ÃسÒÃÐºØ Receive Type ¡è͹à¾ÔèÁ¢éÍÁÙÅ"
Me.RType.SetFocus
ElseIf Me.RDate.value = "" Or IsNull(Me.RDate.value) = True Then
MsgBox "¡ÃسÒÃÐºØ Receive Date ¡è͹à¾ÔèÁ¢éÍÁÙÅ"
Me.RDate.SetFocus
ElseIf Me.Remark.value = "" Or IsNull(Me.Remark.value) = True Then
MsgBox "¡ÃسÒÃÐºØ Remark ¡è͹à¾ÔèÁ¢éÍÁÙÅ"
Me.Remark.SetFocus
End If
Cancel = True

   
ext:
    Exit Sub

err:
    MsgBox err.Description
    Resume ext

End Sub

1. แน่ใจหรือว่ามันบันทึก ลองเช็คในเทเบิลดูแน่ชัดหรือยัง !!! เนื่องจากโค้ดใน BeforeUpdate event นั้นท่าทางจะผิด เพราะไม่ว่าคุณจะใส่ข้อมูลในช่อง required field หรือไม่ก็ตาม คุณก็กำหนด Cancel = True เสมอ ดังนั้นมันจะไม่ให้ผ่านไปได้เลย คุณไม่มีทางเพิ่ม/แก้ไขเรคอร์ดอะไรทั้งนั้น แล้วผมจำลองทำดู ก็ไม่มีทางผ่านเช่นกันครับ

2. Error code 94 (Invalid use of Null) , แทนที่จะรอให้เกิดปัญหาแล้วมาเช็ค Error code 94 สิ่งที่ควรจะเป็นคือ ควรเช็คว่าช่องต่างๆที่จำเป็นได้ถูกป้อนข้อมูลก่อนจะ OpenQuery ถึงจะถูก เพราะ Error Handling Routine เรามีไว้เพื่อใช้สำหรับดักข้อผิดพลาดต่างๆที่เราไม่รู้ว่ามันจะเกิดต่างหาก ยกเว้นในบางกรณีที่การเช็คป้องกันข้อผิดพลาดนั้นทำก่อนไม่ได้เลย เพราะไม่มีฟังก์ชั่นให้เช็ค หรือไม่ก็เช็คไม่ได้ง่ายๆครับ

ส่วนการที่ขึ้นข้อความ "execution of this application has stopped due to a run-time error this program can't continue and will be shut down" ให้ลองทำการ Compile ดูก่อนว่ามีอะไรผิดพลาดแฝงไว้ที่ไหนในระบบหรือไม่ ถ้าไม่มีก็ค่อยทำ Decompile ครับ (ลองหาวิธีทำจากกระทู้เก่าๆครับ)

1. ผิดจริงครับอันนี้เพิ่มเข้าไปทีหลังครับแก้ไว้ใน if แต่ละตัวแล้วครับ

2. 94 ผมเปลี่ยนเป็นเช็ค Count record >0 แล้วครับ

3. จะลองหาดูครับ
ได้ผลยังไงจะมีแจ้งครับ
ขอบคุณครับ