Trigger в access 2010

[duh_si]

Тут подумал на досуге, может бог с ним с этим полем № Заказа , вывести в новое поле первичный ключ таблицы Заказ и брать его т.е записывать в ЖурналИзменений,
Вопрос остался: как из этого поля взять значение которое там есть, и поместить его сюда !НомерЗаписи = ?

[duh_si]

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

Вопрос остался: как из этого поля взять значение которое там есть, и поместить его сюда !НомерЗаписи = ?

С этим разобрался

Да в принципе и все остальное сделал....

Myhaylo Спасибо большое за помощь и подсказки...Хоть вы на мои бредовые вопросы отвечаете ...Если бы не количество прсмотров этой темы, подумал бы что тут кроме нас и нет ни кого( в Дискуссии учавствовать народ не горит желанием )

[bormanpb]

Я вот так логирование в Access 2010 (триггер-лайт) сделал себе, без учёта удаления:

'Узнаём имя пользователя
Function myUser() As String
Dim si
Set si = CreateObject("WScript.Network")
myUser = si.UserName
Set si = Nothing
End Function

'Узнаём имя компьютера
Function MyComp() As String
Dim si
Set si = CreateObject("WScript.Network")
MyComp = si.ComputerName
Set si = Nothing
End Function

Public Sub Trigger_log()
'**********Начало логера*********
Dim lo As DAO.Recordset
Dim ct As Control, ov As String, nv As String
Set lo = CurrentDb.OpenRecordset("log", dbOpenDynaset, dbSeeChanges) 'Таблица, куда пишем лог
Set ct = Screen.ActiveControl
On Error Resume Next
ov = ct.OldValue
nv = ct.Value
Obj = Screen.ActiveControl.Name
fo = Screen.ActiveForm.Name
i = Screen.ActiveForm![id] 'чтобы писалась в лог id записи из счетчика главной таблицы, вывожу это поле в форму и скрываю его
lo.AddNew
lo!dttm = Now()
lo!usr_nm = myUser()
lo!comp_nm = MyComp()
lo!field_nm = Obj
lo!form_nm = fo
lo!old_txt = ov
lo!new_txt = nv
lo!err_id = i
lo.Update
lo.Close
Set lo = Nothing
'**********Конец логера**********
End Sub

а вызывается эта процедура по действию после обновления (прописывается в каждом поле). Пример:

Private Sub status_AfterUpdate()
Call Trigger_log
End Sub