[Resolvido]Histórico de Alterações em Formulário de Consulta

Amigos,

Gostaria de fazer um campo memorando que armazenasse toda alteração que fosse feita em um formulário vinculado a uma tabela. Estou enviando uma foto onde o campo observação quando selecionado o item, eu apertei o botão direito do mouse e aparece o histórico de alteração. Eu queria saber se tem como fazer isso em um formulário de consulta e quando gerar um relatório. Obrigado pela ajuda, Nilton.

Acredito que esse exemplo te ajude.

maximoaccess.com/t213-quem-introduziu-quem-alterou?highlight=Quem+alterou


[ ]'s

Noobezinho,

Obrigado pela ajuda. Fiz uma pesquisa e encontrei a seguinte solução: na propriedade do campo que desejo que apareça a informação, no evento após atualizar coloquei o código Me.SeuCampo=Now() & " - " & Me.SeuCampo. Com esta instrução quando eu digito uma nova informação o histórico fica registrado. Agora estou tentando fazer com que as informações apareçam cada uma em uma linha. Se puder ajudar com esta dúvida agradeço. Segue o BD.

Nilton

Se for digitar diretamente no campo memo, o após atualizar não funcionará, pois

ao apertar ENTER, o cursor irá para próxima linha do campo.

Preciso saber como deseja que isso funcione.

Chegou a ver o exemplo do link que coloquei?

Noobezinho,


Vi sim. Neste exemplo que te mandei fiz apenas como teste para saber como ia se comportar. Tentei configurar para que quando entra-se com uma nova informação, ela ficaria em uma nova linha com a data iniciando. Mas como você pode ver a data fica em uma linha e a mensagem fica em outra. Eu pretendo usar este tipo de campo para quando houver uma movimentação de informação para não se perder o que aconteceu para trás. Agradeço pela ajuda.

Não respondeu o principal

Vai digitar direto na caixa de texto com o campo memo?

Se sim, não dá pra fazer o que deseja, já está na caixa.

Se não, diga-me como vai colocar os dados na caixa, que

assim eu poderei ver o que posso fazer.

Só pra vc ter uma ideia, do porque da minha pergunta:

Uso duas caixas de texto no histórico clínico de clientes de uma clínica veterinária.

A primeira caixa de texto, é de um campo memo.

A segunda caixa, é onde se digita informações para adicionar no campo memo

As informações são dividias por dia, assim:

_______________________________________________________
00/00/00
vacina blabla
animal apresentando falta de apetite blalba
*******************************************************
11/11/11
blablabla
blablabla
*******************************************************
11/12/11
blablabla

Detalhe: não estará automatizando a operação.

[ ]'s

Noobezinho,


Eu estava pensando somente em deixar o campo memo digitando tudo nele. Mas esta opção que você esta me apresentando é mais simples. Obrigado.

Aqui está o código que eu utilizo, use-o como achar melhor.

É só substituir historicoClinico por Observação  AddHistórico por AddObservação (crie esta caixa de texto)

Deixe a caixa de texto Observação bloqueada para que o usuário não altere ou apague o conteúdo.

Como teclando ENTER vai para uma nova linha da caixa de texto, coloque o código abaixo

num botão de comando:


If IsNull(HistóricoClínico) Or HistóricoClínico = " " Then
   If Len(AddHistórico) > 2 Then
      HistóricoClínico.Value = AddHistórico
   End If
Else
  If Len(AddHistórico) > 2 Then
     Dim minhaData As String
     minhaData = "*******************************************************************************************************************" & vbCrLf & Date & " " & Time
     HistóricoClínico.Value = HistóricoClínico & vbCrLf & minhaData & vbCrLf & AddHistórico
  End If
End If
Me!AddHistórico = ""
HistóricoClínico.SetFocus
Me.HistóricoClínico.SelStart = Len(Me.HistóricoClínico) + 1

Noobezinho,



Muito obrigado pela ajuda.

Opa!

Estamos aí pra ajudar no que podemos!

Valeu o retorno!


Boa sorte!