[Resolvido]Quem alterou e Quem introduziu (Campo em branco)

Estou com uma dúvida em relação ao exemplo do JPaulo..
O problema é o seguinte: no meu formulário tenho dois campos que nem sempre são preenchidos. O campo txtprocura e o campo OBS. O código do Jpaulo transfere para a tabela tblLog tudo que foi alterado ou que estiver em branco ou nulo. Quando altero qualquer campo do formulário o código envia a tblLog o campo que eu alterei e os campos que normalmente ficam em branco (txtprocura e OBS). Como fazer para que esses campos não sejam enviados para tblLog nessa situação. O txtprocura é para pesquisa logo não deve nunca ser transferido para tblLog e o campo OBS não é campo obrigatório, ou seja, nem sempre ele é preenchido.
Alguém pode ajudar ?
Segue abaixo o código do JPaulo. Desde já agradeço ...
Sublinhei a parte que pega os campos em branco ..

On Error Resume Next
strChekaDiferente = False
strUser = Trim(login.Usuario)
If Me.NewRecord Then 'verifica se é um novo registro, se for registra com novo
strChekaDiferente = True

strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.NomeCliente & "','" & Me.CPFCliente & "','" & Me.SexoCliente & "','" & "Novo Registro" & "')"
DoCmd.RunSQL strSQL

Else
' se não for um novo registro, coloca a variável de chekar alterações como False
strChekaDiferente = False

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

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, 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
Cancel = True
End If

End Select
Next ctl
End If

Utilize somente o:

If ctl.Value <> ctl.OldValue Then

Oi Jpaulo..
Já tentei essa alternativa... Mas se eu fizer isso o código não irá funcionar se alguém entrar no registro, apagar algum campo e deixá-lo em branco.... A tbLog não registra essa alteração. Eu tentei aqui ..

Altere para esta linha;


If ctl.Value <> ctl.OldValue Or IsNull(ctl.Value) And Len(ctl.OldValue) > 0 Or ctl.Value = "" And Len(ctl.OldValue) > 0 Then

Continua com o seguinte problema..
Quando eu entro num registro e altero um campo que estava em branco ele não registra na tbLog ....
Alguma sugestão..?
Esse código está no ao clicar do botão salvar do formulário....

Veja o novo Upgrade;

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

Ok JPaulo..
Está funcionando perfeitamente..
Obrigado pela agilidade e prontidão..
Sucesso !!!

Obrigado pelo retorno o fórum agradece.