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

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?

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

Tente no evento "No Atual" (From_Current).

Abraço

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

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:



Espero ter ajudado

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

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.

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

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


o frm que tem o campo status que mencionei é o frm_contasapagar_folhadepagamento

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.

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.

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

Boa sorte

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

Valeu Anderson !!!
O fórum agradece.

Bom trabalho e sucesso !!!