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

[UR4N]

Обращаюсь снова к Гуру ACCESS...
Подскажите пожалуйста, как реализовать следующие моё хотение:
есть таблица, в ней строка с множеством столбцов.
Нужно, чтобы при изменение одного столбца [Местонахождение СИ] (выделено красным), определенные столбцы с этой строки (выделены синем), включая изменяемый, добавлялись в другую таблицу [Движение СИ]. ещё чтобы в эту запись также добавлялась дата и время добавления, И если это возможно, имя учетной записи под которой выполнен вход в windows.
Буду очень признателен за совет.

си.jpg

[UR4N]

INSERT INTO [Движение прибора] ( [Заводской № СИ (СА)], [Тип  СИ], [Местонахождение СИ  (причина)] )
SELECT [СИ].[Заводской № СИ (СА)], [СИ].[Тип  СИ], [СИ].[Местонахождение СИ  (причина)]
FROM СИ;

Вот код который добавляет из одной таблицы в другую. Но мне надо не всё содержимое, а лишь одну строку в которой изменилась [Местонахождение СИ (причина)]
подскажите как это сделать?

[UR4N]

В этот раз желающих помочь просто радует...
КОД

Private Sub Местонахождение_СИ___причина__AfterUpdate()
Dim Движение_прибора As Recordset
    Set Движение_прибора = CurrentDb.OpenRecordset("Движение прибора")
        Движение_прибора.AddNew
            Движение_прибора("Заводской № СИ (СА)") = Me.Заводской_№_СИ__СА_
            Движение_прибора("Тип  СИ") = Me.Тип__СИ
            Движение_прибора("Местонахождение СИ  (причина)") = Me.Местонахождение_СИ___причина_
        Движение_прибора.Update
        Движение_прибора.Close
End Sub

Вот код на вставку строки с выбранными столбцами из одной таблици в другую, при изменении данных в форме. Код пишется в Событии изменяемого столбца в процедуре обработки события.
Вопрос про возможность добавления в таблицу данных о учетной записи под которой в данный момент совершен вход в windows ещё АКТУАЛЕН!!!
Подскажите пожалуйста...

[Stilet]

Вопрос про возможность добавления в таблицу данных о учетной записи под которой в данный момент совершен вход в windows ещё АКТУАЛЕН!!!

http://www.ex-designz.net/apidetail.asp?api_id=134

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
....
Private Sub Местонахождение_СИ___причина__AfterUpdate()
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

Dim Движение_прибора As Recordset
    Set Движение_прибора = CurrentDb.OpenRecordset("Движение прибора")
        Движение_прибора.AddNew
            Движение_прибора("Юзер") = strUserName 
            Движение_прибора("Заводской № СИ (СА)") = Me.Заводской_№_СИ__СА_
            Движение_прибора("Тип  СИ") = Me.Тип__СИ
            Движение_прибора("Местонахождение СИ  (причина)") = Me.Местонахождение_СИ___причина_
        Движение_прибора.Update
        Движение_прибора.Close
End Sub

[UR4N]

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

http://www.ex-designz.net/apidetail.asp?api_id=134

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
....
Private Sub Местонахождение_СИ___причина__AfterUpdate()
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

Dim Движение_прибора As Recordset
    Set Движение_прибора = CurrentDb.OpenRecordset("Движение прибора")
        Движение_прибора.AddNew
            Движение_прибора("Юзер") = strUserName 
            Движение_прибора("Заводской № СИ (СА)") = Me.Заводской_№_СИ__СА_
            Движение_прибора("Тип  СИ") = Me.Тип__СИ
            Движение_прибора("Местонахождение СИ  (причина)") = Me.Местонахождение_СИ___причина_
        Движение_прибора.Update
        Движение_прибора.Close
End Sub

Благодарю за помощь!
Но тут случилась какая то ошибочка с 64 битной моей WIN7
1.JPG

[Stilet]

GetUserNameW видимо требует...

[UR4N]

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

GetUserNameW видимо требует...

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll"

Нет, требует PtrSafe перед Function

[UR4N]

Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
....
Private Sub Местонахождение_СИ___причина__After Update()
Dim strUserName As String
'Create a buffer
strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

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

Не пойму, что не так?
2.JPG

[UR4N]

Помогите пожалуйста....

[UR4N]

Не ужели такая сложная задача?