[RESOLVIDO] Formulário atualiza status de totos os registros que atendem a condição vencimento de data

Caros programadores,
Estou criando ess tópico para exclarecer uma dúvida que tento resolver através deste fórum à meses (verdade mesmo)!! Não que o fórum não tenha informação suficiente (até mesmo por que reconheço ser uma dúvida extremamente simples), mas por que eu sou crú em VBA (usei C++ a anos)!!

O problema: venho desenvolvendo um sistema de parcelamento baseado em muitos exemplos desse fórum, o treixo que está dando trabalho precisa informar automaticamente o status de uma parcela vencida, ou seja, "Pendente"!! O campo da tabela de parcelas que informa é vinculado à tabela de status!! O processo que usei está no VBA do formulário de parcelas!!

Segue o código:
Private Sub Form_Load()
'Atualiza o status da parcela vencida para "Pendente"
'Problema ao atualizar o status dos registros seguintes
If PARCELA_STATUS = 5 Then 'Valor 5 é o status "A Vencer"
If VENCIMENTO < Date Then
PARCELA_STATUS = 6 'Valor 5 é o Status "Pendente"
End If
End If
End Sub

Segue em anexo na versão 2010 (o Access não deixou modificar a versão ):
http://dl.dropbox.com/u/35838975/Status.automatico.de.Parcelas.rar

Obrigado pela atenção!!

No 2010 é meio complicado porque muito pouca gente o possui. Tente criar um banco novo, salvar em formato anterior e depois importar o que interessa para resolução do caso.
Para já, tente colocar tudo em uma condição apenas e teste:

If PARCELA_STATUS = 5 And VENCIMENTO < Date Then

Base de dados salvo em 2003 e link acima atualizado!!
A ideia de usar uma linha para as duas funções If é bem melhor e já foi atualizada no link acima, mas não resolve o problema, pois acredito que ele não venha da função If e sim da falta de continuidade de todo o código que para ser últil é necessário correr todos os registros e atualizar o status dos que atenderem a verificação da função!!

Pelo que vejo isto está acontecendo apenas no primeiro registro, mesmo que ele não atenda a verificação, então o If aparenta parar!!

Uma função de loop... será a solução?? Se for, podem me ajudar a montar??
Obrigado pela atenção!!

Amigão, eu não entendi o funcionamento do exemplo. Você quer avaliar se o campo PARCELA_STATUS é igual a 5, mas esse campo armazena texto "QUITADO", "PENDENTE", etc.

Embora não tenha entendido bem o que quer, acredito que se editar isso usando Recordset na tabela ao invés de tentar editar direto no subformulário, obterá melhor êxito. Seria algo parecido com isso:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("T_CONTRATO_PARCELA")

Do While Not rs.EOF
rs.Edit
If rs!PARCELA_STATUS = 5 And rs!VENCIMENTO < Date Then 'Valor 5 é o status "A Vencer"
rs!PARCELA_STATUS = 6 'Valor 5 é o Status "Pendente"
End If
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Criquio... tá 100% agora
Vou tentar deixar as parcelas em ordem, por que vc porde perceber que ao passar para Access 2003 o formulário perdeu essa característica de ordenar de acordo com o número da parcela!! Não quero organizar por data de vencimento para não deixar espaço para erros!!

Podem baixar no mesmo link no começo deste tópico a Base de Dados com reconhecimento automático de parcelas pendentes!! Adcionei 04 consultas para os status das parcelas (detalhe: consulta C_CONTRATO_PARCELA (AUDITAR) lista as parcelas que necessitam de aprovação da administrador da empresa)!! Testem de todas as maneiras possíveis, caso encontrem erros pessam para reabrirmos o tópico e resolveremos!!

Obrigado pela atenção!!