[Resolvido]Campo Memo x Inserir data automaticamente

Bom dia

Em meu sistema tenho um campo chamado txtAtend - tipo memorando......, quando abro o form que contém este campo pela primeira vez e o mesmo está vazio, via vba atribuo a data corrente ao mesmo...., até ai, tudo bem, o que ocorre é que, quando abro o form pela segunda vez, e não estou conseguindo resolver é que perco o histórico anterior e atribuo apenas a data atual novamente ao campo.

O código que estou usando é este:

Private Sub Form_Current()
If Not IsNull(Me.txtAtend) Then
Me.txtAtend.Value = Chr(10) + Chr(13)
Me.txtAtend.Value = Date
DoCmd.RunCommand acCmdSaveRecord
Else
Me.txtAtend.Value = Date
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub


O que pretendo/pretendia é:

exemplo:

12/03/2012: texto explicativo

15/03/2012: texto explicativo


Alguém tem alguma dica?

Att. Vinicius

Tente alterar essa parte:

If Not IsNull(Me.txtAtend) Then
Me.txtAtend.Value = Chr(10) + Chr(13)
Me.txtAtend.Value = Date

para:

If Not IsNull(Me.txtAtend) Then
Me.txtAtend.Value = Me.txtAtend & VBCRLF & Date

Obrigado Criquio, perfeito, é isto mesmo e obrigado por destinar seu tempo a este tipo de dúvida......

Aproveitando não sei se posso postar esta dúvida neste tópico mesmo ou se devo abrir um novo....., qualquer coisa, me corrija.....

No access 2007, em campo memo, se defini-lo como RTF - quando marco o texto da caixa ele abre o menu flutuante para formatação do texto..... há alguma forma de deixar este menu flutuante sempre ativo?

No repositório de OCX vi uma OCX que funciona +/- como isto, porém, ela só é apresentada ao clicar com o botão invertido do mouse.....

O método que eu conheço no momento é alterando uma entrada no registro para 0 ou 1 na chave AllowSelectionFloaties em:

HKEY_CURRENT_USER\Software\Microsoft\office\12.0\Common\Toolbars\Access\AllowSelectionFloaties

Esse método, no entanto, apenas oculta a barra definitivamente ou exibe quando algum texto é selecionado. A barra não fica exibida constantemente. Mas isso, na verdade, poderia até atrapalhar, pois imagina um formulário com 10 textbox e todas exibindo a barra... Mas, caso deseje prosseguir para tentar encontrar outra saída, crie um novo tópico por gentileza.

Obrigado Criquio.....

Vou avaliar.

Att. Vinicius

Boa tarde

Desculpe incomodar novamente com este tópico, mas gostaria de ver se tem uma dica:

- O código que passou esta funcionando da forma que espero e é este:

If Not IsNull(Me.txtAtend) Then
Me.txtAtend.Value = Me.txtAtend & " HISTÓRICO EM: " & vbCrLf & Date
DoCmd.RunCommand acCmdSaveRecord
Else
Me.txtAtend.Value = " HISTÓRICO EM: " & vbCrLf & Date
DoCmd.RunCommand acCmdSaveRecord
End If

Se o usuário entra neste campo memo e aciona um enter, quando entro pela segunda vez no campo, ele agrega a informação na linha abaixo, e fica assim:

HISTÓRICO EM: 16/03/2012
HISTÓRICO EM: 16/03/2012


Porém, se não digita nada no campo e o abre, ele vai concatenando tudo na mesma linha:
HISTÓRICO EM: 16/03/2012 HISTÓRICO EM: 16/03/2012 HISTÓRICO EM: 16/03/2012

Tem alguma dica de como posso fazer para que sempre se force a quebra da linha.

Att. Vinicius