MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mensagem automática

    Compartilhe

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Mensagem automática

    Mensagem  glaauco em Ter 05 Set 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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Mensagem automática

    Mensagem  caiosouza em Ter 05 Set 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.


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Mensagem automática

    Mensagem  FabioPaes em Ter 05 Set 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!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Mensagem automática

    Mensagem  caiosouza em Ter 05 Set 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.


    .................................................................................
    A persistência leva ao sucesso!

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Mensagem automática

    Mensagem  glaauco em Qua 06 Set 2017, 17:13

    Fabio e Caio,

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

      Data/hora atual: Sab 18 Nov 2017, 01:10