• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

chú thích code

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • [Hỏi] chú thích code
• chú thích code

• chú thích code

  thanhquyt > 28-08-15, 10:51 PM

  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

• RE: chú thích code

  paulsteigel > 28-08-15, 11:11 PM

  (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....
• Bài trước Bài tiếp