try to use REQUERY method.
Thanks for replay. I add it after AdodcCustomer.Recordset.Update but it did not make any difference. I must say I do not have much experience in programming This is a part of my code. My form has got a textbox with Request Number that should be populated from Access table and start from 1 when the tools runs or if I scroll adodc scroll bar .
This a part of my code for Save Button
Private Sub CmdSave_Click()
'save records
If MsgBox("Save changes?", vbQuestion + vbYesNo, "Save") = vbYes Then
'saves fild to textboxes
If IsNumeric(TxtSpentHours.Text) = True Then
AdodcCustomer.Recordset.Fields![Spent hours] = TxtSpentHours.Text
End If
AdodcCustomer.Recordset.Fields![Contact person] = TxtContact.Text & ""
AdodcCustomer.Recordset.Fields![Started date] = TxtStartedDate.Text
AdodcCustomer.Recordset.Fields![Received] = TxtReceived.Text & ""
AdodcCustomer.Recordset.Fields![Job code] = TxtJobcode.Text & ""
AdodcCustomer.Recordset.Fields![Requested_by] = txtRequestedby.Text & “”
AdodcCustomer.Recordset.Fields![Finished by] = TxtFinishedby.Text
AdodcCustomer.Recordset.Fields![Description] = TxtDescription.Text
AdodcCustomer.Recordset.Fields![Location of data] = TxtLocation.Text
AdodcCustomer.Recordset.Fields![Readme file] = TxtReadme.Text
AdodcCustomer.Recordset.Fields![MXD file] = TxtMxd.Text
AdodcCustomer.Recordset.Fields![Comment] = TxtComment.Text
AdodcCustomer.Recordset.Update
AdodcCustomer.Recordset.Requery
Else
End If
End Sub