[Resolvido]Como inserir "Novas Observações" num campo Memorando de um formulário sem que apague as "Observações Anteriores"?

Pessoal,


Como inserir Novas Observações num campo Memorando de um formulário sem que apague as Observações Anteriores?

Estou trabalhando em um formulário que registra observações. Ao inserir novas observações não posso perder as observações anteriores.
Gostaria que ao registrar as observações feitas pelos usuários no campo txtObservações, fosse inserido simultaneamente no campo txtComments as mesmas informações de forma que fosse possível verificar o histórico dos registros.

Exemplo:

27/10/2014 11:19:46 (SIDINEY) Recebi documentação da empresa X para análise.
28/10/2014 14:20:30 (WALTER) Encaminhei diligência para sanar pendências da empresa Y.

Gostaria, também, de inserir automaticamente a data para cada observação

Os nomes dos campos do formulário são:

txtObservações (do tipo Memorando)
txtComments (do tipo Memorando)
txtUsuário (do tipo texto)

Tente usar o código abaixo:

Código:

TxtComents= vba.DateTime.Now & " (" & txtUsuário & ") " & txtObservações & vbCrlf & TxtComents

Dessa forma, as novas observações serão inseridas na primeira linha do seu comentário

Sidiney

Não entendo o por que duplicar as mesmas informações.

Aprendi a duras penas que deixar o usuário digitar diretamente no controle memorando é um grande risco.
Eles "conseguem" apagar todo o histórico anterior, imagine o caos.
Então, fiz o seguinte:
Deixei bloqueada a txtObservações, ficando somente para leitura.
Criei uma caixa de texto (AddHistorico) não acoplado para a digitação do texto a ser adicionado na txtObservações.
Criei um botão para adicionar o histórico na txtObservações.
O código:

Código:


' Se não tem nenhuma observações
If IsNull(txtObservações) Or txtObservações= " " Then
    If Len(AddHistorico) > 2 Then
       txtObservações.Value = AddHistorico
    End If
Else
   If Len(AddHistorico) > 2 Then
      Dim minhaData As String
      ' A linha abaixo é adicionada para separar os dias (eu usava isso num histórico clínico). e logo na linha de baixo a data da adição da observação
      minhaData = "*******************************************************************************************************************" & vbCrLf & Date & " " & Time
      txtObservações.Value = txtObservações & vbCrLf & minhaData & vbCrLf & AddHistorico
   End If
End If
' Limpa a caixa de texto
Me!AddHistorico = ""
HistóricoClínico.SetFocus
' Essa linha move o cursor para o final do texto, mostrando a última observação.
Me.txtObservações.SelStart = Len(Me.txtObservações) + 1


Espero que goste

Abraços

Nb

Colegas, obrigado pelas respostas.

Noobezinho,

Gostei da sua sugestão e estou tentando implementar. O código do botão está apresentando um erro de sintaxe na linha:

txtObservações.Value = txtObservações& vbCrLf & minhaData & vbCrLf & AddHistorico

Se possível, gostaria de identificar o responsável pela observação. Como faço?

Copie e cole:

Me!txtObservações.Value = me!txtObservações & vbCrLf & minhaData & " " & Me!txtUsuário & " " & vbCrLf & Me!AddHistorico

E veja se funfa!

Caso não funfe, verifique se os nomes estão corretos no código.
Depure o código, se não souber, veja na minha assinatura.

Aguardo..


Nb

Sidney
Com todo o respeito, mas uma simples linha de código resolve o seu problema Sidney. A que eu passei, vc testou pelo menos?
Em nenhum momento vc precisa Deixar o Campo Memorando livre para o usuário Apagar Dados.
Basta deixar a opção Bloqueado como SIM
Dessa forma, o usuário informa A obervação no Campo observação e essa é inserida no campo Memorando

Faça os testes e nos Dê Retorno

Fabio

Não precisa ser tão polido assim, " eu não mordo não" !!

Esse é um fórum de discussão, desde que seja sadia, claro !!

E eu não sou dono da verdade, não !!

Portanto, fique a vontade em opinar e assim poderemos encontrar sempre uma maneira melhor
de se fazer algo.

Abraços

Nb

Olá,
Uma sugestão: Porque, ao invés de um campo memo, não faz esse "histórico" através de um subformulário baseado em uma tabela específica para o histórico? Cada registro dessa nova tabela seria uma linha (fase) do histórico.
Dessa forma não ficaria uma infinidade de informações (histórico) em um único campo memo do registro.
Fica a sugestão.

Pessoal,

Desculpem-me por retornar somente agora. Tive um contratempo e fui obrigado a largar tudo.

Gostaria de agradecer a todos. Foram muito legais e prestativos. Quanto ao tópico, foi inteiramente resolvido.

Noobezinho, testei conforme orientação e funfou direitinho. Gostei da ideia para separar os comentários. Valeu!

LiveBrain, testei  conforme orientação e também deu certo, e com apenas uma linha de código. Legal, ficou muito bom.

rdrck, obrigado pela dica do subformulário, mas para o formulário em questão, considero que o campo memo atende. A expectativa é de poucas observações.


Muito obrigado a todos e até a próxima.

Ótimo Sidiney

Valeu o retorno

Boa sorte!

Nb