Advanced Search

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

/ Published in: Visual Basic
Save to your folder(s)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  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


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.