Как реализовать Историю изменений

[UR4N]

Private Sub Местонахождение_СИ___причина__After Update()
Dim Движение_прибора As Recordset
Set Движение_прибора = CurrentDb.OpenRecordset("Движение прибора")
Движение_прибора.AddNew
Движение_прибора("Заводской № СИ (СА)") = Me.Заводской_№_СИ__СА_
Движение_прибора("Тип СИ") = Me.Тип__СИ
Движение_прибора("Местонахождение СИ (причина)") = Me.Местонахождение_СИ___причина_
Движение_прибора("Учетная запись сделавшего изменение") = Environ("USERNAME")
Движение_прибора.Update
Движение_прибора.Close
End Sub

как говорится всё гениальное оказывается просто, чтобы вставить в строку имя учетной записи под которой вошли в Windows, используем Environ("USERNAME")
Спасибо всем за помощь!