[Resolvido]Adaptação do exemplo Registra um historico de alterações

Companheiros bom dia,

Gostaria da ajuda de vocês, para adaptar o exemplo do mestro JPaulo, ao meu banco.

Tentei pesquisar no forúm, porém não consegui adptar (acho que pela minha falta de conhecimento, pois ainda sou iniciante no access).

Segui todas as informações passadas pelo código, porém gostaria de inserir um campo a mais na tbllog, esse campo seria Lançamento (númeração automatica). Vou tentar exemplificar:

Tenho uma tabela (Recebimento de Fatura) que tem os seguintes campos:

Lançamento, data de recebimento, Prestador, Valor Pago...

Ao alterar os campos (data de recebimento, Prestador, Valor Pago) está sendo gravado perfeitamente na tabela de log, entretanto gostaria que ao alterar estes campos, o código mostrasse de qual lançamento estes campos pertencem.

Desde já agrade.

Felipe seja bem vinso ao fórum.

Só vendo seu banco, conseguiremos adaptar.

Pode anexar aqui em .zip ?

Vou colocar.

Obrigado pelo pronto atendimento

Segue o arquivo.

Grato

Algo está errado, não consigo descompactar.

Mestre JPaulo

Vê se agora vai.

http://speedy.sh/fRrYt/Sistema-de-Recebimento-de-Fatura.accdb

Teste somente assim;


Dim strChekaDiferente As Boolean
Dim strSQL As String
Dim ctl As Control
Dim strUser As String
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
'2010-06-11
'Importante: Todos os botões de navegação devem conter a
'chamada de toda esta instrução.
'O form não deve ter o botão fechar ativo, deve colocar um botão para esse efeito e chamar a instrução.

On Error Resume Next
strChekaDiferente = False
strUser = GetUserName_TSB

strChekaDiferente = False

For Each ctl In Me.Controls
' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Then
'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblLog (Lançamento, Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & Me.Lançamento.Value & "', '" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If

End Select
Next ctl

'Salva tudo o que foi feito
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Mestre,

Funcionou perfeitamente.
Muito Obrigado.

Obrigado pelo retorno o fórum agradece.

Grato JPaulo! Achei o que eu precisava. Fiz a adaptação e deu certo no meu aplicativo também!