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

    Mostrar mensagem no label conforme a data e hora atual - Módulo

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 25/09/2017

    Mostrar mensagem no label conforme a data e hora atual - Módulo Empty Mostrar mensagem no label conforme a data e hora atual - Módulo

    Mensagem  Nill.GO 4/7/2022, 14:19

    Bom dia pessoal,

    Guardo em uma tabela registro de mensagem, onde atualizo esta mensagem conforme a necessidade.
    Preciso mostrar esta mensagem em um label no formulário FrmMenu.
    No FrmCadastraMsg tenho o seguinte:

    Mensagem: xxxxx xxxxxx xxxxx

    'Data e Hora para ser mostrada no label
    Data Corrente: 04/07/2022
    Hora: 13:00
    'Se estiver ativado
    Status [x] Ativado

    Criei um Módulo:

    Function Carregar_Msg()
    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("tblMensagem")

    rs.FindFirst "Format([msgData],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [msgHoras] = Time() And [msgStatus] = True"

    Forms![FrmMenu].lblMensagem.Caption = rs!msgDescricao

    rs.Close
    Set rs = Nothing

    End Function

    Chamo essa função no Timer
    Call Carregar_Msg

    O que acontece:
    Está mostrando de imediato ao abrir o formulário

    "Preciso que mostre na data corrente e no horário corrente"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    Mostrar mensagem no label conforme a data e hora atual - Módulo Empty Re: Mostrar mensagem no label conforme a data e hora atual - Módulo

    Mensagem  Alexandre Fim 4/7/2022, 14:37

    Olá,
    Substitua o Date() por Now. Segue exemplo:

    Format(Now,"dd/mm/yyyy") & " - "& Format(now,"hh🇲🇲ss")

    Resultado: 04/07/2022 - 10:35:48



    É isso

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Mostrar mensagem no label conforme a data e hora atual - Módulo Setinf11
    Sistemas e Tecnologia Ltda
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 66
    Registrado : 25/09/2017

    Mostrar mensagem no label conforme a data e hora atual - Módulo Empty Re: Mostrar mensagem no label conforme a data e hora atual - Módulo

    Mensagem  Nill.GO 4/7/2022, 15:15

    Alexandre, o detalhe é que no abrir do formulário, já apresenta a mensagem.
    Gostaria que mostrasse assim que conferir o mesmo horário da coluna "msgHoras" da tabela.

    Atualizando aqui:
    Data Corrente: 04/07/2022 (Data do evento)
    Hora: 13:00 (Hora do evento)

    Verificar no banco de dados e executar a data do evento e a hora do evento.
    Na data e horário definido, mostra na tela do formulário.

      Data/hora atual: 24/9/2022, 20:06