[Resolvido]Pegar o segundo registro (Select Top 2)

Boa Noite !

Preciso pegar o segundo registro em de campo baseado em uma condição.

Sei que o select Top 2 traz os dois primeiros registro mas preciso somente do segundo .

estou fazendo algo mais ou menos assim

...
Set rst = CurrentDb.OpenRecordset("SELECT TOP 2 Acomp.Aco_Dt_Inicio FROM Tbl_Acompanhamento AS Acomp INNER JOIN Tbl_Manutencao ON Acomp.Man_ID = Tbl_.Man_ID WHERE [Acomp].[Man_ID]=" & Man_ID_Relatorio & " ORDER BY Acomp.ID_Acomp")
DtPrimeiroEvento = rst(0)

If (CDate(Txt_Editar_Inicio) < CDate(DtPrimeiroEvento)) Then
...Update.....


é possivel ?

Obrigado !

Tente colocar um ORDER BY NomeDoCampo no fim para ordenar do menor para o maior e aí você faz:

Código:

rst.MoveFirst
Me.NomeDoCampo = rst!NomeDoCampo

Muito Obrigado Criquio!

Como sempre aprendendo muito com voce.

Resolvi da seguinte maneira

Código:

Dim DtPrimeiroEvento As String   ' Na Tabela este campo é do tipo string
Set rst = CurrentDb.OpenRecordset("SELECT TOP 2 Acomp.Aco_Dt_Inicio FROM Tbl_Acompanhamento AS Acomp INNER JOIN Tbl_Manutencao ON Acomp.Man_ID = Tbl_.Man_ID WHERE [Acomp].[Man_ID]=" & Man_ID_Relatorio & " ORDER BY Acomp.ID_Acomp")
rst.MoveNext
DtPrimeiroEvento = rst!Aco_Dt_Inicio

Usei o rst.MoveNext ao inves de rst.MoveFirst e fiz os teste e funcionou perfeitamente.

Obrigado !

resolvido

Você testou com o MoveFirst tambem? Acredito que nesse caso ele é mais garantido porque vai direto para o primeiro registro. Como o ORDER BY está classificando do menor para o maior, e você quer o menor dos dois, o primeiro registro é o pretendido. Com o MoveNext está funcionando porque ao abrir o Recordset ainda não foi selecionado o primeiro registro. Se por algum motivo esse primeiro registro tiver sido selecionado, o foco moverá para o próximo e aí vai ficar errado.

É só uma dica que pode ser útil em alguns casos.