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]Acrescentar minuto ou hora em campo com hora atual

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  marcelo marques em 3/10/2020, 13:39

    bom dia pessoal estou tentando resolver um problema aqui mais nao estou conseguindo resolver
    tenho um campo chamado txthora que ao carregar ele recebe a hora atual "00:00:00" neste formato porém gostaria de atraves de uma caixa de listagem
    escolher um numero que pode ser em minuto ou em hora exemplo
    10 minutos
    20 minutos
    30 minutos
    1 hora
    mais ou menos assim e somar com meu campo txthora
    ao carregar o sistema a hora era 09:25:00
    se eu escolher a opção 30 minutos iria para 09:55:00
    com resolvo esta questão ?
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  FranklinJSP em 6/10/2020, 02:07

    Boa noite Marcelo!

    Em anexo

    Saludos
    Anexos
    [Resolvido]Acrescentar minuto ou hora em campo com hora atual AttachmentSomaTempo (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (544 Kb) Baixado 10 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  marcelo marques em 6/10/2020, 16:09

    Boa tarde Franklin muito obrigado pela força deu certo
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 397
    Registrado : 25/02/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  FranklinJSP em 6/10/2020, 18:05

    Que bom!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  marcelo marques em 17/10/2020, 11:44

    Bom dia meu amigo me desculpe por reabrir este tópico este código que vc me passou funcionou perfeitamente mais depois surgiu um erro da forma que estou fazendo que é o seguinte tenho duas caixas de combobox uma para eu escolher somente a hora e outro para minuto porém quando eu escolho a hora e minuto ele muda somente um você tem uma forma de fazer isso para ser somado os dois
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  marcelo marques em 24/10/2020, 03:48

    Up
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  Celso Roberto em 24/10/2020, 04:24

    Olá..

    Por favor, anexe o que já tem pronto para que possamos te ajudar

    Aguardamos

    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.....
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3686
    Registrado : 04/04/2010

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  Avelino Sampaio em 24/10/2020, 09:47

    Olá!

    Aproveitando o exemplo do amigo Franklin, acrescente a caixa de horas e utilize os códigos abaixo.

    Private Sub Form_Open(Cancel As Integer)
    Me.HoraActual = Format(Time(), "hh:nn:ss")
    End Sub

    Private Sub SumaHora_AfterUpdate()
    Call fncSomaTime
    End Sub

    Private Sub SumaMinutos_AfterUpdate()
    Call fncSomaTime
    End Sub

    Sub fncSomaTime()
    Dim h, m, s
    h = Hour(Me.HoraActual)
    m = Minute(Me.HoraActual)
    s = Second(Me.HoraActual)
    Me.TotalHoras = Format(TimeSerial(h + Nz(Me.SumaHora), m + Nz(Me.SumaMinutos), s), "hh:nn:ss")
    End Sub


    Observe que apresento uma forma diferente de somar o tempo, utilizando a função TimeSerial() do Access.

    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Acrescentar minuto ou hora em campo com hora atual Empty Re: [Resolvido]Acrescentar minuto ou hora em campo com hora atual

    Mensagem  marcelo marques em 25/10/2020, 03:53

    Boa noite a todos e obrigado a todos que de certa forma me ajudado obrigado a todos

      Data/hora atual: 3/12/2020, 20:48