[Resolvido]Mensagem Bíblica conforme o dia

adriano.ig 2/3/2018, 11: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 2/3/2018, 11: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 2/3/2018, 11: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 2/3/2018, 11: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!