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]Contagem de tempo

    mirsofy
    mirsofy
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 09/07/2011

    [Resolvido]Contagem de tempo Empty [Resolvido]Contagem de tempo

    Mensagem  mirsofy 7/12/2021, 09:27

    Vivas para todos

    Recorro com a seguinte questão:
    no meu formulário queria criar 2 caixas,uma com data e outra com contagem de tempo
    ao colocar a data na caixadata , a caixatempo deveria aparecer uma data com mais 30 dias em contagem (por exemplo)
    Qual a formula/função que posso fazer, e que preciso da vossa ajuda
    a ideia é ao registar essa data , ficando em contagem de tempo a resposta que deve ser dada aquele registo

    Espero que entendam

    Gratos por tudo

    mirsofy
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Contagem de tempo Empty Re: [Resolvido]Contagem de tempo

    Mensagem  thiagomcosta 8/12/2021, 11:06

    Você quer jogar um prazo para frente, por exemplo , ao digitar uma data e some X dias e retorne o resultado em outro campo? Se for isso utilize DateAdd

    Ficaria, no caso de 30 dias, mais ou menos assim (coloque no evento "após atualizar da CaixaTexto1):
    CaixaTexto2 = DateDiff("d", 30, CaixaTexto1)

    Isso vai somar 30 dias à data digitada em CAixaTexto1 e colocar o valor em CaixaTexto2
    mirsofy
    mirsofy
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 09/07/2011

    [Resolvido]Contagem de tempo Empty Re: [Resolvido]Contagem de tempo

    Mensagem  mirsofy 9/12/2021, 06:27

    Vivas

    Seguindo o que percebi da tua orientação , não me dá
    segue um pq exemplo do que quero
    onde estou a errar?

    Grato pela atenção
    Anexos
    [Resolvido]Contagem de tempo AttachmentContagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (37 Kb) Baixado 11 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Contagem de tempo Empty Re: [Resolvido]Contagem de tempo

    Mensagem  Alexandre Fim 9/12/2021, 09:42

    Olá Manuel,

    O código funciona conforme orientação do amigo @thiagomcosta, porém, os campos estão invertidos Segue a correta:

    Código:


    Private Sub DataRecurso_AfterUpdate()
       
        'DataRecurso = DateDiff("d", 30, Contagem)
        Contagem = Format(DateAdd("d", 30, DataRecurso), "dd/mm/yyyy")
       
       
    End Sub


    Neste caso, usamos a função DateAdd, e a formatação do campo "Contagem", pois na tabela está como Texto.

    É isso
    []'s
    FIM


    .................................................................................
    [Resolvido]Contagem de tempo Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Contagem de tempo Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Contagem de tempo Setinf11
    Sistemas e Tecnologia Ltda
    mirsofy
    mirsofy
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 09/07/2011

    [Resolvido]Contagem de tempo Empty Re: [Resolvido]Contagem de tempo

    Mensagem  mirsofy 9/12/2021, 11:41

    Vivas

    Grato aos dois pela ajuda

    mirsofy

      Data/hora atual: 18/5/2022, 19:59