Форма стоит на таблице свойство Cycle- Current Record, при Open
DoCmd.GoToRecord , , acNewRec
На форме - несколько TextBox данныe для которых берутся из таблицы,
В начале после открытия формы - они чистые
Вношу данные в TextBox ,делаю
DoCmd.RunCommand acCmdSaveRecord
В таблицу данные заносятся правильно, а на форме вижу данные из
Предыдущей записи,как будто указатель "прыгнул" назад
Все это в ACCESS 2000 B ACCESS97 БЫЛО НОРМАЛЬНО

Option Compare Database
Option Explicit



Private Sub acc_report_Click()
DoCmd.OpenReport "RptAccountMy", acViewPreview, , "[acc_ID]=" & Me![acc_ID]
End Sub

Private Sub Amount_AfterUpdate()
Me!Amount_with_Tax = Me!Amount * 1.17
End Sub

Private Sub Cancel_Click()
DoCmd.RunCommand acCmdUndo
DoCmd.close

End Sub

Private Sub exitform_Click()
DoCmd.close

End Sub

Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord , , acNewRec
Me![project] = [Forms]![frmChargehours]![project]
'Me![client] = [Forms]![frmChargeHours]![client]
Me!client.Requery
Me!company.Requery
Me!company = DMin("[company_code]", "qryCompany")
Me!client = DMin("[client_code]", "qryClient")
Me!Amount = [Forms]![frmChargehours]![totalsum]
Me!Amount_with_Tax = Me!Amount * 1.17
Me!DolIndex = [Forms]![frmChargehours]![current_dolar_index]
Me!kmcost = [Forms]![frmChargehours]![km_cost]
Me.accmonth = [Forms]![frmChargehours]![open_month]


End Sub

Private Sub OK_Click() 'Здесь проблема

DoCmd.RunCommand (acCmdSaveRecord) 'после этой строчки уже все данные "подпрыгнули"
' DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryH_C_Update"
DoCmd.OpenQuery "qryExp_Update"
DoCmd.SetWarnings True

Forms![frmChargehours]![hours_rep].Requery
Forms![frmChargehours]![gen_exp].Requery

Me.ret.Visible = True
Me.acc_report.Visible = True
Me.rep2word.Visible = True
Me.rep2word.SetFocus
Me.OK.Visible = False
Me.Cancel.Visible = False

End Sub

Private Sub project_AfterUpdate()
Me!sub_project.Requery
Me!client.Requery
Me!client = DMin("[client_code]", "qryClient")
Me!company.Requery
Me!company = DMin("[pro_cent_code]", "qryCompany")
End Sub


Private Sub rep2word_Click()
Dim fname As String
On Error GoTo word_error

fname = DFirst("[AccPath]", "tblAccPath")
fname = fname & "acc" & Me.acc_Number & ".doc"

DoCmd.OutputTo acReport, "rptAccToWord", "RichTextFormat(*.rtf)", fname, True, ""

word_exit:
Exit Sub

word_error:
MsgBox " תיקייה להוצאת חשבוניות לא נמצאה ! " & Chr(13) & Chr(13) & " הגדרת התיקייה נמצאת בתחזוקת המערכת ", vbExclamation, " שגיאה בכתיבה לקובץ Word "
Resume word_exit

End Sub

Private Sub ret_Click()
DoCmd.close
End Sub

Private Sub sub_project_AfterUpdate()
Me!stage.Requery

End Sub

Private Sub Toggle0_Click()

End Sub
Private Sub Command14_Click()
On Error GoTo Err_Command14_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command14_Click:
Exit Sub

Err_Command14_Click:
MsgBox Err.description
Resume Exit_Command14_Click

End Sub



'Пробовала насильно устанавливать на последнюю запись-результат тот же