Olá Pessoal,

Gostaria de saber como faço para verificar todos os registro de uma tabela que tenham data de vencimento maior que a data do dia.E retornar uma resposta via mensagem dizendo quantos registros tem a data de vencimento mair que a data do dia!!!

Agradeço a colaboração de todos!!!

Abraços

Gleidson Subtil

Tente algo assim:

MsgBox "Existem " & DCount("Indice", "Tabela", "CampoData >= " & Format(Date, "mm/dd/yyyy"))

========================================================
Documente seu código. Use boas práticas de nomes. Padronize.


Cuius testiculos habes, habeas cardia et cerebellum - Terry Pratchett

Olá

Uma outra alternativa com select seria

  
Select campo1, campo2, campo3, campoN from tabela 
Where CampoData > Date;

OK

Bodero