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]Parar contagem de dias

    avatar
    castrum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 43
    Registrado : 25/02/2013

    [Resolvido]Parar contagem de dias Empty [Resolvido]Parar contagem de dias

    Mensagem  castrum 12/10/2021, 09:32

    Andei à procura mas não consegui encontar.
    Tenho o campo “Data_Registo” onde registo a data do documento, o campo “prazo” que são os dias que tenho para despachar o documento, o campo “falta” os dias que faltam para terminar o prazo e o campo “Data_conclusão” onde registo a data de envio do documento.
    No campo “prazo” coloquei:

    Private Sub Prazo_AfterUpdate()
    Data_Limite = DateAdd("d", Prazo, Data_Registo)

    If Not IsNull(Me.Data_Limite) Then
    Me.Falta.Value = Calcularprazo(Me.Data_Limite)
    Else
    Me.Falta = 0
    End If
    End Sub

    Tenho o modulo data com:
    Public Function Calcularprazo(Data_Limite As Date) As Integer
    If IsDate(Data_Limite) And Not IsNull(Data_Limite) Then
    Calcularprazo = Int([Data_Limite] - Date)
    Else
    Calcularprazo = 0
    End If
    End Function

    Pretendia que ao colocar uma data no campo “Data_conclusão” os dias no campo “falta” deixassem de contar.
    Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Parar contagem de dias Empty Re: [Resolvido]Parar contagem de dias

    Mensagem  Alvaro Teixeira 12/10/2021, 12:47

    Olá António Amaro,

    O ideal seria o campo Falta ser um campo calculado.
    Algo assim (não testado):
    Código:
    =Iff( len(Me.Data_Limite)&"" =0 , Calcularprazo(DateAdd("d", Prazo, Data_Registo))

    Se pretender manter no form como tem, pode tentar mover este código para o evento "no atual"
    Código:
    Data_Limite = DateAdd("d", Prazo, Data_Registo)

    If Not IsNull(Me.Data_Limite) Then
    Me.Falta.Value = Calcularprazo(Me.Data_Limite)
    Else
    Me.Falta = 0
    End If

    Abraço
    avatar
    castrum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 43
    Registrado : 25/02/2013

    [Resolvido]Parar contagem de dias Empty Re: [Resolvido]Parar contagem de dias

    Mensagem  castrum 12/10/2021, 14:19

    Fiz a alteração de

    If Not IsNull(Me.Data_Limite) Then
    para

    If IsNull(Me.Data_conclusão) Then
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Parar contagem de dias Empty Re: [Resolvido]Parar contagem de dias

    Mensagem  Alvaro Teixeira 15/10/2021, 08:43

    Olá António Amaro,

    E conseguiu resolver dessa forma?

    Se sim, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    avatar
    castrum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 43
    Registrado : 25/02/2013

    [Resolvido]Parar contagem de dias Empty Re: [Resolvido]Parar contagem de dias

    Mensagem  castrum 27/10/2021, 09:20

    Obrigado a quem tentou ajudar.
    Resolvido.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Parar contagem de dias Empty Re: [Resolvido]Parar contagem de dias

    Mensagem  Alvaro Teixeira 29/10/2021, 14:37

    cheers

      Data/hora atual: 6/10/2022, 07:34