Hi mọi người
mình có đoạn code.ai giải thích giúp mình với
Thank
Private Sub Form_BeforeUpdate(Cancel As Integer)

   On Error GoTo BeforeUpdate_Error
   If Me.Dirty Then
      If MsgBox("Ban muon luu ket qua ?", _
      vbYesNo + vbQuestion, "Save Changes") = vbNo Then
         Me.Undo
      End If
   End If

BeforeUpdate_Exit:
   Exit Sub

BeforeUpdate_Error:
   MsgBox Err.Description
   Resume BeforeUpdate_Exit

End Sub

(28-08-15, 10:51 PM)thanhquyt Đã viết: Hi mọi người
mình có đoạn code.ai giải thích giúp mình với
Thank
Private Sub Form_BeforeUpdate(Cancel As Integer)

   On Error GoTo BeforeUpdate_Error
   If Me.Dirty Then
      If MsgBox("Ban muon luu ket qua ?", _
      vbYesNo + vbQuestion, "Save Changes") = vbNo Then
         Me.Undo
      End If
   End If

BeforeUpdate_Exit:
   Exit Sub

BeforeUpdate_Error:
   MsgBox Err.Description
   Resume BeforeUpdate_Exit

End Sub

Dirty = bẩn thỉu, còn vướng rác chưa xử lý.
BeforeUpdate = Trước khi cập nhập

Nếu tôi còn vướng rác, có thông tin chưa xử lý thì
>> Bạn có muốn lưu lại kết quả không?
> Có > kệ nó và nó sẽ tự lưu
> Không > Undo, loại bỏ rác và tôi sẽ chả lưu lại gì cho bạn cả.

Sự kiện này được dùng để kiểm soát việc lưu số liệu của người dùng một cách tự động. Lỡ tay quay chuột hoặc nhấn Enter thì nó sẽ hỏi cái đã. Nếu chắc chắn thì sẽ lưu còn không thì thôi....