[Resolvido]Se a data for igual a atual, substituir por "Hoje"

Olá Pessoal,


Voltando a modificar o exemplo de alerta do JPaulo mais uma vez... rs!
http://maximoaccess.forumeiros.com/t168-resolvidoalerta-de-aniversariante?highlight=aniversariante

Dessa vez pretendo modificar o exemplo: Aniversariante IV, que trás os aniversariantes da semana.
Na lista de aniversariantes, aparecem os nomes e as datas de nascimento dos que estão fazendo aniversário naquela semana.

Gostaria que se uma ou mais datas forem iguais a atual, mostrasse "Hoje" no lugar da data.

Porém, se o dia e mês forem iguais ao atual não posso pedir para alterar o campo da data de nascimento para "Hoje". Teria que criar outro campo, mas como se trata de form contínuo, esse campo assumiria "Hoje" para todos aniversariantes (como já discutido em outro tópico).

Alguém saberia como fazer isto?

Opa Marcos,
não sei se entendi o seu questionamento, mas acho que você consegue resolver isso colocando um SeImed e a função PartData no critério da sql do seu form, conforme abaixo

Aniversario: SeImed(PartData("d";[tblAniversarios]![TDataNasc]) & "/" & PartData("m";[tblAniversarios]![TDataNasc])=PartData("d";Data()) & "/" & PartData("m";Data());"Hoje";[tblAniversarios]![TDataNasc])

Bom, de qualquer forma alterei o seu exemplo e anexei na resposta.

Exatamente Fábio!

Devo ter confundido o entendimento porque deixei o campo como "Nascimento". Poderia ter colocado "Data do aniversário", com o ano atual e não de nascimento, ou apenas dia e mês...
Mas é exatamente isto que desejava.



Muito obrigado pela ajuda!
Abraço.

Fábio, eu não tinha pensado nessa data com o ano do nascimento...
Seria bacana no lugar dessa data do nascimento e, a partir dela, aparecer o dia da semana que a pessoa faria o aniversário no ano atual.


Sei que para aparecer a data como dia da semana. Simplesmente altero o formato do campo para "dddd". Porém, como faria para caso a data fosse igual a atual aparecer o "Hoje" no lugar do "Dia da semana"?

é só usar o mesmo conceito da fórmula que te passei...

fica assim

Código:

DiaSemana: SeImed(PartData("d";[tblAniversarios]![TDataNasc]) & "/" & PartData("m";[tblAniversarios]![TDataNasc])=PartData("d";Data()) & "/" & PartData("m";Data());"Hoje";Format([tblAniversarios]![TDataNasc];"dddd"))

Ta aí no anexo de novo...

Muito bom!!


Uma outra pergunta: a primeira data desse exemplo ai já passou. Como faria para remover dessa lista os aniversários que já passaram?

use a formula abaixo e no criterio coloque >=Data()

Código:

ProximosAniversarios: ValData(PartData("d";[tblAniversarios]![TDataNasc]) & "/" & PartData("m";[tblAniversarios]![TDataNasc]) & "/" & Ano(Data()))

esse campo não precisa ficar visível na consulta

Legal Fábio!

Mas acho que tem como simplificar alterando o critério entre datas da consulta. Não havia reparado, mas o critério do JPaulo não está filtrando de segunda a sexta, e sim segunda a quinta.
Como esse tópico está partindo pra outro assunto e o questionado no título já foi resolvido, abrirei outro tópico para discutir sobre o critério. Poderia me acompanhar no outro tópico, vejo que entende muito de expressões.


Tópico resolvido, e meu muito obrigado!