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]Criar Campo Status de Pagamento de acordo com data de vencimento.

    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 01:35

    Boa noite, criei um subfrm com o campo [status] esse campo é alimentado da seguinte forma:
    Em evento, antes de atualizar (Da folha de propriedade do próprio subfrm):

    Código:
    If Me.Pago = -1 Then
    Me.Status = "PAGO"
    ElseIf Me.Preço_Pago > Me.Preço Then
    Me.Status = "PAGAMENTO ACIMA DO VALOR"
    ElseIf Me.Vencimento >= date And Me.Preço_Pago.Value < Me.Preço.Value Then
    Me.Status = "EM ABERTO"
    ElseIf Me.Vencimento < date And Me.Preço_Pago.Value < Me.Preço.Value Then
    Me.Status = "VENCIDO"
    Else
    Me.Status = ""
    End If

    Esse código funcionou certinho porem esse campo não atualiza sozinho. Exemplo: Um registro  com vencimento para hoje = "EM ABERTO", o dia vira e ele passa a ser "VENCIDO", porem isso não esta acontecendo automaticamente, ele continua em aberto, se eu quiser que ele atualize eu preciso ir um por um e clicar na caixa de seleção [Pago] depois clicar novamente para ele ler a nova data e atualizar.
    Como faço para ele fazer essa mudança sozinho?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  ahteixeira em 17/8/2020, 10:54

    Olá Anderson Tropiani, seja Bem-Vindo ao fórum.

    Tente no evento "No Atual" (From_Current).

    Abraço
    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 13:12

    Bom dia, acabei de tentar no evento "No Atual" mas tbm não funcionou.

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Alexandre Fim em 17/8/2020, 13:27

    Bom dia,

    Passando aqui pra deixar uma sugestão.

    Você pode criar uma função pública em um módulo, para definir o status dos pagamentos, conforme exemplo:

    Código:


    Public Function fncStatusPagto()
    On Error GoTo trata_erro
    Dim sSQL As String


        sSQL = "UPDATE [SuaTabela] set [SeuCampoStatus]= 'VENCIDO'"
        SQL = sSQL & " WHERE [Vencimento] < " & Date & ""
        CurrentDb.Execute (sSQL)

        Exit Function
       
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Function

    End Sub



    Você também pode criar um macro com o nome de "Autoexec", executando essa função, que automatiza o status dos pagamentos:

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Autoex10

    Espero ter ajudado






    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  ahteixeira em 17/8/2020, 13:40

    Olá a todos

    Anderson, veja a dica do colega Alexandre resolve.
    Se não conseguir, partilhe a base de dados para se analisar.

    Abraço a todos
    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 14:41

    Dei uma olhada na dica do amigo Alexandre, desculpe a ignorância, mas é que sou muito novo no access.
    Como crio essa função pública em modulo?
    Sempre incluo os códigos do VBA pelo "Evento" dos campos ou do próprio formulário.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Alexandre Fim em 17/8/2020, 14:48

    Olá Anderson,

    Por gentileza, poste aqui o somente as partes envolvidas dos seu banco de dados Tabelas, formulários, subformularios e etc.), para podermos te ajudar.

    Obrigado


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 15:34

    Tentei enviar meu banco de dados mas ele não foi, enviei por wetransfer para mim mesmo, com esse link dá pra fazer o download dele.

    wetransfer.com/downloads/b7321f72ffbe0e77bad9fccf5778e5e920200817142845/5cfdef639808734fcd577c17a9ffcfbc20200817142921/1ad4ca
    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. 0links10

    o frm que tem o campo status que mencionei é o frm_contasapagar_folhadepagamento
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Alexandre Fim em 17/8/2020, 16:34

    Anderson?
    Para enviar anexos no fórum é necessário zipá-lo e enviar com a extensão .ZIP

    Fiz as implementações em teu sistema conforme mencionei anteriormente.

    Ao abrir o sistema, o Access executa a macro "Autoexec", onde esta chama uma função no módulo e atualiza o status dos pagamentos conforme a data atual.

    Faça os teste e verifique se está funcionando corretamente.

    Segue versão do sistema.

    Espero ter ajudado.

    Boa sorte.
    Anexos
    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. AttachmentFotografia_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (234 Kb) Baixado 13 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 17:41

    Acabei me esquecendo da regra de links, peço desculpas a todos.
    Alexandre já fiz o download da implementações que fez, mas não posso testar nesse momento, assim que possível eu testo tudo certinho e dou um retorno ai no forum, Mas desde de já agradeço a sua paciência e atenção. Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Alexandre Fim em 17/8/2020, 18:12

    Sem problemas, Anderson !!
    Qualquer dúvida procure o fórum, que os membros aqui vão te ajudar.

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    Anderson Tropiani
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 03/08/2020

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Anderson Tropiani em 17/8/2020, 22:37

    Resolvido Pessoal, Obrigado a todos pela ajuda e atenção.
    Especialmente a vc. Alexandre que ajudou demais hoje!!! Forum nota 1000
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  Alexandre Fim em 17/8/2020, 23:26

    Valeu Anderson !!!
    O fórum agradece.

    Bom trabalho e sucesso !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento. Empty Re: [Resolvido]Criar Campo Status de Pagamento de acordo com data de vencimento.

    Mensagem  ahteixeira em 17/8/2020, 23:40

    cheers

      Data/hora atual: 25/9/2020, 07:10