MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido] inserir data em campo memorando..

    avatar
    Rhostert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido] inserir data em campo memorando.. Empty [Resolvido] inserir data em campo memorando..

    Mensagem  Rhostert 31/7/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.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta 31/7/2017, 15:11

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Rhostert 1/8/2017, 18:57

    Boa tarde.

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta 1/8/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.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta 1/8/2017, 19:48

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 1/8/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Rhostert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Rhostert 2/8/2017, 12:42

    Obrigado amigos.

    Deu certo colocando em um botão.

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta 2/8/2017, 12:48

    avatar
    Rhostert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Rhostert 3/8/2017, 16:12

    Obrigado a todos.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 05:23