Posted By

heislekw on 07/24/10


Tagged

save record


Versions (?)

Save changes code, prevent you can't save record error


 / Published in: Visual Basic
 

  1. Private Sub Form_BeforeUpdate(Cancel As Integer)
  2. If MsgBox("Save changes?", vbQuestion + vbYesNo) = vbNo Then
  3. Cancel = True
  4. End If
  5. End Sub
  6.  
  7. Private Sub Form_Error(DataErr As Integer, Response As Integer)
  8. If DataErr = 2169 Then
  9. Response = acDataErrContinue
  10. End If
  11. End Sub

Report this snippet  

You need to login to post a comment.