MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Cores de linhas ou textos do list box com cores diferentes

    Compartilhe

    pcdesignerce
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 14/02/2014

    Cores de linhas ou textos do list box com cores diferentes

    Mensagem  pcdesignerce em Dom 27 Nov 2016, 02:54

    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

    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

      Data/hora atual: Dom 04 Dez 2016, 01:53