[Resolvido]Alerta de Aniversariante

Bom dia,

Estou tentando implementar um alerta de aniversariante do dia...
A ideia é assim:

Comparar o dia do Colaborado com o dia Atual e O Mês do Colaborador com o mês atual

Já pensei em usar um for (percorrendo do 1º registro até a quantidade de registro na tabela Colaboradores),
mas não consegui fazer ir para o proximo registro. ele sempre verificava a Data do 1º registro.

Tentei usar o DLookup, mas não consegui separar o dia e o mes do colaborador.
O codigo abaixo nao funciona, mas é so uma ideia de como deveria ser...

N = DLookup("Nome", "TBL_Colaborador", "Day([Data_Nasc]) = #" & Day(Date) & "# And Month([Data_Nasc]) = #" & Month(Date) & "#")

Amigo Kleyton;

Vou só mostrar o caminho das pedras;

Dim x As Date
x = DLookup("[Data_Nasc]", "TBL_Colaborador", "[Nome]")
x = CDate(x)
If Day(x) = Day(Date) And Month(x) = Month(Date) Then
MsgBox "Parabens"
Else
MsgBox "erro"
End If

Deixa eu dar meu tiquinho de opnião tambem, eu adoro fazer isso, rsrsrs.
O interessante seria fazer um formulário em modo de fomulário contínuo ou folha de dados abrir junto ao bd, caso tenha aniversariantes naquele dia, e exibir uma lista com os felizardos do dia. Poderia se definir que or form abra de forma oculta e faça a pesquisa. Caso haja aniversariantes, ele é exibido, caso contrário, permanece oculto. Para empresas com grande número de funcionários, podem haver vários aniversriantes no dia.

Bela sugestão, tambem pensei em filtrar os aniversariantes numa consulta vinculada a um formulario.

Esse formulario só abria se o RecordCount fosse maior que zero >0

Existem mil maneiras de fazer nestum.

tem algm exemplo disso em accdb já? eu quero aprender a fazer isso tambem

Não tem, mas arranja-se já.

Exemplo 1:

http://dl.dropbox.com/u/771097/Aniversariantes.mdb

No caso de mais que (1) um a fazer no mesmo dia;

http://dl.dropbox.com/u/771097/Aniversariantes_II.mdb

Tambem abre em accbd

ficou bem legal mesmo mas e no caso de mais de um aniversariante no mesmo dia como disse o amigo aí em cima? por exemplo o diretor de uma empresa que tem mais de 200 funionários poderia querer dar os parabens a todos os funcionários que fizer aniversário no mesmo dia...
noob só dá trabalho né? rsrsrs

Você não viu com atenção o ultimo exemplo, né ?

Veja também, este com Listbox auto-redimencionável caso exista mais de um colaborador a fazer anos no mesmo dia.

http://dl.dropbox.com/u/771097/Aniversariantes_III.mdb

Desculpe amigo é porque estava um 2007 e o outro 2000 aí pensei que fosse o mesmo esquema com diferença só de versão do access, rsrsrs. grande falha minha.
como que a gente faz para aprender isso tudo que você sabe? creio que só em foruns e no google isso não seja possível. que livros devo ler para aprender tudo sobre access?

Valeu, pelas dicas e exemplos.

Ainda nao testei porque a empresa mudou de Local hoje, e nem foi montado meu pc ainda!!

amanha depois de arrumar as coisas... mandou um retorno se funcionou aqui!!

Dei uma testada no exemplo aqui (testada do verbo testar e não de bater a testa, rsrsrs) e funcionou bacaninha. Estou até pensando em unir ele com aquele exemplo da agenda com múltiplos alarmes, quer dizer, fazer um form abrir junto ao bd mostrando os compromissos do dia, acho que vai ficar legals, rsrsrs.

