Trigger в access 2010

[duh_si]

Myhaylo посмотрите Триггер который я выложил, как вы думаете его возможно приладить к access2010?

[Myhaylo]

Приладить можно всё, что угодно. Поясните, что именно Вы хотите получить.

[duh_si]

Смотрите , допустим у нас форма, на ней поле в нем надись "Яблоко" пользователь зашел на эту форму и изменил надпись на "Апельсин" и в журналИзменений получаем запись что на что было изменено. в пример который я выложил здесь, именно так делается, пытаясь приладить к своей программе вылазиют ошибки, ошибку я тоже здесь выкладывал, начал изучать что за ошибка, нашел Возможные варианты ее исправления - это включить поддержку синтаксиса ANSI92. Не моя цитата

"Сейчас для меня важно другое - а что перестанет работать или перестанет правильно работать при переходе с JET SQL на ANSI-92? Всюду говорится, что подстановочные символы иные, в частности, вместо "*", надо использовать "%"."

[Myhaylo]

Я не знаю, что это Вы выложили, но если это - триггер, то я - паровоз...
Вам нужно:
1. Создать таблицу "ЖурналИзменений" с полями:
- имя формы;
- имя элемента управления;
- старое значение;
- новое значение;
- дата изменения;
- имя пользователя.
2. Для каждого элемента управления формы в подпрограмме обработки события "После обновления" (UfterUpdate) заполнять журнал либо через объект RecordSet, либо с помощью запросов на добавление (DoCmd.RunSQL).
Старое значение - возвращает свойство OldValue элемента управления, новое значение - имя этого элемента управления.

[Myhaylo]

Да, забыл:
- номер записи;

[duh_si]

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

Я не знаю, что это Вы выложили, но если это - триггер, то я - паровоз...

Сейчас посмотрел еще раз выложенный мной пример, возможно я его сломал когда ковырялся в нем...вот сейчас выложил пример проверил все работает...откройте таблицу А, занесите любую запись, потом запустите форму F_Audit A там увидете свою запись, откройте снова таблицу А и измените своб запись на новую, обновите форму и будет старая и новая запись....

1. Создать таблицу "ЖурналИзменений" с полями:
- имя формы;
- имя элемента управления;
- старое значение;
- новое значение;
- дата изменения;
- имя пользователя.

это сделано.

2. Для каждого элемента управления формы в подпрограмме обработки события "После обновления" (UfterUpdate) заполнять журнал либо через объект RecordSet, либо с помощью запросов на добавление (DoCmd.RunSQL).
Старое значение - возвращает свойство OldValue элемента управления, новое значение - имя этого элемента управления.

а рекордсетом таким образом делать?

Dim MyRst As Recordset
Dim MyValue As Integer  
Set MyRst = CurrentDb.OpenRecordset("ЖурналИзменений", dbOpenDynaset)
MyValue = CurrentUser()
With MyRst
    .AddNew
    'Заполнение полей значениями
    ![ФИО] = MyValue 'т.е кто изменения делал
    ![дата изменения] = Now()
    ![Имя объекта] = ?
    ![Старое значение] = ?
    ![Новое значение] = ?
    .Update
End With
MyRst.Close

(DoCmd.RunSQL).

Акак таким образом делать?

[duh_si]

Сделал таким образом...Просьба проверить, так как в кодинге я плох

Option Compare Database

Public Function setOldAfter()
'On Error Resume Next
Dim ol As Recordset
Dim ct As Control, ov As String, nv As String
Set ct = Screen.ActiveControl
ov = ct.OldValue
nv = ct.value
'MsgBox ov & " " & nv
Set ol = CurrentDb.OpenRecordset("SELECT * FROM tblLogDoc WHERE LogDocID=" & ID, dbOpenDynaset)
With ol
.Edit
!new_value = nv
.Update
End With
ol.Close
End Function

Public Function setOldBefore()
'On Error Resume Next
Dim ol As Recordset
Dim ct As Control, ov As String, nv As String
Set ct = Screen.ActiveControl
ov = ct.OldValue
nv = ct.value
'MsgBox ov & " " & nv
Set ol = CurrentDb.OpenRecordset("tblLogDoc" , dbOpenDynaset, dbAppendOnly)
With ol
.AddNew
!Old_value = ov
.Update
.Bookmark = .LastModified
ID = ![LogDocID]
End With
ol.Close
End Function

вызываю таким образом

Private Sub ИМЯС_AfterUpdate()
Call setOldAfter
End Sub

Private Sub ИМЯС_BeforeUpdate(Cancel As Integer)
Call setOldBefore
End Sub

И все вроде хорошо, но всегда есть Но
Контролов на формах куча, на каждый вешать эти функции задолбаешься, может есть способ как нибудь сделать это все более удобно?

И вторая проблема:
См.рис
есть вторая функция(в другом модуле) которая делает записи: в какое время какую форму и кто ее открывал...

Хочу соединить все в одной табличке и форму кто какую открывал и какие записи там изменял, проблема в том что:
Записи старой и новой информации делаются на второй строке(На рисунке это видно)

