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


3 participantes

    [Resolvido]Mensagem automática

    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Mensagem automática Empty [Resolvido]Mensagem automática

    Mensagem  glaauco 5/9/2017, 17:14

    Boa tarde,

    tenho um banco de dados e gostaria de saber se é possível fazer com que ao abrir o formulário principal aparecesse uma mensagem para o usuário todas as segundas-feiras do ano.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Mensagem automática Empty Re: [Resolvido]Mensagem automática

    Mensagem  caiosouza 5/9/2017, 17:37

    Pode fazer de forma simples,

    1 - Crie uma tabela com os 365 registros.
    2 - Na tabela, defina o campo data como DATA COMPLETA:
    3 - Crie uma consulta
    4 - Nos critérios do campo data na consulta, coloque: ="*" & "Segunda" & "*"
    5 - Crie um um novo formulário para exibir a consulta, ou um script para exibir os dados da consulta numa MsgBox.


    .................................................................................
    Caio Souza

    Engenheiro de Software
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Mensagem automática Empty Re: [Resolvido]Mensagem automática

    Mensagem  FabioPaes 5/9/2017, 17:44

    Senhores, é muito mais cimples do que imaginam...

    Se eu formatar a Data atual para "ddd" eu terei algo assim: Seg, Ter, Qua,Qui... entao, basta se o valor for igual a Seg eu emito a mensagem.

    No Evento ao Abrir do Formulario, coloque:

    If Format(Date, "ddd") = "Seg" Then
    MsgBox "Bem vindo a Segunda Feira", vbInformation
    End If


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Mensagem automática Empty Re: [Resolvido]Mensagem automática

    Mensagem  caiosouza 5/9/2017, 18:04

    Opa, boa FabioPaes.

    Agora que entendi a lógica que o nosso amigo procurava.

    Inicialmente entendi que ele queria que aparecesse todas segundas do ano de uma só vez.


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Mensagem automática Empty Re: [Resolvido]Mensagem automática

    Mensagem  glaauco 6/9/2017, 17:13

    Fabio e Caio,

    muito obrigado pela ajuda, fiz da maneira em que o Fabio falou e deu certo.

    Conteúdo patrocinado


    [Resolvido]Mensagem automática Empty Re: [Resolvido]Mensagem automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:40