Como faço para usar este formulário em relação a vários horários em agendamentos, por exemplo eu tenho várias pesquisas para fazer com intervalos entre elas de 30 minutos, como faço para no final desse período eu ser avisada.
Minha tabela está assim
Risco = Sim/Não
Hora Reclassificação, que seria hora atual mais 30 minutos em caso de amarelo
Vermelho Sim/Nao
Amarelo Sim/Ñão
Azul Sim/Não
Verde Sim/Não

Estou tentando ao clicar amarelo, abrir formulário alarme e aí digito a hora mas não está gerando no subformulário

Não deu para entender muito bem o que você precisa. Você tem um campo e quer que de 30 em 30 minutos soa um alarme refente ao valor desse campo? Se puder exemplificar com os nomes de subforms e campos envolvidos...

Bom dia a todos,

Apliquei o exemplo disponibilizado: "Aniversariantes_III" e funcionou na perfeição, contudo preciso de um exemplo semelhante mas que me devolva, não os aniversário do dia, mas os aniversários da semana...

Será que me podem ajudar?

Cumprimentos,
Ana Barbosa

Veja a adaptação na consulta;

http://dl.dropbox.com/u/771097/Aniversariantes_IV.rar

O criterio foi alterado para:

Between Date()-Weekday(Date())+1 And Date()-Weekday(Date();0)+5

Ou seja mostra somente de Segunda a Sexta

Se quiser de Segunda a Domingo, altere a ultima instrução de And Date()-Weekday(Date();0)+5 para And Date()-Weekday(Date();0)+7

Caro João paulo, aproveitando a deixa.. como colocar para abrir o form de aviso apenas se contiver valores na data...

Exemplo:
Tendo aniversariante hoje, abre form
em não o tendo, nao o mostra..

Grato,

Amigo ViP das dúvidas
rsrs

Veja o simples;

Altere as datas na tabela para o Mês 4 e teste...

http://dl.dropbox.com/u/771097/Aniversariantes_V.rar

Teria como inserir o número do telefone ou o email do aniversariante junto com a mensagem?

Grato

Jardel

Boas Jardel, seja bem vindo ao Fórum!


Adicione os campos na tabela, depois os isira na consulta, no módulo:

Public Sub AlertaAniversariantes()
'By JPaulo ® Maximo Access
    Dim rst As DAO.Recordset
    Dim strData As Date
    Dim strConcaneta As String
     
    strData = Date

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM qryAniversarios")
    If rst.EOF Then
        Exit Sub
    Else
        strConcaneta = ""
        Do Until rst.EOF
            strConcaneta = strConcaneta & vbCrLf & rst!Nome & " - " & rst!Email & " - " & rst!CpTel
            rst.MoveNext
        Loop
        MsgBox "Hoje estão de Parabéns:" & vbCrLf & strConcaneta, vbInformation
    End If
End Sub

Cumprimentos

Boas, agora ficou tudo justo!

Obrigado pela recepção ao fórum, espero colaborar também e desde já coloco-me a disposição.

Grande e fraternal abraço

Jardel

O Fórum agradece o Retorno.

Sucesso!

Estou com esse erro:

ERRO EM TEMPO DE EXECUÇÃO "6"
ESTOURO


como resolver

Aponta para que linha do VBA? Sempre que for reportar um erro, coloque todos os detalhes sobre o mesmo para facilitar no entendimento.

Mas estouro geralmente indica um número maior do que o que um tipo de variável possa suportar. Por exemplo, uma variável numérica declarada como Double suporta um número muito maior do que uma declarada como Integer.

Se não conseguir resolver come essa dica, poste o completo, indicando a linha para onde o erro aponta.

Private Sub Form_Load()
Dim ContaLinhasNaListbox As Integer
Dim AcertaAlturaDaListBox As Integer

