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

    [Resolvido]Somar valores do último e penúltimo registro

    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Somar valores do último e penúltimo registro Empty [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  janettepires 10/3/2016, 18:11

    Boa tarde!

    Preciso de uma ajuda, preciso localizar em uma tabela o campo GT_VALOR do último registro e subtrair do penúltimo registro, agrupando por máquina. No exemplo abaixo deveria subtrair 9.836,3 - 9.821,8 , e mostrar num campo GT_TEORICO o resultado e assim sucessivamente.

    DATA EQUIP GT_VALOR GT_TEORICO
    22/02/2016 20100182 980,22 0
    26/02/2016 20100182 980,49 0,2
    29/02/2016 20100182 9.822,13 8840,64
    04/03/2016 20100182 9.821,8 -0,33
    07/03/2016 20100182 9.836,3 14,5


    Obrigada!
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  baldocchi 10/3/2016, 18:19

    Não sei muito de VBA. ,as tenho um formulário em que preciso mostrar o último registro, talvez lhe ajude.

    tenta algo, mais ou menos, assim:

    on error resume next
    DoCmd.GoToRecord , , acLast
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  janettepires 10/3/2016, 18:21

    Então, esse mais ou menos assim que eu não consigo...rsrsrs...
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  baldocchi 10/3/2016, 18:39

    olha, eu achei aqui no forum uma postagem interessante que pode te ajudar:

    https://www.maximoaccess.com/t8483-resolvidoselecionar-ultimo-registro
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  janettepires 10/3/2016, 18:51

    Agradeço, mas o último registro eu sei pegar, mas não consigo pegar o PENÚLTIMO agrupando por DATA e EQUIPAMENTO.

    Preciso subtrair o ÚLTIMO - PENÚLTIMO.


    Obrigada
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  janettepires 16/3/2016, 14:13

    O código ficou assim, primeiro eu acho o último lançamento da máquina por data, depois eu procuro o valor. Calculo o campo no próprio form e depois gravo na tabela.

    Dim LMax As String
    Dim dteOrderDate As Date
    Dim curX As Currency


    On Error Resume Next


    If IsNull(Me.txt_EquipDesat) Then

    LMax = DMax("[data]", "tbl_recolhe", "equip = '" & txt_EQUIP & "'")

    Else

    LMax = DMax("[data]", "tbl_recolhe", "equip = '" & txt_EquipDesat & "'")


    If IsNull(LMax) Then

    exit sub

    End If


    dteOrderDate = LMax

    curX = DMax("[gt_valor]", "tbl_recolhe", _
    "[data] = #" & LMax & "#")

    Me.txt_Gt_Teorico = curX

    end if

    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 126
    Registrado : 14/03/2013

    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  janettepires 16/3/2016, 17:47

    No final substitui tudo por DLAST:

    Me.txt_Gt_Teorico = DLast("gt_valor", "tbl_recolhe", "[EQUIP] = '" & txt_EQUIP & "'")

    Valeu!

    Conteúdo patrocinado


    [Resolvido]Somar valores do último e penúltimo registro Empty Re: [Resolvido]Somar valores do último e penúltimo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:51