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

3 participantes

    [Resolvido]Validação data

    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Validação data Empty [Resolvido]Validação data

    Mensagem  Oliveira89 28/9/2016, 12:46

    Bom dia Amigos

    Estou a criar uma nova base de dados, comecei por criar uma tabela em que se poderia inserir manualmente a data e a hora de uma suposta carga, porem gostaria de validar da seguinte maneira o campo "marcar hora para carga" desta maneira:

    se [marcar data para carga]=data de hoje, então, [marcar hora para carga]> hora atual

    Ambos os campos estão na mesma tabela ^^
    Muito Obrigado por tudo
    Com os melhores Cumprimentos
    Oliveira
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Alexandre Neves 28/9/2016, 22:47

    Boa noite, Oliveira

    Trabalha na tabela ou no formulário?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Celso Roberto 28/9/2016, 23:17

    Olá..

    Se for em consulta, no campo Hora fica assim

    Hora: SeImed([CampoData]=0;0;Agora())
    ao digitar a data o campo hora se completa com a hora atual


    Se For em formulário, no evento apos atualizar do campo Data fica assim

    Me.Hora = Now
    ao digitar a data o campo hora se completa com a hora atual

    Espero que seja isto

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Celso Roberto 28/9/2016, 23:20

    Desculpe Alexandre, quando vi que postou já tinha ido

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Validação data Empty expecificar

    Mensagem  Oliveira89 29/9/2016, 09:40

    Bom dia amigo Alexandre e amigo Celso

    vou fazer a validação através do formulário vou voltar a explicar um pouco mais simples:

    se [(data marcada)]=data de hoje, então, [(hora marcada)]> hora atual


    [(data marcada)]-> data marcada através de calendário
    [(hora marcada)]->hora escrita no formato hh:mm:ss

    Muito Obrigado
    Com os melhores Cumprimentos
    Oliveira
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Celso Roberto 29/9/2016, 13:14

    Olá então faça:

    No evento ao alterar do seu campo data

    Private Sub SeuCampoData_Change()
    Me.SeuCampoHora = Format(Now, "hh:mm:ss")
    End Sub

    Substitua "SeuCampoData", pelo nome de seu campo Data
    substitua "SeuCampoHora", pelo nome de seu campo Hora

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Validação data Empty continuação

    Mensagem  Oliveira89 29/9/2016, 14:32

    Boa tarde Sr. Celso


    Private Sub SeuCampoData_Change()
    Me.SeuCampoHora = Format(Now, "hh:mm:ss")
    End Sub

    Está óptimo, mas este código vai aparecer a hora de agora, eu queria o seguinte.
    caso a data que seja introduzida seja a de hoje a hora inserida tem de ser sempre maior que a de agora, pois não faz sentido fazer uma carga há uma hora atrás. tem sempre de ser desta hora para a frente.
    Tenho 2 campos no formulário para preenchimento. 1 para a data e outro para a hora, independentes um do outro. quero assim criar uma dependência um do outro, ou seja a hora depende da data. se marcar uma data de amanha por exemplo posso marcar a hora que quiser, mas caso marque a data de hoje tenho que inserir uma hora superior há de agora.

    Muito Obrigado
    Com os melhores Cumprimentos
    Oliveira
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Celso Roberto 29/9/2016, 16:08

    Olá..

    O exemplo que te passei esta exatamente para campos diferentes, veja que o campo Hora esta sendo alterado pelo campo data(Colocar código no evento ao altera campo data).
    Quanto ao introduzir data de amanha, ira mostra hora atual do seu computador, é só alterar para Hora desejada.

    Quanto ao introduzir data de hoje a hora tem que ser maior que hora atual, tem que se saber quantas Horas?
    Sabendo isto, Use no Mesmo evento ao alterar data

    Me.Hora = DateAdd("h", 1, Format(Now, "hh:mm:ss")) ' Acrescenta 1 Hora a hora atual
    ou
    Me.Hora = DateAdd("n", 30, Format(Now, "hh:mm:ss")) ' Acrescenta 30 minutos a hora atual

    Espero que seja isto

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Oliveira89
    Oliveira89
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 07/09/2016

    [Resolvido]Validação data Empty continuação

    Mensagem  Oliveira89 29/9/2016, 17:41

    Muito Obrigado amigo é isto mesmo cheers
    Com os melhores cumprimentos
    Oliveira
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Validação data Empty Re: [Resolvido]Validação data

    Mensagem  Celso Roberto 29/9/2016, 18:14

    Olá Oliveira,

    O Fórum agradece seu retorno

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 5/12/2022, 02:41