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

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

    kitsuneelt
    avatar
    kitsuneelt
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 25/08/2014
    • Mensagem nº1

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

    Mensagem  kitsuneelt 10/10/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
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº2

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

    Mensagem  Dilson 17/10/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
    • Ir para o topo
      Data/hora atual: 23/11/2024, 00:30