MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Cores de linhas ou textos do list box com cores diferentes

    avatar
    pcdesignerce
    Novato
    Novato


    Respeito às regras : 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 Empty Cores de linhas ou textos do list box com cores diferentes

    Mensagem  pcdesignerce 27/11/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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 9/12/2016, 09:20

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 21/11/2024, 23:01