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

    [Resolvido]Cores de acordo com a tarefa

    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 14/7/2021, 15:29

    Bom dia meus amigos,

    Recentemente aqui no fórum eu consegui adaptar um código a minha necessidade, porém, ficou faltando apenas as cores das tarefas que eu preciso que sejam exibidas. É tipo um Planejador de atividades, com um calendário que mostra pro usuário quando ocorrerá determinado evento, onde, quando o evento for status = 0 ou 5 significam  "A REALIZAR" e os demais "NÃO REALIZADOS".

    1. Como faço para que cada linha saia em uma cor diferente, dependendo do status da tarefa? Sendo "A REALIZAR" na cor AZUL e "NÃO REALIZADOS" na cor VERMELHA?

    BD em anexo para que possam analisar.


    Att

    Kellyton
    Anexos
    [Resolvido]Cores de acordo com a tarefa AttachmentPlanner.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 21 vez(es)


    Última edição por kasa1982 em 14/7/2021, 15:31, editado 1 vez(es) (Motivo da edição : Faltou o anexo)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  Alexandre Neves 14/7/2021, 18:35

    Boa tarde
    Código:
    Private Sub PrintArray()
        On Error GoTo ErrorHandler
        Dim strCtlName As String, i As Integer
       
        For i = LBound(myArray) To UBound(myArray)
            strCtlName = "txt" & CStr(i + 1)
            Controls(strCtlName).Tag = i
            Controls(strCtlName) = ""
            Controls(strCtlName) = myArray(i, 2)
            If InStr(1, myArray(i, 2), "A REALIZAR") > 0 Then
                Controls(strCtlName).ForeColor = vbBlue
            ElseIf InStr(1, myArray(i, 2), "NÃO REALIZADOS") > 0 Then
                Controls(strCtlName).ForeColor = vbRed
            Else
                Controls(strCtlName).ForeColor = 0
            End If
        Next i
       
    ExitSub:
        Exit Sub
    ErrorHandler:
        MsgBox "erro no print"
        Resume ExitSub
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    kasa1982 gosta desta mensagem

    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 14/7/2021, 18:50

    Boa tarde Amigo,

    Fiz da forma que passou, porém, o resultado foi que o texto inteiro ficou em azul agora, veja abaixo:

    [Resolvido]Cores de acordo com a tarefa Erro110

    A linha que está realçada em amarelo deve ficar em azul e as demais em vermelho no exemplo acima.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  Alexandre Neves 14/7/2021, 19:53

    Não tinha enviado dados representativos mas mais que uma cor não será possível


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    kasa1982 gosta desta mensagem

    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 14/7/2021, 20:37

    Alexandre, vc sabe se é possível executar isso de outra forma então?

    Uma listview seria possível alterar as cores de cada linha dependendo do resultado conforme mencionei?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  Alexandre Neves 14/7/2021, 21:09

    nunca trabalhei com listview mas pode explorar
    Por mim, pensava em colocar caixas de texto para o máximo possível necessário
    Caso possam ser muitas, pensaria em caixa de listagem


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 15/7/2021, 13:20

    Obrigado

    Estava pensando na caixa de listagem, mas não consegui evoluir nas suas propriedades, tão pouco ele tem formatação condicional..

    Rs
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  Alexandre Neves 15/7/2021, 16:23

    Boa tarde
    A caixa de listagem pode pintar as linhas apenas em branco com letras pretas ou em preto com letras brancas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 20/7/2021, 21:00

    Boa tarde @Alexandre,

    Obrigado pelo teu apoio, vamos seguir e ver se alguém tem mais alguma ideia de como poderia fazer para exibir no planejamento as cores das tarefas.

    Forte abraço
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  Alexandre Neves 20/7/2021, 21:56

    Boa noite, kasa1982
    Altere a caixa de texto
    Propriedades > Dados > Formato de Texto > Rich Text

    No código
    Código:
    Private Sub LoadArray()
        Dim rs As DAO.Recordset, rsFiltered As DAO.Recordset, strSQL As String, i As Integer

        strSQL = "SELECT * from agenda order by agenda.[data dia]"
        Set rs = CurrentDb.OpenRecordset(strSQL)
       
        If Not rs.BOF And Not rs.EOF Then
            For i = LBound(myArray) To UBound(myArray)
                If myArray(i, 1) Then
                    rs.Filter = "[data dia]=" & myArray(i, 0)
                    Set rsFiltered = rs.OpenRecordset
                    Do While (Not rsFiltered.EOF)
                        Dim concluir As String
                        If rsFiltered![Concluído] = True Then
                            concluir = "A REALIZAR"
                            myArray(i, 2) = myArray(i, 2) & vbNewLine & vbNewLine _
                            & "<font color=blue>" & rsFiltered![Data Dia] & " - " _
                            & rsFiltered![Data Hora] & vbNewLine _
                            & rsFiltered![Evento] & vbNewLine _
                            & rsFiltered![ClienteNome] & " | " _
                            & rsFiltered![processo] & vbNewLine _
                            & rsFiltered![Detalhe] & vbNewLine _
                            & concluir & "</font>" & vbNewLine & vbNewLine
                        Else
                            concluir = "NÃO REALIZADO"
                            myArray(i, 2) = myArray(i, 2) & vbNewLine & vbNewLine _
                            & "<font color=red>" & rsFiltered![Data Dia] & " - " _
                            & rsFiltered![Data Hora] & vbNewLine _
                            & rsFiltered![Evento] & vbNewLine _
                            & rsFiltered![ClienteNome] & " | " _
                            & rsFiltered![processo] & vbNewLine _
                            & rsFiltered![Detalhe] & vbNewLine _
                            & concluir & "</font>" & vbNewLine & vbNewLine
                        End If
                        rsFiltered.MoveNext
                    Loop
                End If
            Next i
        End If
        rsFiltered.Close
        rs.Close

        Set rsFiltered = Nothing
        Set rs = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    kasa1982 gosta desta mensagem

    avatar
    kasa1982
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 77
    Registrado : 06/12/2018

    [Resolvido]Cores de acordo com a tarefa Empty Re: [Resolvido]Cores de acordo com a tarefa

    Mensagem  kasa1982 20/7/2021, 22:20

    Alexandre, boa noite

    BINGO amigo, obrigado, eu havia esquecido completamente do 'rich text', veja como ficou o resultado final.

    Estou dando como concluído o tópico.

    [Resolvido]Cores de acordo com a tarefa T111

      Data/hora atual: 18/9/2021, 17:10