Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 ACCESS2000  [new]
OLGA
Guest
Форма стоит на таблице свойство Cycle- Current Record, при Open
DoCmd.GoToRecord , , acNewRec
На форме - несколько TextBox данныe для которых берутся из таблицы,
В начале после открытия формы - они чистые
Вношу данные в TextBox ,делаю
DoCmd.RunCommand acCmdSaveRecord
В таблицу данные заносятся правильно, а на форме вижу данные из
Предыдущей записи,как будто указатель "прыгнул" назад
Все это в ACCESS 2000 B ACCESS97 БЫЛО НОРМАЛЬНО
8 авг 01, 13:44    [145]     Ответить | Цитировать Сообщить модератору
 RE:ACCESS2000  [new]
AlexUnik
Guest
Попробуйте сохранять положение указателя, а затем насильственно переводить его на следующую строку. А еще лучше киньте описания всех процедур, запускаемых в форме - пока мне не совсем понятно, что там делается.
10 авг 01, 05:50    [146]     Ответить | Цитировать Сообщить модератору
 RE:ACCESS2000  [new]
OLGA
Guest
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



'Пробовала насильно устанавливать на последнюю запись-результат тот же
12 авг 01, 06:07    [147]     Ответить | Цитировать Сообщить модератору
 RE:ACCESS2000  [new]
AlexUnik
Guest
Попробовал смоделировать Вашу ситуацию, но у меня запись не скачет Вообще-то, такое может происходить не из-за команды DoCmd.RunCommand (acCmdSaveRecord), а из-за Requery (после этой команды указатель смещается на первую запись). Так что проверьте поведение этой команды, а также, где только возможно, постарайтесь убрать ее или заменить. Успехов.

PS. Если уж совсем будет туго, упакуйте проблемную часть своей базы и кидайте на адрес:
alexandr_k@baucraft.ru С обратным адресом, естественно. Думаю, так мне будет легче разобраться.
15 авг 01, 05:33    [148]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить