Olá pessoal!
Será que podem me ajudar com esta formatação em VB?
Eu tenho este caso num TextBox NãoAcoplado chamado txtSituação:
=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))
E não estou conseguindo criar uma formatação em VB para mudar de cor, conforme o caso Venceu ontem/Vence hoje/Vence amanhã/Deve
Private Sub Form_Current()
Select Case Situação
Case "DataS", "ConsultaServiços"
=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))
If [txtDataS] = "Venceu ontem" Then
Me.txtSituação.ForeColor = vbRed
ElseIf [txtDataS] = "Vence hoje" Then
Me.txtSituação.ForeColor = vbYellow
ElseIf [txtDataS] = "Vence amanhã" Then
Me.txtSituação.ForeColor = vbGreen
ElseIf [txtDataS] = "Deve" Then
Me.txtSituação.ForeColor = vbBlack
End If
End Select
End Sub
Desde já, eu agradeço!
Paulo César
Será que podem me ajudar com esta formatação em VB?
Eu tenho este caso num TextBox NãoAcoplado chamado txtSituação:
=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))
E não estou conseguindo criar uma formatação em VB para mudar de cor, conforme o caso Venceu ontem/Vence hoje/Vence amanhã/Deve
Private Sub Form_Current()
Select Case Situação
Case "DataS", "ConsultaServiços"
=SeImed([DataS]=Data()-2;"Deve";SeImed([DataS]([DataS]=Data();"Vence hoje";SeImed([DataS]=Data()+1;"Vence amanhã";SeImed([DataS]
=Data()-1;"Venceu ontem")))))
If [txtDataS] = "Venceu ontem" Then
Me.txtSituação.ForeColor = vbRed
ElseIf [txtDataS] = "Vence hoje" Then
Me.txtSituação.ForeColor = vbYellow
ElseIf [txtDataS] = "Vence amanhã" Then
Me.txtSituação.ForeColor = vbGreen
ElseIf [txtDataS] = "Deve" Then
Me.txtSituação.ForeColor = vbBlack
End If
End Select
End Sub
Desde já, eu agradeço!
Paulo César