Colegas... Por incrível que pareça estou tendo problemas no código a seguir...
Tenho uma Data extraida da coluna de uma lista...
Preciso efetuar duas comparações
1 - Se a data da lista > Date e < Date + 90 dias
2 - Se a dara da lista < Date
Porem existindo na lista dois registros com (possibilidade 1 e 2) o código sempre remete a mesma condição na linha em vermelho..
Sub MudaCor()
Dim StrData, StrData_1 As Date
Dim i As Integer ' row placeholder
StrData_1 = DateAdd("d", 90, Date)
For i = 1 To lvxObj.ListItems.Count
' Define which row
Set lstItem = lvxObj.ListItems(i)
'Carrega na variável o valor da segunda coluna
StrData = lstItem.ListSubItems.Item(1)
MsgBox StrData
'Seta a cor basedo em um critério
If StrData > Date Then And StrDate < StrData_1 Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).Bold = True
lstItem.ListSubItems.Item(1).ReportIcon = 6
ElseIf StrDate < Date Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).ReportIcon = 11
lstItem.ListSubItems.Item(1).Bold = True
Else
lstItem.ListSubItems.Item(1).ForeColor = vbBlack
End If
Next i
Me.lstCNH.Requery
End Sub
Se puderem ajudar fico grato.
Tenho uma Data extraida da coluna de uma lista...
Preciso efetuar duas comparações
1 - Se a data da lista > Date e < Date + 90 dias
2 - Se a dara da lista < Date
Porem existindo na lista dois registros com (possibilidade 1 e 2) o código sempre remete a mesma condição na linha em vermelho..
Sub MudaCor()
Dim StrData, StrData_1 As Date
Dim i As Integer ' row placeholder
StrData_1 = DateAdd("d", 90, Date)
For i = 1 To lvxObj.ListItems.Count
' Define which row
Set lstItem = lvxObj.ListItems(i)
'Carrega na variável o valor da segunda coluna
StrData = lstItem.ListSubItems.Item(1)
MsgBox StrData
'Seta a cor basedo em um critério
If StrData > Date Then And StrDate < StrData_1 Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).Bold = True
lstItem.ListSubItems.Item(1).ReportIcon = 6
ElseIf StrDate < Date Then
lstItem.ListSubItems.Item(1).ForeColor = vbRed
lstItem.ListSubItems.Item(1).ReportIcon = 11
lstItem.ListSubItems.Item(1).Bold = True
Else
lstItem.ListSubItems.Item(1).ForeColor = vbBlack
End If
Next i
Me.lstCNH.Requery
End Sub
Se puderem ajudar fico grato.