[Resolvido] inserir data em campo memorando..

Prezados, bom dia.

Estou lendo o tópico sobre " inserir data em campo memorando.." respondido pelo "Cláudio Más" em 28/01/13 e tentei utilizar o mesmo comando para o memorando que tenho em um formulário, vinculado a uma tabela de parceiros, contudo quando executo o formulário ele inclui a data atual, mas seleciona todo o conteúdo, e quando tento clicar no fim da linha para escrever algo, novamente insere a data, selecionando novamente todo o texto.

Me!HIstórico = Me!HIstórico & vbLf & vbLf & "Fim do Registro: " & Format$(Date, "dd/mm/yyyy") & "."

Aproveitando, se for possível, gostaria que a data ficasse no início do texto e que ao inserir um novo registro neste memorando, fosse para a linha de baixo, como no exemplo a seguir:

30/07/2017: (exemplo de texto)
31/07/2017: (exemplo de texto de um segundo contato).

Muito Obrigado.

O código está no evento "Ao clicar"? Onde está o código que inclui a data?

Boa tarde.

Sim, inclui no evento ao Clicar.

Coloque o evento em outro local, como num botão, por exemplo ou após a ediçao/atualização de outro campo.
Se deixar da maneira que está, no evento "ao clicar", toda vez que entrar neste campo através do mouse ele irá incluir a nova linha.

Qualquer coisa coloca o exemplo aqui para a gente dar uma olhada.

Boa tarde...

Algo parecido com isso, apenas adapte-o as tuas necessidades renomeando os campos que são necessários.

Código:

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

Obrigado amigos.

Deu certo colocando em um botão.

Agora só preciso de ajuda em como encerrar esse tópico. rs

Obrigado a todos.