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]Atualizar o campo Histórico

    Compartilhe

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Atualizar o campo Histórico

    Mensagem  Rhostert em Qui 03 Ago 2017, 17:02

    Amigos, bom dia.

    Ainda estou na luta com o meu 1º sistema em access.

    A dúvida de hoje é a seguinte:

    Tenho em meu formulário um campo Memo, para o qual quero registrar o histórico de atendimento. Contudo, quando executo o formulário se eu deletar o histórico passado e salvar, acabo perdendo tudo.

    Pesquisei algumas dicas aqui no site e pelo que pude entender a melhor opção seria criar dois campos distindos e um botão para gravar de um para o outro.:
    1º Uma caixa de texto não associada, aonde digitaria o registro atual (nome "HistóricoAtual");
    2º Uma caixa de texto no estilo memorando (Nome "Histórico") e vinculada ao meu campo histórico da minha tabela (Tb_Convênios )
    3º Um botão para acrescentar no histórico já existente do ítem 2 o que eu incluir no ítem 1 (Nome "Grava Histórico").

    No evento ao Clicar do botão, coloquei o código:
    Private Sub Grava_Histórico_Click()
    CurrentDb.Execute "INSERT INTO Tb_Convênios (HIstórico) VALUES ('" & HistóricoAtual.Value & "')"
    End Sub

    Mas não está funcionando e não sei identificar o erro.

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar o campo Histórico

    Mensagem  Rhostert em Qui 03 Ago 2017, 19:27

    Amigos, boa tarde.

    Esse consegui resolver sozinho.

    Obrigado.

    Private Sub Grava_Histórico_Click()
    Me!Histórico = Me!Histórico & vbCrLf & vbCrLf & Format$(Date, "dd/mm/yyyy") & " - "
    Me!Histórico = Me!Histórico & Me!HistóricoAtual
    Me!HistóricoAtual = ""
    End Sub

      Data/hora atual: Sab 18 Nov 2017, 08:25