Módulo não registra alterações na tabela

olá.


Tenho um módulo pra registrar as alterações dos usuários nos formulários, mas ele não registra alterações nas tabelas, por exemplo ao sair executar alguma alteração no estoque, ele não faz isso. Alguém sabe que posso fazer pra registrar esses dados?

obs: no evento do formulário eu coloco

Antes de atualizar: =logChange("A")

Ao excluir: =logChange("E")

Código:


Function LogChange(strTipo As String)

    Dim db As Database, rslog As Recordset
    Dim frm As Form, i As Integer
    Dim strLog As String
 
    Set db = CurrentDb
    Set rslog = db.OpenRecordset("tbl_LogChange")
    Set frm = Screen.ActiveForm
   
    For i = 0 To frm.Controls.Count - 1
        If TypeOf frm.Controls(i) Is TextBox Or TypeOf frm.Controls(i) Is ComboBox Or TypeOf frm.Controls(i) Is CheckBox Or TypeOf frm.Controls(i) Is OptionGroup Or TypeOf frm.Controls(i) Is ListBox Then
            If strTipo = "E" Then
                If strLog = "" Then
                    strLog = frm.Controls(i).Name & " " & frm.Controls(i).Value
                Else
                    strLog = strLog & "," & frm.Controls(i).Name & ":" & frm.Controls(i).Value
                End If
            Else
                If frm.Controls(i).OldValue <> frm.Controls(i).Value Then
                   
                    If strLog = "" Then
                        strLog = frm.Controls(i).Name & "," & frm.Controls(i).OldValue & " -> " & frm.Controls(i).Value
                       
                    Else
                        strLog = strLog & "," & frm.Controls(i).Name & ":" & frm.Controls(i).OldValue & " -> " & frm.Controls(i).Value
                    End If
                End If
            End If
        End If
       
     
    Next
   
    rslog.AddNew
    rslog("strNomeForm") = frm.Name
    rslog("strTipoLog") = strTipo
    rslog("mmolog") = strLog
    rslog("strUser") = CurrentUser
    rslog("dtLog") = Now
    rslog("Usuario") = getUsuarioAtual()
    On Error Resume Next
    rslog.Update
    rslog.Close
    db.Close

End Function


No primeiro If está assim:
strLog = frm.Controls(i).Name & "," & frm.Controls(i).OldValue & " -> " & frm.Controls(i).Value

Tente assim:
strLog = strLog & "Código do Produto = " & frm.Controls("CódigoDoProduto") & "," & frm.Controls(i).Name & ":" & frm.Controls(i).OldValue & " -> " & frm.Controls(i).Value

Veja que terá que referenciar a chave primária envolvida nas alterações.

Alimente o campo strUser com o valor da variável getUsuarioAtual()

rslog.AddNew
rslog("strNomeForm") = frm.Name
rslog("strTipoLog") = strTipo
rslog("mmolog") = strLog
rslog("strUser") = getUsuarioAtual()
rslog("dtLog") = Now
On Error Resume Next
rslog.Update
rslog.Close
db.Close

Ok, mas não funciona em todos relatórios, principalmente aqueles que tem um campo buscar no formulário. Dai não registra.

Para relatórios não irá funcionar de fato.

Este módulo só funciona para formulários e na fonte de registro não pode esquecer de colocar o nome da tabela a qual a chave primária pertence.

A função dele é registrar as alterações feitas em qualquer um dos campos do formulário pelo usuário.

Exemplo: se numa determinada textbox o usuário mudar um dado, digamos Roberto para Roberto Carlos o módulo registrará na tbl_LogChange que na chave primária tal o usuário tal modificou o dado da textbox de Roberto para Roberto Carlos.

Analise.

Sim, mas na fonte de registro esta assim
(baseada numa consulta)

codigo=1

que seria passada pelo campo busca, assim nao esta funcionando, só esta quando eu abro outro formulario que carrega todos registros das tabelas.

Exato james,

O controle baseia-se em alterações em tabelas. Usando consultas não sei lhe informar ao certo, até porque dependendo da consulta, não se pode alterar seus valores.

Eu uso isto com tabelas e funciona. Ainda não experimentei o uso com consultas. Precisará explorar os recursos e constatar.

Ahhh sim... entendi,

Bom, vou pesquisar aqui se conseguir a resposta retorno..
vlw Dilson.