Option Compare Database
Option Explicit

Private Declare Function GetComputerName Lib  "kernel32"  Alias  "GetComputerNameA"  (ByVal lpBuffer As String, nSize As Long) As Long

Public Function Log_ComputerName()
Dim a As String *  40 
Dim nSize As Long
nSize =  40 
Call GetComputerName(a, nSize)
Log_ComputerName = Log_StrZ(a)
End Function

Private Function Log_StrZ(par As String) As String
Dim nSize As Long, i As Long, Rez As String
   nSize = Len(par)
   i = InStr( 1 , par, Chr( 0 )) -  1 
   If i > nSize Then i = nSize
   If i <  0  Then i = nSize
   Log_StrZ = Mid(par,  1 , i)
End Function

Function Log_CompareArrays(varArr1(), varArr2(), rst As DAO.Recordset, varKeyName As String) As Integer
Dim i As Long
Dim rClone As DAO.Recordset
Dim varComp As Integer

If varArr2( 1 , rst.Fields.Count) =  "-1 " Then
    varComp =  2 
ElseIf varArr1( 1 , rst.Fields.Count) =  "-1 " Then
    varComp =  1 
Else
    If (varArr1( 2 , rst.Fields.Count)( 0 ) = varArr2( 2 , rst.Fields.Count)( 0 ) And _
        varArr1( 2 , rst.Fields.Count)( 1 ) = varArr2( 2 , rst.Fields.Count)( 1 ) And _
        varArr1( 2 , rst.Fields.Count)( 2 ) = varArr2( 2 , rst.Fields.Count)( 2 ) And _
        varArr1( 2 , rst.Fields.Count)( 3 ) = varArr2( 2 , rst.Fields.Count)( 3 )) Then
        varComp = - 1 
        For i =  0  To rst.Fields.Count -  1 
            If Nz(varArr1( 2 , i)) <> Nz(varArr2( 2 , i)) Then
                varComp =  0 
                Exit For
            End If
        Next i
    Else
        varComp =  1 
    End If
End If

Dim db As Database
Dim tblLog As DAO.Recordset


Select Case varComp
    'Изменений не было'
    Case - 1 
    'Изменения были'
    Case  0 
        Set db = CurrentDb
        Set tblLog = db.OpenRecordset( "LOG_TABLE" , dbOpenDynaset)
        Set rClone = Screen.ActiveForm.RecordsetClone
        
        For i =  0  To rst.Fields.Count -  1 
            If Nz(varArr1( 2 , i)) <> Nz(varArr2( 2 , i)) Then
                tblLog.AddNew
                tblLog![COMPUTER] = Log_ComputerName()
                tblLog![User] = CurrentUser()
                tblLog![Table] = rst.Fields(varKeyName).SourceTable
                tblLog![Form] = Screen.ActiveForm.NAME
                tblLog![OPERATION] =  "Èçìåíåíèå çàïèñè" 
                tblLog![DATE] = Now()
                tblLog![ref] = rClone( "Ðåô ¹" )
                tblLog![FIELD] = Nz(varArr1( 1 , i))
                tblLog![OLD_VALUE] = Nz(varArr1( 2 , i))
                tblLog![NEW_VALUE] = Nz(varArr2( 2 , i))
                tblLog.Update
            End If
        Next i
        
    'Новая запись'
    Case  1 
        Set db = CurrentDb
        Set tblLog = db.OpenRecordset( "LOG_TABLE" , dbOpenDynaset)
        Set rClone = Screen.ActiveForm.RecordsetClone
        
        For i =  0  To rst.Fields.Count -  1 
        If Nz(varArr2( 2 , i)) <>  "" Then
            tblLog.AddNew
            tblLog![COMPUTER] = Log_ComputerName()
            tblLog![User] = CurrentUser()
            tblLog![Table] = rst.Fields(varKeyName).SourceTable
            tblLog![Form] = Screen.ActiveForm.NAME
            tblLog![OPERATION] = " Íîâàÿ çàïèñü "
            tblLog![DATE] = Now()
            tblLog![ref] = rClone(" Ðåô ¹ ")
            tblLog![FIELD] = Nz(varArr1(1 , i))
            tblLog![OLD_VALUE] = " "
            tblLog![NEW_VALUE] = Nz(varArr2(2 , i))
            tblLog.Update
            End If
        Next i
    'Удаление записи'
    Case  2 
        Set db = CurrentDb
        Set tblLog = db.OpenRecordset("LOG_TABLE ", dbOpenDynaset)
        Set rClone = Screen.ActiveForm.RecordsetClone
        
        For i = 0  To rst.Fields.Count -  1 
            tblLog.AddNew
            tblLog![COMPUTER] = Log_ComputerName()
            tblLog![User] = CurrentUser()
            tblLog![Table] = rst.Fields(varKeyName).SourceTable
            tblLog![Form] = Screen.ActiveForm.NAME
            tblLog![OPERATION] = "Óäàëåíèå çàïèñè "
            tblLog![DATE] = Now()
            tblLog![ref] = rClone(" Ðåô ¹ ")
            tblLog![FIELD] = Nz(varArr1(1 , i))
            tblLog![OLD_VALUE] = Nz(varArr1( 2 , i))
            tblLog![NEW_VALUE] = " "
            tblLog.Update
        Next i
        
    Case Else
