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]Fórmula com intervalo de horas em VBA

    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Fórmula com intervalo de horas em VBA Empty [Resolvido]Fórmula com intervalo de horas em VBA

    Mensagem  Fabrícia Lima 18/6/2016, 12:32

    Bom dia grupo!

    Estou com uma pequena pendência realcionada a uma fórmula If, a qual desejo verificar as horas para liberar campos em um formulário.
    O erri se dar no intervalo de horas.Exemplo do que desejo:

    08:00hs as 10:00hs ou 20:00hs as 22:00hs liberar os campos desejados ao carregar formulário.


    Código:
    Dim hora As String
    hora = Format(Me.txtHora, "hh:mm:ss AMPM")

    If hora = #8:00:00 AM# <= #10:00:00 AM# Or hora = #8:00:00 PM# <= #10:00:00 PM# Then

    Me.txt8P1.Enabled = True
    Me.txt8P2.Enabled = True

    ElseIf hora = #11:00:00 AM# <= #12:00:00 PM# Or hora = #11:00:00 PM#  <= #12:00:00 AM# Then

    Me.txt11P1.Enabled = True
    Me.txt11P2.Enabled = True

    Else
     DoCmd.CancelEvent
     
    End If

    End Sub




    Última edição por Fabrícia Lima em 18/6/2016, 13:06, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Fórmula com intervalo de horas em VBA Empty Re: [Resolvido]Fórmula com intervalo de horas em VBA

    Mensagem  FabioPaes 18/6/2016, 17:46

    Tente assim:
    Dim hora As String
    hora = Format(Me.txtHora, "hh:mm:ss AMPM")

    If hora >= #8:00:00 AM# AND hora <= #10:00:00 AM# OR hora >= #8:00:00 PM# AND hora <= #10:00:00 PM#  Then

    Me.txt8P1.Enabled = True
    Me.txt8P2.Enabled = True

    ElseIf hora >= #11:00:00 AM#  AND hora <= #12:00:00 PM# Or hora =>#11:00:00 PM#  AND hora <= #12:00:00 AM# Then

    Me.txt11P1.Enabled = True
    Me.txt11P2.Enabled = True

    Else
    DoCmd.CancelEvent

    End If

    End Sub


    Por favor confirme os Horarios PM e AM ta...


    A Sequencia correta é:

    If CampoA>= VALOR AND CampoA<=VALOR Then...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Fórmula com intervalo de horas em VBA Empty Re: [Resolvido]Fórmula com intervalo de horas em VBA

    Mensagem  Fabrícia Lima 18/6/2016, 18:22

    Eu adicionei aqui colega, deu certo.

    Obrigado! cheers

    Conteúdo patrocinado


    [Resolvido]Fórmula com intervalo de horas em VBA Empty Re: [Resolvido]Fórmula com intervalo de horas em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 21:33