Data anterior à data atual

Boa tarde!

Estou com um problema já a algum tempo... Vou tentar explicar da maneira mais clara possível, já que, infelizmente, não posso compartilhar o banco de dados... É o seguinte:

Tenho uma tabela que registra todos os saques feitos num determinado caixa eletrônico, neste formato (vou demonstrar apenas com duas pessoas para melhor compreensão):

Código	Nr Cartão	Nome	Data
1	7463.2548.4563.2589	João da Silva	22/06/2016
2	4785.2356.5842.1269	Maria Cardoso	24/06/2016
3	7463.2548.4563.2589	João da Silva	25/06/2016
4	4785.2356.5842.1269	Maria Cardoso	28/06/2016

Desta tabela, quero montar uma consulta (ordenada por Data em ordem decrescente) que pegue o Nr do Cartão, o Nome, a Data , o Último Saque e o Intervalo entre um saque e outro daquela pessoa em relação a linha atual. Por exemplo:

Nr Cartão	Nome	Data	Último Saque	Intervalo
4785.2356.5842.1269	Maria Cardoso	28/06/2016	24/06/2016	4
7463.2548.4563.2589	João da Silva	25/06/2016	22/06/2016	3
4785.2356.5842.1269	Maria Cardoso	24/06/2016
7463.2548.4563.2589	João da Silva	22/06/2016

A minha dúvida é: como faço pra montar o campo "Último Saque" na consulta? E aí, se for possível, como fazer a subtração do campo "Intervalo"?

Alguém tem uma ideia? Abraço!

E aí, Ney!

O resultado seria esse, só que na tabela não tem o campo Último Saque. Eu quero criar ele direto na consulta, ou seja, alguma função que pegue a data do último saque onde o número do cartão seja igual ao da linha atual. Os campos da tabela são exatamente os que tem no exemplo que passei e desejo retornar uma consulta exatamente com o exemplo também.

Espero que hava uma forma =D

Abraço

cadê vc ?

Oi, bom dia.

Estive bastante ocupado nestes dias, só baixei o arquivo e dei uma olhada por isso. A princípio é exatamente isso, vou tentar adaptar e já venho com a resposta.

Abraço.

Avelino,

Não era exatamente isso, mas eu consegui adaptar a função que tu criou e agora está funcionando bem, exceto que está muito lento para fazer realizar a consulta. A minha tabela tem, hoje, um pouco mais de cinquenta mil registros, sendo que são adicionados uns 200 por dia. Segue a função que criei:

Public Function LastCollection(argBoar As String, argDate As Date) As Date
On Error GoTo Err_Lastcollection
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT TOP 1 PRODLIST.SPRUNG_DATE FROM PRODLIST WHERE PRODLIST.TIER_HBNR = '" & argBoar & "' AND PRODLIST.SPRUNG_DATE<#" & argDate & "# ORDER BY PRODLIST.SPRUNG_DATE DESC;"

Set rs = CurrentDb.OpenRecordset(strSQL)

LastCollection = rs!SPRUNG_DATE

rs.Close
Set rs = Nothing

Err_Lastcollection:
If Err.Number = 3021 Then LastCollection = argDate
End Function

Onde, comparando com a tabela fictícia do exemplo, TIER_HBNR seria o número do cartão e SPRUNG_DATE seria a data do saque...
Esta é a única maneira de fazer isso?

Abraço!