[Resolvido]Relatorio mostrando ultimo regstro lançado

No tópico passado, minha duvida foi solucionada pelo moderador PILOTO, deu tudo certo e coloquei resolvido.
Depois surgiu uma duvida que tem tudo a ver com o tópico passado.

Este código inseri em "Ao abrir" do relatório lançamentos
No formulário FrmExemplo tem uma Caixa de texto nomeada como txtMatricula.
Insiro as matriculas ex: 2,4,8 e um botão chama o relatório.

Private Sub Report_Open(Cancel As Integer)
Dim StrSQL As String
Dim StrMat As String
Forms!FrmExemplo.Visible = False
StrMat = Forms!FrmExemplo!txtMatricula
StrSQL = "SELECT * FROM lançamentos WHERE Mat In (" & StrMat & ")"

Me.RecordSource = StrSQL
End Sub

Em uma mesma matricula tenho por exemplo varias datas lançadas
Teria como, fazer este código trazer no relatório apenas ultimo lançamento e não todos referente a matricula da pesquisa?

Rapaz, se as ultimas datas de todas as matriculas (2,4 e 8 ) fossem a mesma talvez sim... mas se as datas forem diferentes creio eu que não....

Mas tente algo assim:

StrSQL = "SELECT * FROM tblExemplo WHERE Mat In (" & StrMat & ") And CpData = #" & DLast("CpData", "tblExemplo") & "#"

Cumprimentos.

Sua solução:

StrSQL = "SELECT tblExemplo.CpMatricula, tblExemplo.CpAluno, Max(tblExemplo.CpData) AS MáxDeCpData FROM tblExemplo" _
& " WHERE CpMatricula In (" & StrMat & ") GROUP BY tblExemplo.CpMatricula, tblExemplo.CpAluno;"


Cumprimentos.

Piloto, estou grato por você ter respondido minha pergunta.

Para este código funcionar, teria que estar com as datas lançadas na tabela, mas estas datas são obtidas de cálculos no relatório.
Onde calculo [Data inicial] + [Data Final] = vencimento

Tem como inserir esta formula em um formulário, e automaticamente aparecer na tabela?

Sendo assim acho que daria certo.

Grato.

So voce me enviando o Bd com os objetos envolvidos para que vejamos.


Cumprimentos.

Como envio o arquivo...[url=C:\Documents and Settings\Cleidi.CASA-B33DD407E8\Desktop\controle.rar]C:\Documents and Settings\Cleidi.CASA-B33DD407E8\Desktop\controle.rar[/url]

Envie-me no e-mail.

Cumprimentos.

Enviei no e-mail harysohn@homail.com

Não veio o BD Amigão.. Envie novamente

Cumprimentos.

Bom dia,

Piloto, enviei no harysohn@homail.com

.........

Ploto, segui o exemplo acima e deu certo, grato

Resolvido............

O Fórum agradece o Retorno.