Veja Galera

Eu queria que o dia de vencimento fosse comparado com o Combo1 e o combo3 filtrasse apenas os vencimentos quitados ou inadimplentes que corresponde a SituaçãoMatricula do banco de dados... Só que meu código funciona legal sem o Like Combo3.text, só que dai lista os Quitados e os Inadimplentes, eu queria colocar esse filtro... não sei se me expressei legal...alguém pode ajudar?

 

Set TBL = Banco.OpenRecordset("SELECT * FROM Cadastro WHERE VencimentoDia,SituacaoMatricula = '" & UCase$(Combo1.Text) & "'" Like Combo3.Text, dbOpenSnapshot)

 

Aquele Abraço

Lincoln

Estou supondo que SituacaoMatricula seja String (pelo que voce colocou acima)

 

Se VencimentoDia for Numerico (o mais logico):

 

SELECT * FROM Cadastro WHERE VencimentoDia = " & Combo1.Text & " AND SituacaoMatricula LIKE '" & Combo3.Text & "'"

 

Se VencimentoDia for String:

 

SELECT * FROM Cadastro WHERE VencimentoDia LIKE '" & Combo1.Text & "' AND SituacaoMatricula LIKE '" & Combo3.Text & "'"

 

 

Mas se SituacaoMatricula for Numero troca o LIKE por um = e tira os apostrofes...

 

Espero ter ajudado... se não for isso, posta ai....

 

Elieser Topassi