If Me.lstAlerta.ListCount = 0 Then
MsgBox "Não existem aniversariantes esta semana....", vbCritical
DoCmd.CancelEvent
DoCmd.Close acForm, "frmaniversariantes"
Else
ContaLinhasNaListbox = Me.lstAlerta.ListCount
AcertaAlturaDaListBox = 317
Me.lstAlerta.Height = ContaLinhasNaListbox * AcertaAlturaDaListBox
Me.lstAlerta.Requery
End If
End Sub

é nessa linha que esta de vermelho que esta dando o erro, é que eu tenho mais de 2000 mil pessoas cadastradas no meu bd, tem como resolver?
Obrigado

Talvez seja o fato de estar expandindo a altura para alem do suportado. Você precisa condicionar para que seja expandida a altura apenas quando o número de linhas for de no máximo o suficiente para a listbox não ultrapassar o limite do rodapé do formulário. Exemplo:

Código:

If Me.NomeListbox.ListCount < 15 Then
    Me.NomeListbox.Height = Me.NomeListbox.ListCount * 317
Else
    Me.NomeListbox.Height = 15 * 317
End If

faço essa mudança que voce postou?

vou verificar.

onde coloco esse codigo?

Coloque no lugar da linha que está em vermelho, mudando NomeDaListbox para o nome real dela. Para usar da forma que passei, pode excluir as duas linhas acima da linha em vermelho tambem, pois essas variáveis não estarão sendo usadas. Assim sendo, poderá excluir tambem a segunda e a terceira linha do código, as que começam com Dim, aonde essas variáveis que não serão mais usadas estão sendo declaradas.

Oi amigo eu coloquei assim:

Private Sub Form_Load()
Dim ContaLinhasNaListbox As Integer
Dim AcertaAlturaDaListBox As Integer

If Me.lstAlerta.ListCount = 0 Then
MsgBox "Não existem aniversariantes esta semana....", vbCritical
DoCmd.CancelEvent
DoCmd.Close acForm, "frmaniversariantes"
Else
ContaLinhasNaListbox = Me.lstAlerta.ListCount
AcertaAlturaDaListBox = 317
Me.lstAlerta.Height = ContaLinhasNaListbox * AcertaAlturaDaListBox
Me.lstAlerta.Requery
End If

If Me.lstAlerta.ListCount < 15 Then
Me.lstAlerta.Height = Me.lstAlerta.ListCount * 317
Else
Me.lstAlerta.Height = 15 * 317
End If
End Sub

esta certo?
Ainda fica dando erro de estouro.

fIZ AS MUDANÇAS PAROU DE DA A MENSAGEM, MAIS NÃO APARECE A PALAVRA PARABÉNS E IDADE, SÓ APARECE NO MODO DESING, MAIS TUDO BEM, PARA MIM ESTA BOM.
Obrigado,

Piloto:
como puxaria os e-mail das pessoas ja da tabela criada com campo E-MAIL

Você não retirou as linhas que eu falei que podia retirar. Veja:

Código:

Private Sub Form_Load()

If Me.lstAlerta.ListCount = 0 Then
    MsgBox "Não existem aniversariantes esta semana....", vbCritical
    DoCmd.CancelEvent
    DoCmd.Close acForm, "frmaniversariantes"
Else

    Me.lstAlerta.Requery

    If Me.lstAlerta.ListCount < 15 Then
        Me.lstAlerta.Height = Me.lstAlerta.ListCount * 317
    Else
        Me.lstAlerta.Height = 15 * 317
    End If

End Sub

Boa tarde!!
Galera, importei todos os dados do exemplo II para meu bd, e criei uma consulta atualização para atualizar a tabela tbmAniversários, porém ao abrir o meu bd o formulario com os aniversariantes do dia não aparece, já fiz vários testes e nada acontece. o que pode estar acontecendo?

Ola, eu queria isso tb, fiz a pesquisa aqui no forum e achie, mas quando fui baixar os arquivos, eles nao existem mais.

Grato

Veja aqui;

https://www.maximoaccess.com/t795-alerta-de-aniversariantes-envia-email-automatico#4838