Option Compare Database

Option Explicit



Dim IsSaveClicked   As Boolean



Private Sub Form_Error(DataErr As Integer, Response As Integer)

    IsSaveClicked = False

End Sub



Private Sub Form_BeforeUpdate(Cancel As Integer)

    Cancel = Not IsSaveClicked

End Sub



Private Sub Form_AfterUpdate()

    IsSaveClicked = False

End Sub



Private Sub btnSave_Click()

    IsSaveClicked = True

    Me.Dirty = False    ' สั่งให้บันทึกข้อมูล

End Sub


ปัญมันมีอยู่ว่าเมื่อกด บันทึกไปแล้ว ตอนที่กลับไปแก้ข้อมูลใน เรคคอร์ดที่บันทึกไปแล้วได้ยังไงครับ ตอนนี้ถ้ากดบันทึกแล้ว ข้อมูลไม่สามารถแก้ไขได้ครับ

ผู้รู้ช่วยรบกวนชี้แนะด้วยครับ