[Resolvido]Mensagem Bíblica conforme o dia

adriano.ig Sex 02 Mar 2018, 08:11

adriano.ig: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 88
Registrado : 01/03/2016

Mensagem nº1

[Resolvido]Mensagem Bíblica conforme o dia

Mensagem adriano.ig Sex 02 Mar 2018, 08:11

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.

CassioFabre Sex 02 Mar 2018, 08:42

CassioFabre

CassioFabre: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 731
Registrado : 18/01/2013

Mensagem nº2

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

Mensagem CassioFabre Sex 02 Mar 2018, 08:42

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!