[Resolvido]Como retornar mensagem de aviso de data de vencimento ao abrir formulário principal

Bom dia a todos...

Primeiramente gostaria de esclarecer aos amigos que sou iniciante no Access, e tenho lido bastante sobre o mesmo afim de, me familiarizar. Já venho por um bom tempo a criar um projeto que esta até então satisfazendo minhas expectativas, mas não estou conseguindo concluir por um motivo apenas; e este é:

Uso a Vs. 2007 do Access c/ SPK 3, rodando no Win7 ultimate; tenho um projeto na qual contem uma Tabela e um Formulário que preencho com dados de contas a pagar como: Água, luz, telefone, aluguel, etc... nos mesmos, contem três campos, que tenho como principais, e são estes:  “Data atual”( =Data() ),  “Data de Vencimento”  e “Pagamento Efetuado” (do tipo Sim/Não), e no evento “No atual“ do formulário em questão coloquei um procedimento (vba) que em toda as vezes que abro o formulário ele me retorna uma mensagem dizendo que faltam X dias para o vencimento da conta cadastrada ou X dias de vencido se for o caso, isso quando o campo do tipo Sim/Não esta desmarcado,  e a mesma mensagem é apresentada quando navego entre os demais registros, até ai tudo funciona bem, mas o que eu quero, é que quando eu abrir o Banco e ele me apresentar o formulário principal, ele já faça uma varredura na tabela que contem os campos citados acima e me retorne a mensagem dizendo que existem datas vencendo ou vencidas antes mesmo de eu abrir o formulário da tabela em questão.

Alguém pode me ajudar, por favor! Se possível de forma clara e detalhada para que eu aprenda.

Desde já,
Grato...

Wellington Corrêa  –  Piúma - ES

Olá boa tarde!

se possível disponibilizar o projeto para melhor atende-lo.

Boa tarde Danilo.

desculpe, não será possível ceder o projeto, mas tenho certeza que no meio de tantas feras do Access como tem aqui no site será fácil resolver o meu problema, vou explicar mais resumidamente pra ver se ajuda o teu entendimento. e o seguinte: tenho uma tabela cujo nome é "PAGAMENTOS DE CONTAS", nele contem alguns campos que armazeno oque preciso, dentre eles os principais são: "DATA DE VENCIMENTO" no formato data/hora, e "PAGAMENTO EFETUADO" do tipo Sim/Não.

Preciso então de um código que eu possa inserir no evento ao abrir do meu formulário principal que leia todos os registro dessa tabela e no caso dele encontrar em algum registro o campo "PAGAMENTO EFETUADO" desmarcado, compara com o campo "DATA DE VENCIMENTO" se estiver faltando 2 dias para vencer ou estiver atrasado, ele me mostre uma MsgBox dizendo por exemplo: " existem pagamentos de contas a serem efetuados, verifique! "

é isso que eu preciso, para mim é difícil mas para vocês, não é nada, tenho certeza disso, tava dando uma olhada nos tópicos e vi que aqui vou resolver meu problema

Se puder me ajudar sou grato, se não puder, sou grato da mesma forma!

fico aguardo...

No Evento “Ao abrir" do meu formulário principal, escrevi esse código que peguei num exemplo de um site, mas nada acontece quando abro o formulario, nem erro se quer ele dá

Dim iVerificaRegistros As Integer
iVerificaRegistros = Nz(DCount("PAGAMENTO EFETUADO", "PAGAMENTO DE CONTAS", "PAGAMENTO EFETUADO Like '0'"), 0)
If iVerificaRegistros > 0 Then
MsgBox "Exite(m) Registro(s) com pendência de manutenção no formulário CONTAS A PAGAR. Verifique!", vbOKOnly, "Alerta"
Else
End If


tem algo de errado neste exemplo que testei?

fiquem a vontade para elaborar outro se for o caso, contanto que fique dentro do que pedi na mensagem anterior, lembrando que o exemplo acima so peguei para testar, iria tentar adapta-lo depois se ele funcionasse.

Olá amigo boa noite, tem skype?

Bom dia,

Teste codigo abaixo no evento "ao abrir" do seu formulário.

