[Resolvido] Registra um Histórico de alterações - Dúvida

Referente ao exemplo Registra um Histórico de alterações
Tópico dividido pelo moderador Criquio
Motivo: segundo as regras do fórum, não postar dúvidas nos tópicos das salas de exemplo

Paulo desculpe eu ressucitar este tópico, preciso de uma força...

Estou usando seu código:
If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then

porém não sei por que ele está pegando campos em branco para branco e salvando e tornando uma tabela histórico gigantesca. Pelo meu ponto de vista que não é grande coisa, o código está certo.

Minha solução por enquando é filtrar o campo antigo e atual como null ou vazio e usar uma consulta exclusão para apagar sempre que o banco for fechado...

Existe uma maneira de não registrar estes campos em branco inalterados?

um exemplo do que acontece:

Utilizador_|_LogData_____________|_NomeForm_|_NomeCampo____|_ValorAntigo_|_ValorAtual_|_Status
Dennis_____|_27/08/2012 08:57:38_|_NRBC_____|_UR% Final____|_____________|____________|Registro Alterado
Dennis_____|_27/08/2012 08:57:38_|_NRBC_____|_UR% Inicial__|_____________|____________|Registro Alterado
Dennis_____|_27/08/2012 08:57:38_|_NRBC_____|_TempFinal____|_____________|____________|Registro Alterado
Dennis_____|_27/08/2012 08:57:38_|_NRBC_____|_TempInicial__|_____________|____________|Registro Alterado
Dennis_____|_27/08/2012 08:57:38_|_NRBC_____|_CD___________|_____________|____________|Registro Alterado

Veja este tópico;

http://maximoaccess.forumeiros.com/t9158-resolvidoadaptacao-do-exemplo-registra-um-historico-de-alteracoes

pelo que eu percebi você tirou os null e "" e deixou somente: If ctl.Value <> ctl.OldValue Then

é isto que eu entendi para que possa resolver?

Faça você mesmo o teste e retorne.

Não esquecer que não existe qualquer problema no exemplo original, ele foi elaborado assim mesmo, e cada usuário pode adaptar às suas necessidades.

não estou conseguindo mesmo...

Ele salva todos os campos em brancos, e quando um campo em branco é preenchido também não salva no histórico.

me de uma luz por favor!

Dennis amigão, bom dia !

Anexe aqui o seu banco, ou envie para o meu email e diga-me qual o formulario.

Bom dia JPaulo!
Anexei o banco no skydrive, compactei em winrar, é só colar na C:\ e abrir um dos atalhos
Usuário: Dennis
Senha: 0790

https://xwq64w.blu.livefilestore.com/y1pSnvKCqOw49o_iiqdpKxtmEaVHRi00sZSXeIZfFZ5me1_XFosjwm8kCAwy1fgmjdHl_g0VWPgYIGu5N6fgYWErQ/Laudos%20Cliente.rar?download&psid=1

ou

https://skydrive.live.com/?cid=8c0a8d01b183ba74#cid=8C0A8D01B183BA74&id=8C0A8D01B183BA74!104

Arquivo: Laudos Cliente.rar

[Editado]
Esqueci de mencionar, qualquer formulário tem está função, mas se for dar uma olhada pode ser na principal Formulário_CadastroDeEquipamentosNRBC

Não consegui a brir o seu banco.

Anexe aqui, um banco novo apenas com as tabelas envolvidas e o formulario.

Tenta agora, liberei tudo para todos os usuários como administrador.

Substitua o codigo do seu formulario CadastroDeEquipamentosNRBC, por este e teste;



Private Sub Form_BeforeUpdate(Cancel As Integer)
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 = CurrentUser() 'Para pegar o nome do usuário do computador (Windows) coloque este código GetUserName_TSB

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 zhist (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & 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
Me.Refresh
End If

End Select
Next ctl
'Salva tudo o que foi feito
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub

Muito obrigado, Funcionou perfeitamente.
Agora quando eu apago uma informação inteira de um campo texto ele não registra que foi alterado para null, eu teria que adicionar mais algum código para salvar está alteração?

Isso é porque o codigo está a correr no evento Form_BeforeUpdate.

Deveria estar a funcionar no evento de um botão salver por exemplo, ou fechar o form e tambem de estar no evento ao mover entre registros.

então eu deveria remover do before_update e colocar nesses 3 lugares? botão salvar, ao fechar e em sujo?

Pode colocar apenas no botão salvar, e nos outros eventos chamar sempre esse botão;

Exemplo no botão ao navegar;

Private Sub SeuBotaoAvançar_Click()
Call SeuSalvar_Click
DoCmd.GoToRecord , , acNext
End Sub

entendi, fiz de acordo como pediu,

Removi do formulários os seletores de registros, sem botões fechar e maximizar, barra de rolagem, quase tudo, e coloquei em botões,
<<  <   >  >>  X   `/ salvar
mas quando eu deixo um campo que tinha alguma informação em branco ele realmente não salva, e quando um campo em branco é preenchido também não salva, será algum módulo que esteja atrapalhando em algo?

Só testando, porque o If ctl.Value <> ctl.OldValue Then tem de funfar.

Testado;

Substitua por este;



Private Sub Form_BeforeUpdate(Cancel As Integer)
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 = CurrentUser() 'Para pegar o nome do usuário do computador (Windows) coloque este código GetUserName_TSB

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) 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 zhist (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
DoEvents
CurrentDb.Execute "DELETE * FROM zhist WHERE [ValorAntigo]=' ' ", dbFailOnError
DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Me.Refresh
End If

End Select
Next ctl

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

Exatamente isto que eu queria!

Muito obrigado JPaulo, e desculpe ter tomado seu tempo.

Att. Dennis Henrique

O fórum é que agradece o seu retorno.

Olá JPaulo,

Antes de tudo gostaria de saber se posso postar em um forum que já foi encerrado ou se tenho que criar um novo. Estou usando este código ele esta funcionando perfeitamente, só que na tabela histórico eu crie mais uma coluna chamada NumeroLançamento, como eu faço para ele registar o numero do registro para eu ficar sabendo qual foi o registro que foi feito alteração no formulário, isso é possível?

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 = getUsuarioAtual() 'Para pegar o nome do usuário do computador (Windows) coloque este código GetUserName_TSB

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) 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 zhist (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.value & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
DoEvents
CurrentDb.Execute "DELETE * FROM zhist WHERE [ValorAntigo]=' ' ", dbFailOnError
DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
End If

End Select
Next ctl

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

claro que é, cria uma coluna na tabela Zhist ou no histórico como ID ou Código ou N°Registro, e no código SQL Adicione o nome do campo da tabela e onde inseri os dados coloque assim me.id ou me.código ou me.N°Registro e pronto toda vez salvará o n° do registro na sua tabela.

segunda feira eu esclareço melhor para você, estou morrendo de sono.

Deu certo, muito obrigado pela ajuda.

O Fórum Agradece seu retorno!