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

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!

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

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

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

https://www.maximoaccess.com/t8483-resolvidoselecionar-ultimo-registro

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

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

No final substitui tudo por DLAST:

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

Valeu!