Tenho um project ( em Visual Basic 5) que utiliza um banco de dados mdb com três tabelas. As rotinas abaixo estão em um form baseado na tabela <CadastroClientes> que é acessada no evento <Load>.

Inserí a chamada da tabela <VendaClientes> para que, ao clicar nos botões <Anterior> ou <Próximo>, o usuário tenha a informação se o filme já recebeu alguma movimentação. Funciona corretamente.

Entretanto, preciso que, no caption do label11 apareça a data em que o filme foi devolvido (essa data consta do form <Vendas de Clientes>, que é baseado na tabela <VendaClientes>. O nome do campo que recebe a informação sobre a data de devolução no form <Vendas de Clientes> é: "DataDevolução". Se não houver a devolução, então entraria um texto "Filme não devolvido" no caption do label11.

Já tentei de tudo. A única coisa que consegui até agora foi o funcionamento da rotina que segue.

Alguém pode passar uma idéia?

Private Sub cmdAnterior_Click()

Set TBVendas = BancoDeDados.OpenRecordset("VendaClientes", dbOpenTable)

TBCadFilme.MovePrevious

If TBCadFilme.BOF = True Then

TBCadFilme.MoveNext

End If

AtualizaFormulario

TBVendas.Index = "CodFilme"

TBVendas.Seek "=", txtCodFilme

If TBVendas.NoMatch = False Then

Label11.Caption = "Consta movimento para esse filme."

Else

Label11.Caption = "Não consta movimento para esse filme."

End If

End Sub

Private Sub cmdProximo_Click()

Set TBVendas = BancoDeDados.OpenRecordset("VendaClientes", dbOpenTable)

TBCadFilme.MoveNext

If TBCadFilme.EOF = True Then

TBCadFilme.MovePrevious

End If

AtualizaFormulario

TBVendas.Index = "CodFilme"

TBVendas.Seek "=", txtCodFilme

If TBVendas.NoMatch = False Then

Label11.Caption = "Consta movimento para esse filme."

Else

Label11.Caption = "Não consta movimento para esse filme."

End If

End Sub