[Resolvido]Lembrete com dias de antecedência

Olá novamente a todos.

O meu problema desta vez é o seguinte:

- Tenho um formulário que avisa quem hoje faz anos, no entanto o que eu necessitava era que fosse avisado com alguns dias de antecedência que o SR.º/SRª ... iria fazer anos daqui por 10 dias, depois um outro aviso quando faltavam 5 dias e depois no próprio dia.

Tem como fazer isso?

Não sou intelectual em access nem em vba portanto, tentem na melhor das formas ajudar o mais explicado possivel. Obrigado pela vossa compreensão e até breve.

Amigo, seria interessante então você postar o código que faz esas busca na tabela ou então postar parte do banco de dados, com a tabela e o form e eventual consulta resposáveis por checar a data de nascimento, em site público para que os experts do forum possam analisar.

Em vez de comparar a data actual com a data de aniversário, utilile a função DateAdd e compare também com a data de aniversário - 10 dias e data de aniversário - 5 dias

Não compreendi muito bem o que quis dizer??

Onde compara a data actual com a data de aniversário (date=DataAniversairo) coloque DataAniversario=DateAdd("d",-10,Date) e DataAniversario=DateAdd("d",-5,Date)

Desculpem só agora responder,pois não tenho tido muito tempo de sobra.

Bom continuando...
eu não consigo implementar o que me diz. Peço desculpa.

Aí a dúvida é saber como comparar com a data actual.
Publique a bd, por exemplo, em www.esnips.com

http://www.esnips.com/doc/2ef75829-d64d-4c16-a3ad-9ca833c2fd1d/Aniversariantesexemplo

veja e diga qualquer coisa depois.

Obrigado e desculpe a demora

Não consigo aceder à hiperligação

Experimente este link.

Obrigado e peço desde já desculpa pelo inconveniente.

http://rapidshare.com/files/369291099/Aniversariantesexemplo.accdb.html

Na consulta qryAlerta, em modo SQL, coloque o seguinte:
SELECT tblAniversarios.ID, tblAniversarios.TNome, tblAniversarios.TDataNasc, Format([TDataNasc],"d") AS DiaRef, Format([TDataNasc],"m") AS MesRef, MostraIdade([TDataNasc]) AS SuaIdade
FROM tblAniversarios WHERE Format([TDataNasc],"d-m")=Format(Date(),"d-m") or Format(DateAdd('d',-10,[TDataNasc]),"d-m")=Format(Date(),"d-m") or Format(DateAdd('d',-5,[TDataNasc]),"d-m")=Format(Date(),"d-m")

Peço desculpa mais uma vez mas não dá

Não produz nenhuma alteração.
O que estará errado?

Testei e deu.
Que data coloca para testar?

Coloco o dia 2 do 04 de 1983

Hoje são 29. Faltam 2 dias para i fim do mês, mais 2 dias até ao dia 2 de Abril, dá 4 dias.
Experimente com dia 3.

Muito obrigado pelo esforço. Já consegui. Obrigado pela preciosa ajuda que me deu. O problema era mesmo realmente o dia. Até breve.

Boa Tarde
Gostaria de colocar uma questão em relação a este tópico. Apesar de o ter lido e ter tentado adaptar a situação ao meu exemplo, mas como não percebo nada de módulos nem de VBA....não consegui.

Tenho uma pequena base de dados de Clientes, e queria que me alerta-se com 15 dias de antecedência e no próprio dia do aniversário. Alguém me pode ajudar?


Aqui vai o link com o ficheiro:

http://www.esnips.com/displayimage.php?album=4634700&pid=33609431&uid=1129682#top_display_media


Abraço
Carlos Espada

Boa noite,

Coloque em formato Access 2003

Aqui vai....

Crie um módulo, designe-o por AutoExec e cole o código

Sub MostraAniversarios()
'criada por Alexandre Neves
'em 2012-02-17
'para Espada
'do fórum MaximoAccess
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Nome, Apelido FROM [Inserir Cliente] WHERE Format(DateAdd('d',15,[Data de nascimento]),'dd-mm')=Format(Date(),'dd-mm');")
Do While Not Rst.EOF
MsgBox Rst("Nome") & " " & Rst("Apelido") & " vai fazer anos daqui a 15 dias."
Rst.MoveNext
Loop
Set Rst = CurrentDb.OpenRecordset("SELECT Nome, Apelido FROM [Inserir Cliente] WHERE Format(Date(),'dd-mm')=Format([Data de nascimento],'dd-mm');")
Do While Not Rst.EOF
MsgBox Rst("Nome") & " " & Rst("Apelido") & " faz anos hoje."
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Boa tarde
Criei o módulo assim como me aconselhou, mas deve faltar alguma passo a dar, pois alterei a data de um aniversário para hoje (para testar) e ele não alertou o aniversário...


Abraço e obrigado

Boa tarde,

esqueci-me de referir para criar uma macro (AutoExec) para executar o código. Quando existir uma macro com o nome Autoexec, ela executar-se-á ao abrir da bd

Boa Noite
Desde já agradeço o esforço.
Apesar de não perceber nada de macros, nem VB, mas por associação de ideias consegui criar a respectiva macro. Contudo ao abrir a BD ela não alerta na mesma. Apenas o faz se entrar na macro e fizer "Run". Porque será?


Abraço e Obrigado

Reparei também, que ela não alerta para quanto o aniversário é daqui a 15 dias....

Abraço e obrigado

Na macro coloque ExecutarCódigo na Acção e coloque AutoExec () no nome da função
Testei com 15 de antecedência e funcionou. Confira e, se não funcionar, disponibilize a bd

Aqui vai.... pois não estou a conseguir resolver...


Abraço e Obrigado

Agora funciona
http://dl.dropbox.com/u/24017093/Keiko%20-%20Final%202003.rar

Está tudo Ok.
Quero agradecer o esforço mais uma vez, pois sei que nem sempre é fácil ajudar pessoas que não teem tanto conhecimento das coisas.
Através deste ultimo exemplo consegui perceber onde estava a errar....

Forte Abraço e Obrigado

Espada

Colocado Resolvido

Não consigo abrir

Boa noite,
A bd há muito que foi eliminada.
Terá de apresentar a sua dúvida.

A minha duvidá é:

Queria que ao abrir um form aparecesse um aviso diário até ao dia do evento com inicio a 30 dias de antecedência da data marcada

tipo tenho vários veiculos registado numa bd e ao abrir o form veículos fosse buscar a data de matricula e me dissesse "Aviso viatura L-123 faltam 30 dias para revisão" no dia seguinte "Aviso viatura L-123 faltam 29 dias para revisão" no dia anterior "Aviso viatura L-123 revisão amanhã" e no proprio dia "Aviso viatura L-123 revisão"

gostava também de colocar um botão ou um visto para desativar apenas o aviso desse veículo

No ano seguinte ou na proxima data voltasse a aparecer o aviso atomáticamente sem ter de retirar o visto referido.

Desde já agradeco se puder ajudar ou se ainda tiver a bd em arquivo.

Boa noite amigos,

Será que alguém tem o arquivo com essa questão da data resolvido?
O link do dropbox está inativo...

Estou com o mesmo problema e preciso da solução, pois no meu caso também não está funcionando para mostrar os aniversariantes com 15 dias de antecedência...


Obrigado!

Boa tarde,
Lembrem-se de marcar Resolvido, quando fôr o caso, e desmarcar (marcar novamente) Resolvido quando pretender manter o tema em aberto

Sobre as dúvidas, e porque o exemplo já foi eliminado, disponibilizem a vossa bd que sustenta a dúvida