End Select

End Function

Sub Log_FillRecordArray(varArr(), rst As DAO.Recordset, frm As Form)
On Error GoTo err_log_FillRecordArray
Set rst = frm.RecordsetClone
rst.Bookmark = frm.Bookmark
Dim i As Long
For i = 0  To rst.Fields.Count -  1 
    varArr( 1 , i) = rst.Fields(i).NAME
    varArr( 2 , i) = rst.Fields(i).Value
    'Debug.Print varArr( 1 , i) & " ->  " & varArr(2 , i)
Next i
varArr( 1 , i) = "Bookmark "
varArr(2 , i) = frm.Bookmark

Exit_log_FillRecordArray:
    Exit Sub

err_log_FillRecordArray:
    If Err.Number =  3021  Then
        varArr( 1 , rst.Fields.Count) = "- 1 "
    End If
    Resume Exit_log_FillRecordArray
End Sub

Option Compare Database
Option Explicit

Private varOldRecord() As Variant
Private varNewRecord() As Variant
Private varKeyName As String
Private db As Database
Private rst As DAO.Recordset
Private tdf As TableDef
Private fld As FIELD

Private Sub Log_Initialize()
Set db = CurrentDb
Set rst = Me.RecordsetClone
varKeyName = rst.Fields( 0 ).NAME
ReDim varOldRecord( 1  To  2 ,  0  To rst.Fields.Count) As Variant
ReDim varNewRecord( 1  To  2 ,  0  To rst.Fields.Count) As Variant
End Sub



Private Sub Form_AfterDelConfirm(status As Integer)
If status = acDeleteOK Then
    varNewRecord( 1 , rst.Fields.Count) = - 1 
    Call Log_CompareArrays(varOldRecord(), varNewRecord(), rst, varKeyName)
End If
End Sub

Private Sub Form_AfterUpdate()
Call Log_FillRecordArray(varNewRecord, rst, Me)
Call Log_CompareArrays(varOldRecord(), varNewRecord(), rst, varKeyName)
End Sub


Private Sub Form_BeforeUpdate(Cancel As Integer)
Call Log_FillRecordArray(varOldRecord, rst, Me)
End Sub

Private Sub Form_Delete(Cancel As Integer)
varNewRecord( 1 , rst.Fields.Count) = - 1 
    Call Log_CompareArrays(varOldRecord(), varNewRecord(), rst, varKeyName)
Call Log_FillRecordArray(varOldRecord, rst, Me)

End Sub

Private Sub Form_Open(Cancel As Integer)
Call Log_Initialize
End Sub