Dim iVerificaRegistros As Integer
Dim idataregistos As Integer
iVerificaRegistros = DCount("[PAGAMENTO EFETUADO]", "PAGAMENTOS DE CONTAS", "[PAGAMENTO EFETUADO] =0")
idataregistos = Day((Date) + 2) - Day(DMax("[Data de vencimento]", "PAGAMENTOS DE CONTAS")) < 2
If iVerificaRegistros > 0 And idataregistos < 2 Then
MsgBox "Exite(m) Registro(s) " & iVerificaRegistros & " com pendência de manutenção no formulário CONTAS A PAGAR. Verifique!", vbOKOnly, "Alerta"
Else
End If

Abraço...

Ola Roberto,

funcionou certinho, valeu!!!
mas quero aproveitar a oportunidade e te perguntar, é o seguinte:

tem como você fazer com que esse código, me de o aviso e também abra uma consulta já pronta na qual ele me mostre todos os registros que estão desmarcados  ou que estão dentro dos requisitos dos critérios que coloquei no código do formulário contas a pagar? mostrando só os campos principais,  "CÓDIGO","DATA DE VENCIMENTO" e "PAGAMENTO EFETUADO" de forma que se eu clicar sobre o código por exemplo, ele me direcione para o meu formulário no registro que eu cliquei....  

minha tabela e formulario são essas que seguem em anexo, talvez te ajude mais..... to mandando só um banco de exemplo mais a tabela e formulário e a mesma que ta aqui no meu banco oficial

Boa noite a todos,

Há alguém mais que pode me ajudar no que eu preciso?

Olá boa tarde!

segue baixo a solução, espero que ajude.

abraços

Muito bom, perfeito!!

assumiu completamente minhas expectativas, eu esperava bem menos do que isso, mas voce me deu mais!!

Tenho uma divida com voce, Muito Obrigado mesmo, que DEUS abençoe sua vida e te acrescente cada dia mais e mais inteligencia e boa vontade de abençoar os outros, voce é uma benção, pode acreditar.....Valeu!!!

Agradeço tambem a todos que participaram de alguma forma.

Boa noite a todos e um ótimo final de semana...

Boa tarde Danilo Reis. Como faço, então, para adaptar esse código para um banco de contratos que me avise com 5 dias de antecedência que o contrato está para vencer?

Olá bom dia!

se possível disponibilizar o projeto para melhor atende-lo.

Oi Danilo. Infelizmente não será possível enviar todo o projeito, mas estou te enviando um exemplo da parte que se refere ao contrato, porque todo o projeto é muito grande. Mas, basicamente é o seguinte: Uma tabela de Contratos com data de início e Data de vencimento do contrato. O que eu gostaria é que quando eu abrisse o formulário principal fosse gerado um aviso, com 5 dias de antecedência, que existem  contratos a vencer e que, ao mesmo tempo, me reportasse para uma consulta que trás a relação de contratos a vencer, indicando quantos dias faltam para o vencimento de cada um.
Caro Danilo, ficarei muito grato com a sua ajuda. Estou lutando com isso a dias e não fui para lugar nenhum

Oi Danilo. Infelizmente não será possível enviar todo o projeito, mas estou te enviando um exemplo da parte que se refere ao contrato, porque todo o projeto é muito grande. Mas, basicamente é o seguinte: Uma tabela de Contratos com data de início e Data de vencimento do contrato. O que eu gostaria é que quando eu abrisse o formulário principal fosse gerado um aviso, com 5 dias de antecedência, que existem  contratos a vencer e que, ao mesmo tempo, me reportasse para uma consulta que trás a relação de contratos a vencer, indicando quantos dias faltam para o vencimento de cada um.
Caro Danilo, ficarei muito grato com a sua ajuda. Estou lutando com isso a dias e não fui para lugar nenhum

Bom dia meu amigo, segue projeto, com a condição solicitada!

Sucesso!

Att

Muito Obrigado Danilo. Foi de grande ajuda. Muito obrigado mesmo

Olá Danilo, bom dia!

Muito bom teus exemplos, implementei o "AVISO VENCIMENTO" na minha aplicação, porém, no formulário "frm_duplicatas", o meu não está ficando com fundo vermelho nos que estão vencidos. Como faço para ficar vermelho somente os que estão vencidos?

Já te agradeço desde já sua atenção, independente de solução.

Abs
Gilbert