MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    pop-up - lembrete por data

    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    pop-up - lembrete por data Empty pop-up - lembrete por data

    Mensagem  Vittor_Duarte 8/9/2016, 15:01

    Bom dia pessoal!

    Eu criei um formulário para minha equipe em minha empresa, para eles terem controle dos clientes deles, e cada cliente tem uma data prevista de pagamento de suas dividas, o que eu quero saber é, como faz para que o access me avisa com algum tipo de pop-up, no dia da data prevista, um aviso, por exemplo, o cliente tem uma data prevista para 09/09/2016, e gostaria que o access, me informasse com algum tipo de aviso, um dia antes e no próprio dia, por gentileza alguém poderia me ajudar?


    Atenciosamente.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    pop-up - lembrete por data Empty Re: pop-up - lembrete por data

    Mensagem  Cláudio Machado 8/9/2016, 20:52

    Boa tarde.
    Crie o formulário PopUp e no evento ao abrir coloque o seguinte código:


    Código:


    Dim Var_DataPrevista
    Var_DataPrevista = DataPrevista - 1

    If Var_DataPrevista = Date Then
        MsgBox "Falta 1 Dia para o Dia D", vbInformation, "Informando"
    ElseIf DataPrevista = Date Then
        MsgBox "Hoje é o  Dia D", vbInformation, "Informando"
    End If


    Saudações.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha pop-up - lembrete por data 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 9/5/2024, 14:11