Сохранение записи в форме

    Me.Refresh

Или

    DoCmd.RunCommand acCmdSaveRecord

Или

    Me.Recordset.Edit
    Me.Recordset.Update

Или

'Сохранка
    Me.Dirty = False

Если форма емеет подчинённую и редактируемую:

Private Sub Form_Current()
    If Me.NewRecord = True Then
        Me!Contract = Me!Contract & "" ' Эмуляция ввода данных пользователем для обновления поля Счётчик
        'Me.Dirty = False 'Совсем не обязательно!
    End If
End Sub