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


    [Resolvido]Atualizar o campo Histórico

    avatar
    Rhostert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar o campo Histórico Empty [Resolvido]Atualizar o campo Histórico

    Mensagem  Rhostert 3/8/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.
    avatar
    Rhostert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar o campo Histórico Empty Re: [Resolvido]Atualizar o campo Histórico

    Mensagem  Rhostert 3/8/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: 7/11/2024, 05:37