MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Relatório verificação de data e hora alterando valor.

    Compartilhe

    kitsuneelt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 25/08/2014

    Relatório verificação de data e hora alterando valor.

    Mensagem  kitsuneelt em Sex 10 Out 2014, 14:28

    Olá Galera, será que alguém mais experiente pode dar uma ajuda.

    Tenho a seguinte tabela

    --------Chamada-----------Duracao---Valor
    02/08/2014 08:43:24--------15---------0
    02/08/2014 08:47:29--------0-----------0
    03/08/2014 08:44:37--------4,1---------0
    06/08/2014 19:11:41--------20,9------0,01          
    10/08/2014 17:48:53--------2,3-------1,99
    13/08/2014 17:30:35--------1---------0,50
    13/08/2014 17:49:19--------5---------2,50
    13/08/2014 17:53:21--------7---------1,25


    Será que é possível eu fazer uma verificação no dia e hora da chamada com o tempo da duração.

    Exemplo se a duração somado com a hora for igual ou maior que a duração seguinte ele coloca zero na duração como vou mostrar abaixo.

    --------Chamada-----------Duracao---Valor
    02/08/2014 08:43:24--------15---------0
    02/08/2014 08:47:29--------0-----------0
    03/08/2014 08:44:37--------4,1---------0
    06/08/2014 19:11:41--------20,9------0,01          
    10/08/2014 17:48:53--------2,3-------1,99
    13/08/2014 17:30:35--------20---------0,50
    13/08/2014 17:49:19--------0---------2,50
    13/08/2014 17:53:21--------7---------1,25

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

    Re: Relatório verificação de data e hora alterando valor.

    Mensagem  Dilson em Sex 17 Out 2014, 01:55

    Olá,

    Se for por essa lógica, penso que o resultado final será outro:

    --------Chamada-----------Duracao---Valor
    02/08/2014 08:43:24--------0---------0
    02/08/2014 08:47:29--------0-----------0
    03/08/2014 08:44:37--------4,1---------0
    06/08/2014 19:11:41--------20,9------0,01          
    10/08/2014 17:48:53--------0-------1,99
    13/08/2014 17:30:35--------20---------0,50
    13/08/2014 17:49:19--------0---------2,50
    13/08/2014 17:53:21--------7---------1,25

    É assim que pretende ?

    Tente:

    Dim rs As DAO.Recordset
    Dim qDuracao As Double
    Dim qTotal As Double
    Dim oldCod As Long
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM SuaTabela ORDER BY Chamada")
    rs.MoveLast
    rs.MoveFirst
    qDuracao = 0
    oldCod = 0
    Do While Not rs.EOF
    oldCod = rs("SuaChavePrimaria")
    qTotal = Nz(rs("Duracao") + rs("ValorX"))
    rs.MoveNext
    qDuracao = Nz(rs("Duracao"))

    If qTotal >= qDuracao Then
    CurrentDb.Execute "UPDATE SuaTabela SET Duracao = '0' WHERE SuaChavePrimaria=" & oldCod
    End If
    rs.MoveNext
    Loop
    MsgBox "OK"
    rs.Close


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

      Data/hora atual: Sex 09 Dez 2016, 11:35