[Resolvido] Contar quantas vezes um registro foi editado

Boa tarde
Tenho um sistema de cadastro de ciclos de produção automotiva e quando o usuário cria ou edita um novo registro preciso de um campo calculado que faça a contagem de edições feitas por linha de registro. Algo como um contador de edições feitas no registro.
Isso é possível?
Obrigado!

Tente assim:
Crie um novo campo na tabela e no form onde são editados com nome txtContAlter
E no campo que você quer que seja contado, coloque após atualizar:

Me.txtContAlter.Value = Me.txtContAlter + 1

O campo tem que ser acoplado ao da tabela.

Até mais

Obrigado! Vou tentar e dou um retorno!

Olá, tentei aqui e não deu certo.
Fiz exatamente como vc disse. Criei o campo txtContAfter no formulário e joguei o código no Após Atualizar no campo que preciso fazer a contagem.
Onde será que errei?

Vou tentar outra opção, daqui a pouco dou outra idéia.

Assim serve para sua necessidade:

Private Sub Nome_AfterUpdate()
Dim vlrOrigin As String
vlrOrigin = Me.Nome.OldValue 'Guarda o primeiro valor do campo nome
If MsgBox("Deseja salvar a alteração?", vbYesNo) = vbYes Then 'Se clicar "Sim" ele salva a alteraçã no nome
Me.Alteracao = Me.Alteracao.Value + 1 'E soma mais um na contagem
Else 'Se clicar não
Me.Nome = vlrOrigin 'Devolve o valor antigo do nome e não conta a alteração
End If
End Sub

Obrigado! Vou tentar e mando um retorno.

Deu o seguinte erro:

Private Sub Descr_AfterUpdate()
Dim vlrOrigin As String
vlrOrigin = Me.Descr.OldValue 'Guarda o primeiro valor do campo nome
If msgbox("Deseja salvar a alteração?", vbYesNo) = vbYes Then 'Se clicar "Sim" ele salva a alteraçã no nome
Me.Descr = Me.Descr.Value + 1 'E soma mais um na contagem
Else 'Se clicar não
Me.Descr = vlrOrigin 'Devolve o valor antigo do nome e não conta a alteração
End If
End Sub

Juliano, ele não vai somar um valor a um campo texto, pelo que entendi assim você mandou que ele some seu campo descrição.
Você criou um campo para a contagem das alterações? Se sim mude o Me.Descr = Me.Descr.Value + 1 para o nome do seu campo de contagem.

Private Sub Descr_AfterUpdate()
Dim vlrOrigin As String
vlrOrigin = Me.Descr.OldValue 'Guarda o primeiro valor do campo nome
If msgbox("Deseja salvar a alteração?", vbYesNo) = vbYes Then 'Se clicar "Sim" ele salva a alteraçã no nome
Me.Descr = Me.Descr.Value + 1 'E soma mais um na contagem
Else 'Se clicar não
Me.Descr = vlrOrigin 'Devolve o valor antigo do nome e não conta a alteração
End If
End Sub

Sim, é um campo de texto até 255 caracteres.
Vou tentar aqui e mando um retorno.
Obrigado

Testei aqui e não deu mensagem de erro. Criei o campo não acoplado ContEdit mas não contou. O que pode estar errado?

Veja:

Teve algum êxito?

Obrigado pelo anexo mas mesmo assim não consegui fazer aparecer o número de edições no campo.
O campo que coloquei o código é texto 255 caracteres e o campo Cont_edits (o campo que entrará a contagem) é número.
Tem alguma coisa a ver com isso?

Sim Julianow, tem que ter formato número.
Mas tem outra coisa, o valor desse campo tem que ser zero, desculpe se não disse antes, se forem muitos campos para digitar o zero faça com uma consulta atualização, e o campo tem que ser acoplado.

Se com isso não conseguir, por favor manda o BD.

Oi, o campo que quero fazer a contagem das edições é texto e entra texto. Eu queria contar a quantidade de edições (alterações) feitas no texto da caixa.

Acho que estou entendendo errado! O campo que terá as alterações contadas pode ter qualquer formato, mas o campo contagem tem que ser número e tem que ser acoplado.

Sim, é assim que estão os campos, a caixa de mensagem funciona direitinho mas a contagem não aparece no campo Cont_Edits..

Ok, vou preparar para você e envio a noite de casa. Te mando por um link do 4Shared.
Obrigado!

Bom dia. Desculpa pelo atraso na resposta. Só agora pude mexer no sistema.
Já fiz as edições necessárias e a noite envio pra você.
Estou usando agora o servido Uploaded e envio por ele ok?
Obrigado!

Boa noite. Segue o sistema para dar uma olhada. O servidor é Uploaded.
Obrigado

http://ul.to/37h2hqd1

Bom dia, qual é o form em questão?

Clique em "Cadastro de OS". O pop que vai abrir, veja a explicação em azul sobre a cópia do texto do campo Descrição.
Abra o sistema como se fosse um usuário. Depois entra na estrutura para ver o código no campo descrição.

O código do campo estava correto, mas o formato do campo não, estava como texto.

Veja se é isso, abraço.

Obrigado. Vou dar uma verificada e retorno.

Obrigado pela alteração no sistema. É isso mesmo que procuro. Só faltou a cópia do campo 'Descrição' para o campo da guia Faturamento.

Quando você entrar no campo Descr1 ele receberá a Descrição do campo alterado.

Obrigado! É isso mesmo que procuro. Faltou apenas a cópia para o campo da guia Faturamento mas tudo bem...