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

    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
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1697
    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

      Data/hora atual: Sab 16 Dez 2017, 20:46