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 : 32
    Registrado : 21/06/2016

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

    Mensagem  saulosa em 28/1/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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 29/1/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

    saulosa
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  saulosa em 8/2/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?


    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 8/2/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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 8/2/2018, 17:38

    Esqueci de dizer, depois colo na outra mensagems

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


      Data/hora atual: 18/10/2018, 13:04