MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido] inserir data em campo memorando..

    Compartilhe

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

    [Resolvido] inserir data em campo memorando..

    Mensagem  Rhostert em Seg 31 Jul 2017, 13:56

    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.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  thiagomcosta em Seg 31 Jul 2017, 15:11

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

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  Rhostert em Ter 01 Ago 2017, 18:57

    Boa tarde.

    Sim, inclui no evento ao Clicar.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  thiagomcosta em Ter 01 Ago 2017, 19:47

    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.
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  thiagomcosta em Ter 01 Ago 2017, 19:48

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  Silvio em Ter 01 Ago 2017, 19:51

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  Rhostert em Qua 02 Ago 2017, 12:42

    Obrigado amigos.

    Deu certo colocando em um botão.

    Agora só preciso de ajuda em como encerrar esse tópico. rs
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  thiagomcosta em Qua 02 Ago 2017, 12:48

    [Você precisa estar registrado e conectado para ver este link.]

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

    Re: [Resolvido] inserir data em campo memorando..

    Mensagem  Rhostert em Qui 03 Ago 2017, 16:12

    Obrigado a todos.

      Data/hora atual: Qua 22 Nov 2017, 20:15