[duh_si]

Вот второй модуль (Часть!)

Option Compare Database
Option Explicit


'Purpose: Log when your forms/reports are opened/closed.
'Author: Allen Browne
'Usage: Open/close events of forms/reports call LogDocOpen() and LogDocClose()
'Documentation: http://allenbrowne.com/AppLogDocUse.html

'Set this to False to turn all logging off.
Private Const mbLogDox As Boolean = True
'Name of this module (for error logger.)
Private Const conMod = "ajbLogDoc"

'API calls to get the Windows user name and computer name
Private Declare Function apiGetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function apiGetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function LogDocOpen(Obj As Object) As Long
On Error GoTo Err_Handler
'Purpose: Create a log entry for the form/report being opened.
'Argument: The form or report whose opening we are logging.
'Return: Primary key value of the log entry. Zero on error.
'Usage: For a form, set the On Open property to: =LogDocOpen([Form])
' For a report, set the On Open property to: =LogDocOpen([Report])
Dim rs As DAO.Recordset
Dim lngObjType As Long 'acForm or acReport
Dim strDoc As String 'Name of the form/report
Dim lngHWnd As String 'hWnd of the form/report

If mbLogDox Then
strDoc = Obj.Name
lngHWnd = Obj.Hwnd

Set rs = DBEngine(0)(0).OpenRecordset("tblLo gDoc", dbOpenDynaset, dbAppendOnly)
rs.AddNew
rs!OpenDateTime = Now()
rs!CloseDateTime = Null
rs!DocTypeID = DocType(Obj)
rs!DocName = strDoc
rs!DocHWnd = lngHWnd
rs!ComputerName = ComputerName()
rs!WinUser = NetworkUserName()
rs!JetUser = CurrentUser()
rs!CurView = CurView(Obj)
rs.Update
rs.Bookmark = rs.LastModified
LogDocOpen = rs!LogDocID
rs.Close
End If

Exit_Handler:
Set rs = Nothing
Exit Function

Err_Handler:
Call LogError(Err.Number, Err.Description, conMod & ".LogDocOpen", "Document " & strDoc, False)
Resume Exit_Handler
End Function

[duh_si]

Вот еще чать (не уместилось все в одно сообщение)

Public Function LogDocClose(Obj As Object) As Long
On Error GoTo Err_Handler
'Purpose: Update the log entry created when the form/report was opened, to mark it closed.
' Creates a new entry if the existing one cannot be found.
'Argument: The form or report whose closing we are logging.
'Return: Primary key value of the log entry updated/created. Zero on error.
'Usage: For a form, set the On Close property to: =LogDocClose([Form])
' For a report, set the On Close property to: =LogDocClose([Report])
Dim rs As DAO.Recordset
Dim strSQL As String 'SQL statement
Dim strDoc As String 'Name of the form/report
Dim strWinUser As String 'Name of the Windows user
Dim strJetUser As String 'Name of the JET engine user
Dim strComputer As String 'Name of this workstation
Dim lngObjType As Long 'acForm or acReport
Dim lngHWnd As String 'hWnd of the form/report

If mbLogDox Then
strDoc = Obj.Name
strWinUser = NetworkUserName()
strComputer = ComputerName()
lngHWnd = Obj.Hwnd
lngObjType = DocType(Obj)

'Get the log entry when this user on this computer opened this form/report (same name, type and hWnd)
strSQL = "SELECT tblLogDoc.* FROM tblLogDoc WHERE ((tblLogDoc.DocTypeID = " & lngObjType & ") AND (tblLogDoc.DocName = """ & strDoc & _
""") AND (tblLogDoc.DocHWnd = " & lngHWnd & ") AND (tblLogDoc.ComputerName = """ & strComputer & """) AND (tblLogDoc.WinUser = """ & strWinUser & _
""") AND (tblLogDoc.CloseDateTime Is Null) AND (tblLogDoc.OpenDateTime <= Now())) ORDER BY tblLogDoc.OpenDateTime, tblLogDoc.LogDocID;"
Set rs = DBEngine(0)(0).OpenRecordset(strSQL )
If rs.RecordCount > 0& Then
'Log entry found: update as closed.
rs.Edit
rs!CloseDateTime = Now()
rs.Update
Else
'Can't find when document was opened: create a new one.
rs.AddNew
rs!OpenDateTime = Null
rs!CloseDateTime = Now()
rs!DocTypeID = lngObjType
rs!DocName = strDoc
rs!DocHWnd = lngHWnd
rs!ComputerName = strComputer
rs!WinUser = strWinUser
rs!JetUser = CurrentUser()
rs!CurView = CurView(Obj)
rs.Update
End If
rs.Bookmark = rs.LastModified
LogDocClose = rs!LogDocID
rs.Close
End If

Exit_Handler:
Set rs = Nothing
Exit Function

Err_Handler:
Call LogError(Err.Number, Err.Description, conMod & ".LogDocClose", "Document " & strDoc, False)
Resume Exit_Handler
End Function

[duh_si]

Как бы соединить, что бы запись в таблице в одну строку была...