Filtro do filtro...

Filme nº 050.

Data empréstimo (campo: Saída) Data devolução (campo Entrada)

Saída 12/12/2004 Retorno 14/12/2004

Saída 17/12/2004 Retorno 18/12/2004

Saída 24/12/2004 (ainda não devolvido)

Os filmes estão cadastrados em uma tabela (CadFilmes), e a movimentação (acima) numa outra tabela (TBVendas). Quando consulto o filme 050 na tabela de filmes, seus dados são exibidos. Todavia, a rotina abaixo não aponta para o último registro desse mesmo filme, e sim para o primeiro registro da tabela de movimentação, que é de outro filme.

DIM sql as string, criterio as string

Criterio = InputBox ("Digite o código do filme:", vbInformation, "Pesquisa")

If Criterio = "" then Exit Sub

Sql = "Select * from TBVendas where CódigoFilme like" & criterio & "Order by Saída"

If TBVendas("Saída") > "" And TBVendas("Entrada") = "" Then

Msgbox "Filme alugado"

Else

Msgbox "Filme na prateleira"

End If

‘Ao ser executada, a rotina acima não indica que o filme 050 está emprestado e sim que está disponível (pois o primeiro movimento registrado na tabela TBVendas foi de um filme que foi retirado e já devolvido).

Como devo construir um filtro que "filtre" apenas a movimentação do filme já localizado (filme 050), indicando que ele (ainda) está emprestado?

Grato.