Olá Pessoal,

 

Estou tentando fazer uma consulta assim:

Tenho a Tabela primeira

E tenho os Campos vencimentos              Data

E o campo Pago                                    Sim/Não

 

ai eu preciso que ele me retorne todos registros < "A data de hoje" e que o compo pago seja não "0"

 

Se vcs puderem me ajudar Ficarei mto grato

Roberto Pierre Rigaud

Existe mais de uma maneira de fazer esta consulta.

1-vc pode fazer a consulta direto no SQL "SELECT * FROM tab WHERE camodata < #datahj#"

2-vc pode buscar tos que não estão pagos e criticar a data com DATEDIFF usando loop no RS.

3-vc pode utilizar a função DATEDIFF dentro do SQL se estiver usando Access. eu não gosto muito mas tem gente q usa.

 

Espero ter ajudado!

Entao fabio a minha consulta esta assim:

 

Set minhaCons = abrebanco2.OpenRecordset("SELECT cadastro.pedido, " _
        & "cadastro.cliente, cadastro.valor, cadastro.qtosPgto, cadastro.p, cadastro.pa, cadastro.pb, cadastro.pc, cadastro.pd, cadastro.vencimento, cadastro.va, cadastro.vb, cadastro.vc, cadastro.vd, cadastro.valortotal, cadastro.vaa, cadastro.vab, cadastro.vac, cadastro.vad, cadastro.notafiscal, cadastro.porcentagemNota, cadastro.valordanota, cadastro.formadepgtonota, cadastro.valorNotaFiscal, cadastro.formadepgtodiferença, cadastro.valorDiferença, cadastro.obs, cadastro.bchkP, cadastro.bchkPA, cadastro.bchkPb, cadastro.bchkPc, cadastro.bchkPd from cadastro " _
        & "Where(cadastro.vencimento < VarData))")

            Aki eu nao sei como especificar.........

 

Entendeu.....estou comecando agora ainda tenho muitas duvidas

 

A chamada para datas é a seguinte:

(...)

sSql = "SELECT * FROM Tabela WHERE Data <#" & Format(VarData,"mm,dd,yyyy") & "#"

Agora, é só adaptar ao seu código..

como eu posso adaptar este código

 

"SELECT * FROM Tabela WHERE Data <#" & Format(VarData,"mm/dd/yyyy") & "#"

 

dentro desse

 

Set minhaCons = abrebanco2.OpenRecordset("SELECT cadastro.pedido, " _
        & "cadastro.cliente, cadastro.valor, cadastro.qtosPgto, cadastro.p, cadastro.pa, cadastro.pb, cadastro.pc, cadastro.pd, cadastro.vencimento, cadastro.va, cadastro.vb, cadastro.vc, cadastro.vd, cadastro.valortotal, cadastro.vaa, cadastro.vab, cadastro.vac, cadastro.vad, cadastro.notafiscal, cadastro.porcentagemNota, cadastro.valordanota, cadastro.formadepgtonota, cadastro.valorNotaFiscal, cadastro.formadepgtodiferença, cadastro.valorDiferença, cadastro.obs, cadastro.bchkP, cadastro.bchkPA, cadastro.bchkPb, cadastro.bchkPc, cadastro.bchkPd from cadastro " _
        & "Where(cadastro.vencimento < VarData))")

 

 

o campo vencimento no MDB esta com o formato Data .... Esta correto???

a minha Variavel VarData tem que estar assim?

Dim VarData As Date

 

Quem Puder me ajudar eu ficarei mto grato

Roberto Pierre Rigaud