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

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

    Compartilhe

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Respeito às Regras 100%

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

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

    Mensagem  baldocchi em Qui 10 Mar 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qui 10 Mar 2016, 18: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 : 34
    Registrado : 03/11/2014

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

    Mensagem  baldocchi em Qui 10 Mar 2016, 18:39

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

    [Você precisa estar registrado e conectado para ver este link.]

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

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

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qua 16 Mar 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  janettepires em Qua 16 Mar 2016, 17:47

    No final substitui tudo por DLAST:

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

    Valeu!

      Data/hora atual: Dom 04 Dez 2016, 14:11