Dear All,
Could you please help. I ran the below code which ran okay but displays a pop up windows on Write Conflict issue. Please help.
Th UpdateReissueStgData was ran okay.
Private Sub cmdSave_Click()
On Error GoTo Save_Error
'Update reissue data and Set ReissueFlg in dbo.Ledger table.
UpdateReissueStgData
Me.Dirty = False
DoCmd.Close acForm, "frmInsertReissueRecord"
cmdSave_Click_Exit:
DoCmd.Close acForm, Me.Name
Exit Sub
Save_Error:
If Err.Number <> 2501 And Err.Number <> 0 And Err.Number <> 30014 Then
modMessageHelper.ShowErrorMessage Err.Description, "frmInsertReissueRecord.cmdSave_Click", Err.Number
Resume cmdSave_Click_Exit
Else
DoCmd.Close acForm, "frmInsertReissueRecord"
End If
Exit Sub
End Sub
Regards
Timi
Olutimi
Could you please help. I ran the below code which ran okay but displays a pop up windows on Write Conflict issue. Please help.
Th UpdateReissueStgData was ran okay.
Private Sub cmdSave_Click()
On Error GoTo Save_Error
'Update reissue data and Set ReissueFlg in dbo.Ledger table.
UpdateReissueStgData
Me.Dirty = False
DoCmd.Close acForm, "frmInsertReissueRecord"
cmdSave_Click_Exit:
DoCmd.Close acForm, Me.Name
Exit Sub
Save_Error:
If Err.Number <> 2501 And Err.Number <> 0 And Err.Number <> 30014 Then
modMessageHelper.ShowErrorMessage Err.Description, "frmInsertReissueRecord.cmdSave_Click", Err.Number
Resume cmdSave_Click_Exit
Else
DoCmd.Close acForm, "frmInsertReissueRecord"
End If
Exit Sub
End Sub
Regards
Timi
Olutimi