updating data in a form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm updating data in a continuous form by using the following:

' Record Source for the form is Table1
' Everything is fine with the updating if I'm not doing any editing of the
data in the form.

Private Sub cmdUpdate_Click()
On Error GoTo Err_cmdUpdate_Click

DoCmd.SetWarnings False
CurrentDb.Execute "DELETE * FROM Table1"
DoCmd.OpenQuery "qryUpdate_Table1"
DoCmd.SetWarnings True

Me.Requery ' from here if I did any attempt to edit data before it goes
to MsgBox Err.Description and
' the all app is being closed
Me.Recalc
Me.Refresh

Exit_cmdUpdate_Click:
Exit Sub
Err_cmdUpdate_Click:
MsgBox Err.Description
Resume Exit_cmdUpdate_Click
End Sub

Could anybody help me with this?

Thanks
 
Try adding the following line after your On Error....... line:
DoCmd.RunCommand acCmdSaveRecord
 
Back
Top