[Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

Boa tarde Jpaulo,
Este exemplo que foi colocado aqui no repositório é muito bom... Tentei fazer alguma alteraçoes no seu codigo para que eu o pudesse adaptar à minha base de dados mas a ideia é poder registar tambem no Histórico todos os dados inseridos. Nos testes que efectuei nao consegui que as alteraçoes que fiz tivessesm sucesso. Pode dar-me uma ajuda?

Obrigado e Abraço

Compile esse exmplo com este e terá o resultado desejado;

http://maximoaccess.forumeiros.com/t530-registra-um-historico-de-alteracoes

Bom dia JPaulo,
Obrigado pela sua resposta. Fiz o download da base dados que postou mas o seu exemplo apenas regista no histórico as alteraçoes. Ainda não consegui perceber em que parte do seu codigo devo mexer para que alem das alteraçoes fiquem tambem registados no historico todos os dados que são inseridos (mesmo que nao tenham sido alterados).
Ou seja:
strUser = GetUserName_TSB
If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
Exit Sub
Se for um novo registo eu nao queria que o codigo parasse aqui mas sim que registase esse novo registo tambem na tabela log da base dados Histórico.

Mais uma vez obrigado

Então delete essas linhas:

If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
Exit Sub

Delete o ultimo End If

E acrescente aqui

If Me.NewRecord Or ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then

Amigo JPaulo desculpe a minha insistencia, tenho dificuldade em usar codigo VB no access....
fiz a alteraçao que me indicou mas ainda nao consegui que ficasse registado os novos dados introduzidos no frmexemplo na tabel log no historico no campo "valor actual".
Efectuei a alteraçao da seguinte maneira

On Error Resume Next
strUser = GetUserName_TSB

If Me.NewRecord Or ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
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 Or (IsNull(ctl.Value) Or ctl.Value = "") 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 (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'C:\Documents and Settings\Vijdioni\Ambiente de trabalho\Nova\Historico.mdb'" & _
"Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"
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
End If
'Salva tudo o que foi feito
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub

Obrigado pela sua paciencia

Abri um novo tópico para não estar a carregar o tópico do Exemplo inicial.

Coloque num site publico o seu exemplo para analisarmos.

Pode colocar zipado aqui:

http://www.speedyshare.com/

Veja este exemplo de 18-Outubro-2010

Download


Está no final deste post:

https://www.maximoaccess.com/t526-resolvidohistorico-de-alteracoes

É isto mesmo... o exemplo que colocou de 18-Outubro-2010
Era isto que eu procurava

Muito obrigado JPaulo pela sua ajuda

Obrigado pelo retorno o forum agradece.

Amigo JPaulo,

Este arquivo de 18/Out/2010 o qual menciona ainda pode ser encontrado? O link esta quebrado!

Grato!

Boa tarde,

Fica aqui o exemplo do mestre JPaulo

Cumprimentos

Muito Obrigado PCNET!