Учет изменений

[sharamet91]

есть таблица "Сотрудники" и ей аналогичная "Сотрудники_история". Записи добавляются через форму.

Сначала, на событии формы "Текущая запись" мы собираем в массив текущие значения полей.

Затем при нажатии кнопки "сохранить" проверяем, если были внесены изменения (Me.Dirty = True), то в открытый рекордсет таблицы "Сотрудники_история" добавляем строку, куда переносим ВСЕ данные, ранее собранные в массив, и сохраняем запись.


подскажите пожалуйста, как сделать чтобы в таблицу добавлялись уже измененные значения, а не старые. как правильно прописать recordset? получается нужно, чтобы после проверки он собрал новые значения


вот сам код:


Option Compare Database
Dim Rec()

Private Sub Form_Current()
ReDim Rec(Me.Recordset.Fields.Count - 1)
For i = 0 To UBound(Rec)
Rec(i) = Me.Recordset.Fields(i)
Next

End Sub

Private Sub Сохранить_Click()
Dim UserName As String
UserName = Environ("USERNAME")
If Me.Dirty Then
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Сотрудники _история", dbOpenDynaset)
rst.AddNew
For i = 0 To UBound(Rec)
rst.Fields(i) = Rec(i)
Next i
rst.Update
End If
Me!ДатаИзменения = Date + Time
Me!Автор = UserName
DoCmd.RunCommand acCmdSaveRecord
ReDim Rec(Me.Recordset.Fields.Count - 1)
For i = 0 To UBound(Rec)
Rec(i) = Me.Recordset.Fields(i)
Next
End Sub

заранее благодарю)

[Aleksandr H.]

Прикрепите тестовую базу с формой и таблицами.

[sharamet91]

Сообщение от Aleksandr H.

Прикрепите тестовую базу с формой и таблицами.

вот... и может еще подскажите как сделать корректную работу при добавлении новых записей?

[Aleksandr H.]

так пробовали?

Private Sub Form_Current()
    Me.Refresh
    ReDim Rec(Me.Recordset.Fields.Count - 1)
    For i = LBound(Rec) To UBound(Rec)
        Rec(i) = Me.Recordset.Fields(i)
    Next
End Sub

Private Sub Сохранить_Click()
Dim UserName As String
Dim rst As DAO.Recordset
    UserName = Environ("USERNAME")
    If Me.Dirty Then
        Me.SetFocus
        Call Form_Current
        Set rst = CurrentDb.OpenRecordset("Сотрудники_история", dbOpenDynaset)
        rst.AddNew
      
        
        For i = LBound(Rec) To UBound(Rec)
          rst.Fields(i) = Rec(i)
        Next i
          rst.Update
    End If
    Me!ДатаИзменения = Date + Time
    Me!Автор = UserName
    DoCmd.RunCommand acCmdSaveRecord
    Set rst = Nothing
End Sub

[sharamet91]

Сообщение от Aleksandr H.

        For i = LBound(Rec) To UBound(Rec)

здесь ошибку выбивает Type mismatch (Error 13)

[shanemac51]

не увидела объявления переменной REC
а ведь она формируется в одной процедуре, а применяется в другой
должно быть внешнее объявление типа

Option Explicit
dim rec as variant
Private Sub Form_Current()
    Me.Refresh
    ReDim Rec(Me.Recordset.Fields.Count - 1)
    For i = LBound(Rec) To UBound(Rec)
        Rec(i) = Me.Recordset.Fields(i)
    Next
End Sub

Private Sub Сохранить_Click()
Dim UserName As String
Dim rst As DAO.Recordset
    UserName = Environ("USERNAME")
    If Me.Dirty Then
        Me.SetFocus
        Call Form_Current
        Set rst = CurrentDb.OpenRecordset("Сотрудники_история", dbOpenDynaset)
        rst.AddNew
      
        
        For i = LBound(Rec) To UBound(Rec)
          rst.Fields(i) = Rec(i)
        Next i
          rst.Update
    End If
    Me!ДатаИзменения = Date + Time
    Me!Автор = UserName
    DoCmd.RunCommand acCmdSaveRecord
    Set rst = Nothing
End Sub

[sharamet91]

Сообщение от shanemac51

        For i = LBound(Rec) To UBound(Rec)

выдает ошибку и перебрасывает на I

access compile error variable not defined


что это значит?

[Aleksandr H.]

shanemac51 в базе Rec() описан

Option Compare Database
Dim Rec()

sharamet91

variable not defined

или опишите все переменные или уберите строку Option Explicit. Лучше, конечно, обявить все переменные

[sharamet91]

отлично, заработало)

но теперь при добавлении новой записи и нажатии кнопки "сохранить" все обновляется - форма становится пустой.

и соответсенно вылетает ошибка

[Aleksandr H.]

Сообщение от sharamet91

отлично, заработало)

но теперь при добавлении новой записи и нажатии кнопки "сохранить" все обновляется - форма становится пустой.

и соответсенно вылетает ошибка

На каком этапе должна вылетать ошибка ? https://youtu.be/9VRXgqxHhPo