MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 18
    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 : 18
    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: 15/9/2019, 21:51