Olá, estou com um list box e queria que a cor do texto ou se tiver como a linha
ficar com a cor diferente dos demais registros conforme o status.
Fiz o código abaixo mas esta mudando a cor de todos os registros e não do registro especifico
uma outra duvida seria o seguinte: o que seria esse EOF / BOF e qaundo utilizar um ou outro
desde já agradeço
ficar com a cor diferente dos demais registros conforme o status.
Fiz o código abaixo mas esta mudando a cor de todos os registros e não do registro especifico
- Código:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim status As String
strSql = "Select IdServico, Cliente, Data, DataDeEntrega, Nome, Status, LoginDesigner FROM CnsListaOS WHERE (Confirmado = -1) ORDER BY DataDeEntrega ASC;"
Me!clstOS.RowSource = strSql
Me!clstOS.Requery
Set db = CurrentDb
Set rs = db.OpenRecordset(strSql)
If rs.RecordCount = 0 Then
Exit Sub
rs.MoveFirst
Else
Do While Not rs.EOF
status = rs("[Status]")
If status = "Refugado" Then
'Altera a cor da fonte para Azul
Me.clstOS.ForeColor = RGB(0, 0, 255)
Else
'Altera a cor do fundo para Vermelha
Me.clstOS.ForeColor = RGB(255, 0, 0)
End If
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
uma outra duvida seria o seguinte: o que seria esse EOF / BOF e qaundo utilizar um ou outro
desde já agradeço