try to use REQUERY method.
Thanks for replay. I add it after AdodcCustomer.R ecordset.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(TxtSp entHours.Text) = True Then
AdodcCustomer.R ecordset.Fields ![Spent hours] = TxtSpentHours.T ext
End If
AdodcCustomer.R ecordset.Fields ![Contact person] = TxtContact.Text & ""
AdodcCustomer.R ecordset.Fields ![Started date] = TxtStartedDate. Text
AdodcCustomer.R ecordset.Fields ![Received] = TxtReceived.Tex t & ""
AdodcCustomer.R ecordset.Fields ![Job code] = TxtJobcode.Text & ""
AdodcCustomer.R ecordset.Fields ![Requested_by] = txtRequestedby. Text & “”
AdodcCustomer.R ecordset.Fields ![Finished by] = TxtFinishedby.T ext
AdodcCustomer.R ecordset.Fields ![Description] = TxtDescription. Text
AdodcCustomer.R ecordset.Fields ![Location of data] = TxtLocation.Tex t
AdodcCustomer.R ecordset.Fields ![Readme file] = TxtReadme.Text
AdodcCustomer.R ecordset.Fields ![MXD file] = TxtMxd.Text
AdodcCustomer.R ecordset.Fields ![Comment] = TxtComment.Text
AdodcCustomer.R ecordset.Update
AdodcCustomer.R ecordset.Requer y
Else
End If
End Sub