MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Dúvida: VBA para "faltam X dias para vencer o boleto"

    Compartilhe

    saulosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/06/2016

    Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  saulosa em Dom 28 Jan 2018, 23:32

    Mestres,

    Estou fazendo um sistema para gestão de boletos.
    Quero atualizar o campo status do boleto (pendente/atrasado) conforme a data de hoje.

    Tenho os seguintes campos
    [status] / [datavencimento]


    Fiz o seguinte macro, mas não deu certo
    Alguém poderia me ajuda?





    Private Sub Form_Load()

    Dim var_dias As Date
    Dim var_hoje As Date

    var_hoje = Date

    var_dias = var_hoje - Me.datavencimento

    If var_dias < 0 Then

    Me.TPA_status = "Atrasada"

    End If


    End Sub
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho em Seg 29 Jan 2018, 10:44

    Saulo

    Experimente o código abaixo.

    Detalhe, se for navegar nos registros em um formulário, esse código deve estar na propriedade No Atual do formulário.

    [ ]'s

    Código:

    Dim var_dias As integer
    Dim var_hoje As Date
    Dim dvencto as Date
    dvencto = me.datavencimento

    var_hoje = format(Date,"dd,mm,yy")

    var_dias = DateDiff("d",var_hoje,dvencto)

    If var_dias < 0 Then

    Me.TPA_status = "Atrasada"

    End If


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

    saulosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/06/2016

    Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  saulosa em Qui 08 Fev 2018, 14:44

    Amigo, obrigado pela ajuda!
    Já está funcionando!

    Mas no meu formulário ele acabou gerando alguns erro (indiretos):

    1) Quando a data de vencimento está vazia... dá msg de erro.

    2) Quando eu pago o campo status (deixando vazio novamente), depois de atualizo o formulário ele não voltar a preencher com atrasado
    Tem diferença o campo estar vazio por se tratar de um registro novo e quando fica vazio pelo conteúdo ter sido apagado?
    qual a diferença em "" e Null ?

    3) Meu formulário está no modelo contínuo, então só atualiza no primeiro registro... os outros ficam sem atualizar o código

    Poderia me ajudar?

    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho em Qui 08 Fev 2018, 16:10


    Sim existe diferença:

    Quando escrevemos = "" quer dizer campo vazio, ou sequencia vazia. Quando uma variável não é iniciada.

    Já o campo é nulo quando iniciado mas não tem dados. Veja a ajuda do Access, para mais detalhes.

    Para formulário continuo, o código é diferente.

    Estou fora de casa, se até a noite ninguém te ajudar, eu o faço.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3171
    Registrado : 29/06/2012

    Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho em Qui 08 Fev 2018, 17:38

    Esqueci de dizer, depois colo na outra mensagems

    Anexe as tabela(s) , consulta(s) e formulário(s) em questão.



    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .

      Data/hora atual: Qui 22 Fev 2018, 03:04