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

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

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


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?

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

Esqueci de dizer, depois colo na outra mensagems

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