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

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

    Compartilhe
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qui 10 Mar 2016, 10: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
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  baldocchi em Qui 10 Mar 2016, 10: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
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qui 10 Mar 2016, 10:21

    Então, esse mais ou menos assim que eu não consigo...rsrsrs...

    baldocchi
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  baldocchi em Qui 10 Mar 2016, 10:39

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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qui 10 Mar 2016, 10: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
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qua 16 Mar 2016, 07: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

    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qua 16 Mar 2016, 10:47

    No final substitui tudo por DLAST:

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

    Valeu!

      Data/hora atual: Seg 26 Jun 2017, 05:11