Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

Fernando Veit

programa de Access tipo lembrete de aniversário

Mensagem Recomendada

alguém já fez algum programa em access que quando liga o computador e carrega o Windows abre um programa em access e indica quem está de aniversário no dia?????

Compartilhar este post


Link para o post
Compartilhar em outros sites

Eu tenho um de corretagem imobiliária e gestão de loteamentos que faz isso... todos os dias ao abrir o sistema ele avisa quem está fazendo aniversário.

Ah... se quiser, o programa também pode enviar automaticamente e-mails de felicitações.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Prezado bobylite

Cries uma consulta com a tabela onde estão os campos contendo o nome e a data de nascimento.

Na grade da consulta, na linha ''critério'' do campo correspondente à data de nascimento, digites:

= Date

No form coloques uma caixa de listagem cuja origem seja esta consulta.

No menu Ferramentas, clique em Inicializar e selecione este form para ser o inicial.

Cries um atalho do teu BD e arraste-o para a pasta Iniciar, do menu Iniciar do Windows.

Está feito!

Dicas:

- Se quiseres que apareça só o form na tela, clique com a tecla direita do mouse neste atalho e, em propriedades, selecione ''minimizar''.

- Tu podes optar por criar um atalho diretamente do teu form, clicando com a tecla direita do mouse, neste objeto, na lista de objetos que aparece na janela banco de dados e selecionando ''criar atalho''.

Abraços,


J. Siebiger

Compartilhar este post


Link para o post
Compartilhar em outros sites

Correções:

Na linha Campo: Dia: PartData("d";[TeuCampoDataNasc])

Na linha Critério: PartData("d";Agora())

Na linha Campo: Mês: PartData("m";[TeuCampoDataNasc])

Na linha Critério: PartData("m";Agora())

E, e na guia Atalho do .LNK: Minimizado.

Abraços,


J. Siebiger

Compartilhar este post


Link para o post
Compartilhar em outros sites

Siebiger, Por favor

Sei que este artigo é antigo, mas se você tiver estes exemploa ainda, por favor me responda ou me envie para meu email ljcadorin@brturbo.com.br, tentei fazer como disse, mas não deu certo, ocorre que a data aparece aparece com 01 mes antecipado e o mes também, como resolver!!! por favor agradeco sua ajuda.

valeu

lourival

Compartilhar este post


Link para o post
Compartilhar em outros sites

Siebiger, esse lance eu já resolvi, agora veio outro problema ainda maior, veja:

Ja consegui fazer o programa com o modulo abaixo, porem esqueci dos finais de semana e feriados, pois o usuário so trabalha de segunda a sexta e quem fazer aniversario no final de semana, vai passar despercebido, então por andanças pela NET pedi ajuda a foruns afins e me deram uma ajuda, porem ainda falta o ponto do final de semana, o modulo esta quase completo, mas não se o que fazer mais... se você souber me ajude por favor!!!

quero que ao ligar o PC (Ja resolvido) ele aparecesse quem faz aniversario no dia (Ja resolvido) e especificamente na sexta feira ele avisasse antecipadamente o aniversario que ocorrerao no sabado e no domingo (não resolvido), pode ser também avisar na segunda os aniversariantes do final de semana anterior.. tanto faz...

o modulo incompleto

Function aniversario()

Dim DB As DAO.Database

Dim rs As DAO.Recordset

Dim strCritério As String

Dim strMsg As String

Dim strTitle As String

Dim MyDate, MyWeekDay

MyDate = #8/24/2006# ' Atribua uma data.

MyWeekDay = WeekDay(MyDate) ' MyWeekDay contém 4 porque

' MyDate representa uma quarta-feira.

Set DB = CurrentDb()

Set rs = DB.OpenRecordset("ConsFuncAniv", dbOpenDynaset)

strCritério = "Format([DATA],""dd/mm"") = Format(Date(),""dd/mm"")"

rs.FindFirst strCritério

If rs.NoMatch Then

Exit Function

Else

Do While Not rs.NoMatch

strMsg = rs!funcionario & " - " & rs!cargo & vbCrLf & "Agência: " & rs!juncaoagencia & "-" & rs!nomeagencia

strTitle = "Dia Comemorativo !"

'MsgBox strMsg, vbInformation, strTitle

MsgBox "ATENÇÃO" _

& "@Hoje é o Aniversário de " & " " & strMsg & "" _

& "@Parabéns pelo seu dia!" & vbCrLf _

& vbCrLf _

& "", vbCritical + vbOKOnly, "Dia Comemorativo !"

rs.FindNext strCritério

Loop

End If

rs.Close

Set rs = Nothing

DB.Close

Set DB = Nothing

 End Function

Compartilhar este post


Link para o post
Compartilhar em outros sites

×