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

Boa Noite
tenho um projeto e gostaria que o mesmo ao abrir o formulário me avisasse que tem aniversariantes no mês.
preciso que o projeto também informe que tem curso vencido.
Na empresa que eu trabalho fazemos muitos cursos e os mesmo tem data de validade, caso um deles esteja vencido não conseguimos renovar nossos crachá.


Grata...
Miz

boa noite mizneguinha se tiver como vc enviar o bd

aguardo

Aqui no forum

https://www.maximoaccess.com/t168-resolvidoalerta-de-aniversariante?highlight=aniversariante

Boa noite Marcelo.
Nao sei muito coisa, mas estou tentando criar esse sisteminha pra ajudar a organizar a empresa.
te agradeço por me ajudar.
Gostaria que vc desse sua opinião sobre meu sistema.
e desse umas dicas tbm.

Se possível gostaria que me ajudasse tbm em algumas coisas, como:

No formulário frmCadFunc

- Aviso de data de aniversario pra vencer, se  possível escolher a quantidade de dias antes, sendo possível alterar.
- Aviso de curso vencido, se  possível escolher a quantidade de dias antes, sendo possível alterar.
Se clicar no campo e-mail, abrir o outlook pra enviar email para o funcionário, de aniversario e outros.

Na aba Conjuge/filho

No campo idade – preencher automático com a idade
E se a idade for menor ou igual que o estipulado pela empresa (se possível deixar um campo pra colocar a idade que a impressa passara) . Aparecer no campo salario família. “Tem direito  ao beneficio”

nao estou conseguindo mandar o sisteminha

SISTEMA

https://www.dropbox.com/s/6lt2c50zljfhelb/Cadastro%20de%20Funcion%C3%A1rios%20-%20Poj.accdb?dl=0

boa tarde, a noite eu dou uma olhada e retorno, desculpa a demora eu estava viajando.


abraço

Te agradeço!!

boa noite mizneguinha veja se isso ajuda :



obs: eu não sabia em qual formulário colocar ,mais basta vc recortar este código e colocar no formulário desejado.

boa tarde mizneguinha deu certo? seria isso mesmo?

estou no aguarde

Desculpe,

Estou tentado adaptar, assim que eu terminar te falo se eu consegui.

bom dia mizneguinha não sei se você ja assistiu vídeo aula sobre access no YouTube, porém se você ainda não tiver visto ainda eu sugiro que você dê uma olhadinha eu aprendi muito assistindo os vídeo



no YouTube pesquisa por "access vendas"


espero que ajude
abraço

vou da uma olhadinha. obrigado pela dica!

Poderia me dar uma ajudinha nisso.

If Me.l < "10" Then
Me.SalarioFamilia.Value = True
Else 'Se check é falso
Me.SalarioFamilia.Value = False

tenho um campo com a idade
e se a idade for menor que 10
ele marcar a caixa de selecao

mas nao esta dando certo
vc pode me dar uma ajudinha

olá boa tarde



If Me.l < "10" Then

Me.SalarioFamilia.Value = True
Else 'Se check é falso
Me.SalarioFamilia.Value = Falso

endif


if me.txt_idade< 10 then
me.salariofamilia=true
else
me.salariofamilia=falso
endif

obs:reveja o nome do campo

if Me.l < "10" Then
me.l (txt_idade)

Deu certinho! obrigado!
Poderia me ajudar novamente?

Este é um subformulário
com os seguintes campos
Curso
Data Expedição
Data validade (txt_DataValidade)
Situacao.

no formulario criei mais duas caixas de selcao

txt_dataagora e txt_menos

no txt_menos add isso
=[txt_DataValidade]-[txt_dataagora]

e no formulário a seguinte código

Private Sub Form_Load()
If Me.txt_menos <= 0 Then
  Me.txt_Situacão = "Vencido!"
If Me.txt_menos <= 7 Then
  Me.txt_Situacão = "Menos de uma(1) semana para vencer!"
If Me.txt_menos <= 14 Then
  Me.txt_Situacão = "Menos de duas(2) semanas para vencer!"
If Me.txt_menos <= 21 Then
  Me.txt_Situacão = "Menos de três(3) semanas para vencer!"
If Me.txt_menos <= 31 Then
  Me.txt_Situacão = "Um(1) mês para vencer!"
Else
Me.txt_Situacão = ""
End If
End If
End If
End If
End If
End Sub

Mas so funciona nos registros novos.
Preciso que funcione em todos inclusive nos ja cadastrados

bom dia mizneguinha me desculpa mais peço que se o tópico deu certo dai como resolvido e abra outro pra que quando outras pessoas tiverem a mesma dificuldade que você possa encontrar com mais facilidade, se não fica um tópico com várias questões, e quanto a sua pergunta quando vc quer que aparece estas mensagens?



aguardo...

ok.
desde ja te agradeço!
Na txt_situacao

boa noite mizneguinha desculpa pela demora mais peço que envie novamente o bd com as informações da qual pretende resolver
explique melhor


abraço...

Segue o sistema

https://youtu.be/LOiQ5BvDlSw?list=RDDIi9cyhgZcU&t=37


O que eu preciso:

formulario "frmCursosFunc_ subformulário"
- campos:
txt_Datavalidade = Data de validade do curso
txt_dataagora = Data hoje
txt_menos = "=[txt_dataagora]-[txt_DataValidade]"

preciso que quando a data de validade estiver faltando:
1 mes = "falta 30 dias pare vencer! Favor providenciar documentação!"
15 dias = "falta 15 dias pare vencer! Favor providenciar documentação!"
7 dias = "falta 7 dias pare vencer! Favor providenciar documentação!"
6, 5, 4... 0

e a partir de 7 dias ele sempre falar quantos dia restam. e se for 0
informar que esta vencido.
caso esteja no prazo = "Regular!"

Preciso que se aplique nos que ja estao cadastrados e se editar as informacoes ele atualize
formulario "frmFilhos_subformulário"

Tenho o seguinte codigo, so que ele nao atualiza, caso eu edito o cadastro. Mudando a data de nascimento.
E nao esta funcionando para os que ja estao cadastrados. So nos novos

Private Sub Form_AfterInsert()
If Me.txt_idade <= 10 Then
Me.Salariofamilia = "sim"
Else
Me.Salariofamilia = "Não"
End If
End Sub

ola bom dia o sistema não veio

https://www.dropbox.com/s/mblvudkixnukc75/Cadastro%20de%20Funcion%C3%A1rios%20-%20Poj%20-%20C%C3%B3pia%20%282%29.accdb?dl=0

Desculpe nao sei o que ocorreu

boa noite mizneguinha faz o seguinte recorta o código que você havia colocado no evento antes de inserir e cola na caixa de combinação" txt_curso no evento antes de atualizar depois do código
me.txt_datavalidade=me.txt_curso.column(2)


espero que ajuda
abraço

não funcionou

ola o seu ficou assim ? cria um novo e veja

Sim.
Mas ele nao atualiza os cadastros antigos. so os que cadastro novo!
Desse jeito quando vencer ele nao me avisara. vc sabe como resolver isso?

ola boa noite mizneguinha mudei o caminho é mais ou menos isso

Valeu!! Certinho!!

se deu certo dai como resolvido.

como eu faco isso

ola bom dia mizneguinha veja logo quando você digitar a mesma logo abaixo tem um botão "resolvido" pressione ele e depois envie a mensagem no botão enviar

Obrigado!!!

agradeço pelo retorno tenha um bom dia