MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Campo data automático após atualização da hora

    avatar
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 06/12/2018

    [Resolvido]Campo data automático após atualização da hora Empty [Resolvido]Campo data automático após atualização da hora

    Mensagem  kasa1982 em 27/5/2019, 15:52

    Pessoal, bom dia

    Meu problema é o seguinte:

    1. Tenho um formulário que possui a DATA de início, HORAde Início e HORA final de um processo. Ex. 27/05/2019 das 11:00 as 12:00;
    2. O próximo campo é a data inicial do segundo processo que após eu atualizar a hora final deverá verificar se a hora é maior que 12:00:00 AM, ou seja, se for maior que 0 o campo data desse formulário deve trazer o próximo dia, nesse exemplo manteria a mesma data, mas se fosse digitado 27/05/2019 das 23:00 as 00:01 o sistema deveria colocar a data do campo igual a 28/05/2019.

    Usei esse código, mas já percebi que qualquer numero que coloque será sempre maior que zero

    Os campos respectivamente são:

    • data_inicial_processo1
    • horainicial
    • horafinal
    • data_inicial_processo2


    Código:
    Private Sub horaFinal_AfterUpdate()
        If Me.horafinal > "12:00:00 AM" Then
        Me.data_inicial_processo2.SetFocus
        [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1 + 1
        End If
    End Sub

    Abs
    avatar
    kasa1982
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 06/12/2018

    [Resolvido]Campo data automático após atualização da hora Empty Re: [Resolvido]Campo data automático após atualização da hora

    Mensagem  kasa1982 em 27/5/2019, 16:28

    Resolvido galera, de um jeito mais simples,

    Peguei a hora final e subtrai da hora inicial, se o resultado for menor que 0 então ai somei 1 a data inicial, ficando da seguinte forma:

    Código:
        If (Me.horafinal - Me.horainicial) < 0 Then
        Me.data_inicial_processo2.SetFocus
        [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1+ 1
        Else
        Me.data_inicial_processo2.SetFocus
        [Forms]![MeuForm].[data_inicial_processo2] = Me.data_inicial_processo1
        End If

    Ufa!

    Valeu

      Data/hora atual: 8/8/2020, 13:19