Oi Pessoal to precisando da ajuda de vcs de novo, to fazendo uma rotina em Vb6, Ado , access, onde eu tenho que verificar um campo No Formulario (tipo Texto no banco) , chamado data_aluguel, esse campo armazena um valor Numerico, esse Numero representa o Dia de cada Mes que o Cliente paga Uma conta, ou seja se no campo data_aluguel, estiver o numero 03, entao significa que todo dia 03 de cada mes ele vai pagar uma parcela de uma conta...essa rotina informa atraves de uma msgBox que tem 1 registro que esta vencendo hoje por exemplo, imaginando que no campo data_aluguel esta o Numero 04.....ate ae tudo bem.....oque eu queria fazer é tipo um filtro com esss registros que vencem No dia que é aberto o formulario....se existe 3 registros no meu formulario que vencem dia 04 e existem 2 que ja venceram , na hora que eu abrir o formualrio só ebir os registros que estao vencendo no dia, sacaram? eu nao consegui fazer esse filtro eu só consegui fazer uma instruçao que Informa que ha registros que estao vencendo nakele dia ....eu faço assim

 

Function Verifica()

'VERIFICA O CAMPO DATA (DATA_ALUGUEL) PRA VER
'SE O DIA ATUAL
'É DIA DE PAGAMENTO DO ALUGUEL.

Dim Contas As String
Dim Rs2 As New ADODB.Recordset

Set Rs2 = New ADODB.Recordset
Rs2.Open "SELECT codigo FROM Tbl_Casas WHERE Int(data_aluguel) = " & Day(Date), cnBd, adOpenKeyset, adLockBatchOptimistic

Do While Not Rs2.EOF
Contas = Contas & vbCrLf & Rs2("Codigo")
Rs2.MoveNext

Loop
If Contas <> "" Then
MsgBox "Hoje é Dia de Vencimento de Aluguel do(s) Codigos(s):" & Contas, vbInformation, "Aviso de Vencimento de Aluguel!"
End If

Rs2.Close
Set Rs2 = Nothing

End Function

e no form_Load eu carrego o Nome dessa Function pra na hora que eu abrir o Formualrio e JA verificar se existem Contas vencendo no Dia........alguem tem alguma ideia ???????? desde ja obrigado

 

 

Korn, boa tarde..

 

      Não entendi bem a sua duvida, mas vamos lá.

 

      Se quiser saber quantos registros tem em um dia:

 

    Rs2.Open "SELECT Count(*) as quantidade FROM Tbl_Casas WHERE Int(data_aluguel) = " & Day(Date)

 

    

      Se quiser saber quantos por dia:

 

  Rs2.Open "SELECT data_aluguel as dia, Count(data_aluguel) as quantidade FROM Tbl_Casas WHERE Int(data_aluguel) = " & Day(Date) & " Group by data_aluguel"

                                          

 

           

   

Oi valew por postar , quantos registros tem POr dia eu sei fazer, dessa forma que eu postei ae em cima funciona de boa,  oque eu nao sei é pegar esses registros e separa-los dos outros que nao estao vencendo no dia, entende.

Korn, boa tarde..

 

       Estou tendo dificuldade para entender seu problema, senão vejamos.

 

       Se voce aplica um condição ao instrução sql (where campo = parametro) só trara os registros que voce filtrou, assim entendo que só venham os registro com vencimento do dia.

       Se aplicou a função count() não preciso o loop de leitura para saber quantos, pois haverá apenas um registro no recordset.

 

 

      Se voce quiser separar vencido de pagos (não se é este o caso) acredito que exista um campo que registre isto, basta aplicar mais filtros.

 

     Senão é isto, não entendi seu problema e desculpe-me. 

    

vc tá usando o ado mas o sql vai dar na mesma...

aki vai em dao

cria uma variavel no declarations

DIM LISTA AS VARIANT

 

agora no seu procedure...

 

ssql= "select * from casas where Int(data_aluguel) = " & Day(Date)

set tabela = banco.openrecordset (ssql,dbopensnapshot)

do until tabela.eof

tabela.movenext

loop

n=tabela.recordcount 'PEGOU A QTDE DE REGISTROS

tabela.close

'REDIMENSIONA A VARIAVEL COM A QTDE DE REGISTROS

 

redim LISTA(n)

'Agora carrega os dados...

Gelson Porto

é simples Imgina que vc tem no seu Formulario 1 campo onde vc marca um dia do mes nele vamo supor cara que vc tenha 10 registros que nesse campo esta marcado o Numero 10.....ou seja o dia 0, entao no dia 10 que vc abrir o formulario, vai aparecer uma msgbox dizendo vc tem 10 registros que vencem Hoje.......e ae vai abrir o formulario , mas dentro do formulario vao ter registros que esta marcado , dia 20, 12, 26...e era só pra aparecer os do Dia 10, que armazeno no Campo txtdata