MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    Marcos Minoru
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

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

    Mensagem  Marcos Minoru 16/9/2014, 22:49

    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?
    Anexos
    [Resolvido]Se a data for igual a atual, substituir por "Hoje" AttachmentAniversariantes_IV_MOD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 13 vez(es)


    Última edição por Marcos Minoru em 17/9/2014, 19:48, editado 3 vez(es)
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

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

    Mensagem  LiveBrain 16/9/2014, 23:17

    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.
    Anexos
    [Resolvido]Se a data for igual a atual, substituir por "Hoje" AttachmentAniversariantes_IV_MOD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 12 vez(es)


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    Marcos Minoru
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

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

    Mensagem  Marcos Minoru 16/9/2014, 23:25

    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.
    Marcos Minoru
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

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

    Mensagem  Marcos Minoru 16/9/2014, 23:57

    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"?
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

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

    Mensagem  LiveBrain 17/9/2014, 04:06

    é 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...
    Anexos
    [Resolvido]Se a data for igual a atual, substituir por "Hoje" AttachmentAniversariantes_IV_MOD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 15 vez(es)


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    Marcos Minoru
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

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

    Mensagem  Marcos Minoru 17/9/2014, 04:36

    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?
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

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

    Mensagem  LiveBrain 17/9/2014, 13:35

    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


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    Marcos Minoru
    Marcos Minoru
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 22/08/2014

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

    Mensagem  Marcos Minoru 17/9/2014, 19:47

    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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:18