Option Compare Database
Option Explicit

Private prSkipErrMSg As Boolean

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ErrDesc As String
On Error GoTo LogErr
  Me.Recordset.Update
  Exit Sub
LogErr:
    ErrDesc = Err.Description
    LogVBAError Err, Me.Name + "_BeforeUpdate", ""
    MsgBox ServerErrorDescriptionToMyDescription(ErrDesc, prSkipErrMSg), vbInformation, Me.Caption
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)
 If prSkipErrMSg Then
   Response = acDataErrContinue
   prSkipErrMSg = False
 End If
End Sub