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


2 participantes

    Incluindo resultado de Datediff na tabela

    avatar
    lennoncecere
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 31/01/2017

    Incluindo resultado de Datediff na tabela Empty Incluindo resultado de Datediff na tabela

    Mensagem  lennoncecere 31/1/2017, 20:27

    Boa tarde, pessoal.

    Tenho um formulário onde é realizado uma monitoria, todos os dados desse Form estão indo para uma tabela.
    Eu inclui uma coluna chamada "DtHrSalva" onde preciso armazenar o cálculo utilizando a função "datediff". Vou utilizar esse resultado para verificar quanto tempo cada pessoa demora para realizar uma monitoria.
    Eu já fiz o teste e sei que a função está funcionando, pois está trazendo o tempo utilizado corretamente mas estou com dificuldades de jogar o resultado na coluna quando o usuário clica em salvar. (Quando ele clica em salvar o botão chama a Sub e depois salva todo o registro da monitoria)

    Código:
    'Faz o cálculo para contabilizar o tempo de corrido monitoria
    Sub TempoMonitoria()
      Dim Tempo As String
       Set Tempo = DateDiff("s", [Data Monitoria], now()) 'Data Monitoria = data e hora que ele começa a monitorar
      CurrentDb.Execute "INSERT INTO Formulario(DtHrSalva) VALUES('" & Tempo!DtHrSalva & "')"
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Incluindo resultado de Datediff na tabela Empty Re: Incluindo resultado de Datediff na tabela

    Mensagem  Alexandre Neves 5/2/2017, 14:52

    Boa tarde, e bem-vindo ao fórum
    Tenha controlo invísivel no formulário com origem no campo Tempo
    Execute a subrotina antes de guardar o registo

    SeuControlo = DateDiff("s", [Data Monitoria], now()) 'Data Monitoria = data e hora que ele começa a monitorar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 17/5/2024, 12:30