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, 2:54 am

    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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2614
    Registrado : 29/06/2012

    Re: Cores de linhas ou textos do list box com cores diferentes

    Mensagem  Noobezinho em Sex 09 Dez 2016, 9:20 am

    Paulo

    Veja um exemplo aqui:

    maximoaccess.com/t21543p17-resolvidoexemplo-jpaulo#158901


    BOF = indica o inicio de uma tabela

    EOF = indica o final de uma tabela

    Exemplo:

    Do While recordset. not EOF() = Faça enquanto não chegar no final do recordset.


    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Ter 17 Jan 2017, 2:43 am