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
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