[Resolvido]Ajuda com Código

Formulário com caixa de listagem
Ao abrir o formulário, verifica na caixa de listagem se existe data de hoje ou anterior e dá o aviso, só que desta forma não funciona:
 

Código:

Private Sub Form_Open(Cancel As Integer)
If Me.Lista86!Column05 < Date + 1 & Me.Verificação466 = False Then
MsgBox "Existe agenda marcada para amanhã.", , "Atenção"
Else
MsgBox "Não existe agendamento para amanhã.", , "Atenção"
End If
End Sub

 
Gostava ainda que as datas do aviso ficassem de cor vermelha e as outras preta

Você tem que fazer um loop na caixa de listagem. Veja o exemplo:


Dim i as integer

For i =  0 to Me!LisBox.ListCount
   If format(Me!ListBox.Column(1,i), "mm/dd/yyyy") <= Format(Date, "mm/dd/yyyy") Then
      ...Faça isso
   Else
      ...Faça aquilo
   End If
Next

Em que:
ListBox deve ser o nome da sua caixa de listagem
1 é a coluna onde está a data na listbox

Coloquei assim

Código:

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

For i = 0 To Me!Lista86.ListCount
  If Format(Me!Lista86.Column(5, i), "mm/dd/yyyy") <= Format(Date, "mm/dd/yyyy") Then
      MsgBox "Existe registos para despacho.", , "Atenção"
  Else
  End If
Next
End Sub

o resultado é que me avisa sempre que haja algum registo nem que seja para daqui a um mês e queria que o aviso aparecessese a data fosse hoje ou data anterior a hoje.Se só tiver datas futuras não avise.

Tente assim:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

For i = 0 To Me!Lista86.ListCount
  If Format(Date, "mm/dd/yyyy") <= Format(Me!Lista86.Column(5, i), "mm/dd/yyyy")  Then
        MsgBox "Existe registos para despacho.", , "Atenção"
  End If
Next

End Sub

Consegui assim:

Código:

Private Sub Form_Open(Cancel As Integer)
Dim i As Integer

For i = 0 To Me!Lista86.ListCount
  If Format(Date, "mm/dd/yyyy") <= Format(Me!Lista86.Column(5, i), "mm/dd/yyyy") & Me.Verificação88 = False Then
        MsgBox "Existe registos para despacho.", , "Atenção"
  End If
Next
End Sub

Agora so falta a segunda parte que é colocar esses registos anteriores à data de hoje de outra cor, por exemplo a vermelho, ou a Bold

Estive a pesquisar e parece que a cor de uma listbox é unica e não dá para colocar apenas uma linha de outra cor.   

Agradeço a ajuda, obrigado.

Dou como concluido.

Grato pelo retorno!