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 Bíblica conforme o dia

    Compartilhe

    adriano.ig
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2016

    [Resolvido]Mensagem Bíblica conforme o dia

    Mensagem  adriano.ig em Sex 02 Mar 2018, 6:11 am

    Bom dia a todos do Fórum!

    Estou criando um BD para leitura diária da Bíblia. Que trata-se de um plano anual de leitura. Tenho uma coletânea de mensagens bíblicas motivacionais que são exatamente 1 mensagem para cada dia do ano. O que quero implementar no meu BD é que após o form de carregamento fechar seja aberto outro form com a mensagem referente ao dia. Sobre como esse form abrir após o outro consigo fazer. Agora a questão está em essas mensagens mudarem a cada dia. Alguém pode me ajudar com essa questão? Creio que terei que fazer algum código no VBA para isso, não é? Estou aberto as sugestões. Ah, detalhe, não sou tãooo experiente em access/VBA.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Mensagem Bíblica conforme o dia

    Mensagem  CassioFabre em Sex 02 Mar 2018, 6:42 am

    Bom dia,

    No evento Ao Abrir do formulário coloque:
    Código:
    txtMsg = DLookup("texto", "tblTextos", "diatexto = #" & Format(Date, "mm/dd/yyyy") & "#")

    Sendo:

    - texto o seu campo que contém a mensagem do dia
    - tblTextos a sua tabela
    - diatexto seu campo da tabela que contém a data que a mensagem deve ser mostrada. Este campo deve ser do tipo "Date/Time"

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    adriano.ig
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2016

    Re: [Resolvido]Mensagem Bíblica conforme o dia

    Mensagem  adriano.ig em Sex 02 Mar 2018, 7:06 am

    Olá Cassio!

    Vou fazer o teste aqui e retorno se deu tudo certo!

    Agradeço pela resposta...

    adriano.ig
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2016

    Re: [Resolvido]Mensagem Bíblica conforme o dia

    Mensagem  adriano.ig em Sex 02 Mar 2018, 8:00 am

    Resolvido! Obrigado Cassio pela sua colaboração!
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Mensagem Bíblica conforme o dia

    Mensagem  CassioFabre em Sex 02 Mar 2018, 8:56 am

    Bom dia,

    Agradecemos o retorno.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

      Data/hora atual: Sex 19 Out 2018, 6:24 pm