MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Como colorir um retangulo

    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty [Resolvido]Como colorir um retangulo

    Mensagem  cacorei09 em 12/11/2019, 12:27

    Bom dia amigos do Forum:

    Estou criando um formulário e nele coloquei 3 retangulos.

    Gostaria de saber como faço para colorir (Por exemplo de amarelo, azul) esses retangulos ao clicar nele e poder escolher a cor.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Silvio em 12/11/2019, 12:42

    bom dia.. algo parecido com isso.

    Evento ao clicar

    me.nomedoretangulo.background = RGB (255,255,0 )RGB da cor vermelho


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 12/11/2019, 16:37

    Boa tarde Silvio

    criei um retângulo com o nome V01 e ao clicar no retângulo coloquei o código

    Private Sub V01_Click()
    Me.V01.Background = RGB(255, 255, 0)
    End Sub

    quando coloco o RGB no final aparece erro, e desta forma que coloquei, nada acontece.

    Se eu quisesse escolher entre duas cores? Por exemplo vermelho e azul ao clicar no retângulo?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 12/11/2019, 17:23

    Boa tarde, apenas uma correção:

    O controle retângulo não tem a propriedade Background e sim BackColor.
    E para que a cor tenha efeito precisa estar como estilo do fundo normal.

    Para por normal via VBA é assim:

    Me.V01.BackStyle = 1

    Para a cor vermelha, o rgb é "255, 0, 0"
    "255, 255, 0" é amarelo.


    Então fica assim o código para alterar a cor do retângulo:


    Me.V01.BackColor = RGB(255, 0, 0)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Silvio em 12/11/2019, 19:13

    Marcelo, boa tarde.

    Grato pelas correções.

    tabela de cores em RGB: shibolete.tripod.com/RGB.html


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 20/11/2019, 11:17

    Bom dia Marcelo

    É isso mesmo, mas se eu quiser, por exemplo, ao clicar no retângulo, escolher a cor para pintar vermelho ou azul?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 21/11/2019, 00:10

    Como o Silvio falou, no evento ao clicar do retângulo.
    Se ele estiver como fundo transparente, só funcionará
    se clicar na borda. Para contornar isso, basta definir como
    normal, estilo do fundo obrigatoriamente nas propriedades
    do formulário e não no vba.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 21/11/2019, 14:26

    Oi Marcelo.
    Em relação a isso eu entendi. Fiz conforme o Silvio falou e funcionou perfeitamente.

    Minha dúvida é se eu quiser escolher entre duas cores (Por exemplo azul ou vermelho) para pintar esse retângulo. Ou seja, clico no retângulo e ele me dá a opção de escolher a cor
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 22/11/2019, 15:43

    Veja o exemplo que desenvolvi pensando nesse tópico:

    https://www.maximoaccess.com/t36948-seletor-de-cores#252424


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 26/11/2019, 13:52

    Marcelo:

    Era isso mesmo que estava querendo.

    Tenho um BD, em anexo, que possui uma tbl_paciente e nela contem meus pacientes.

    Cada paciente tem sua ficha, como posso criar um frm para colocar esses color.

    criei um frm_odontograma e nele gostaria de puxar os pacientes.
    Anexos
    [Resolvido]Como colorir um retangulo Attachmentcolor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 3 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 26/11/2019, 14:21

    Não entendi.
    criar um frm? Formulário para cada paciente?
    Poderia detalhar mais?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 26/11/2019, 16:21

    Por exemplo:

    Quando abro o frm_odontograma, posso selecionar um paciente da tabela pacientes e fazer as inclusões nele conforme modelo anexo.
    Anexos
    [Resolvido]Como colorir um retangulo Attachmentcolor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 4 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 26/11/2019, 17:53

    você quer salvar a cor do retângulo no cadastro do paciente?
    Se sim, vi que há 6 quadrados que pertencem a cada cliente e
    cada quadrado terá uma cor. É isso?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 26/11/2019, 18:43


    Isso. A cor de cada quadrado eu seleciono, mas o importante é salvar as cores que selecionarei em cada cliente.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 26/11/2019, 20:17

    Você está usando o label ao invés do retângulo. Só para esclarecer.

    Teste o anexo por gentileza:
    Anexos
    [Resolvido]Como colorir um retangulo Attachmentcolor_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 4 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 26/11/2019, 20:49

    Obrigado amigo.

    Vou testar no meu BD e fiz os quadrados com Design Retângulo.

    Só mais uma dúvida:
    Eu tenho que fazer mais de 150 quadrados, teria como fazer outro jeito para não ter que colocar 150 campos na tbl_paciente?
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 27/11/2019, 00:36

    cacorei09 escreveu:ou testar no meu BD e fiz os quadrados com Design Retângulo.


    *No Access há um componente chamado retângulo e um chamado rótulo. Ambos tem propriedades
    diferentes, o que altera em algumas situações o código para manipula-los. Por isso temos que
    especificar os objetos que estamos usando.

    cacorei09 escreveu:Eu tenho que fazer mais de 150 quadrados, teria como fazer outro jeito para não ter que colocar 150 campos na tbl_paciente?

    Imagino que a melhor forma seja cada campo uma cor.

    E no código que pinta os retângulos do meu exemplo, tem
    o caminho para em poucas linhas chegar ao resultado que você está buscando.

    Mas como se trata de outro assunto, deve-se abrir um tópico especifico.






    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 27/11/2019, 18:12

    Boa tarde Marcelo:

    O que estou fazendo de errado no exemplo em anexo?

    Esta dando "Erro de execução em '13'
    Anexos
    [Resolvido]Como colorir um retangulo AttachmentHR.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (189 Kb) Baixado 4 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 27/11/2019, 19:34

    Precisa verificar se o campo possui cor.

    Por exemplo:

    Seu código está assim:
       
    Código:
       Me.rtg10.BackColor = Me.cbxpaciente.Column(12)
       Me.rtg11.BackColor = Me.cbxpaciente.Column(13)

    Deverá ficar assim:
       
    Código:
       If Len(Me.cbxpaciente.Column(12)) > 0 Then Me.rtg10.BackColor = Me.cbxpaciente.Column(12)
       If Len(Me.cbxpaciente.Column(13)) > 0 Then Me.rtg11.BackColor = Me.cbxpaciente.Column(13)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 27/11/2019, 22:07

    Perfeito:
    Coloquei em todas as linhas

    Private Sub subColoreRetangulos()

       Me.rtg.BackColor = Me.cbxpaciente.Column(2)
       Me.rtg01.BackColor = Me.cbxpaciente.Column(3)
       Me.rtg02.BackColor = Me.cbxpaciente.Column(4)
       Me.rtg03.BackColor = Me.cbxpaciente.Column(5)
       Me.rtg04.BackColor = Me.cbxpaciente.Column(6)
       Me.rtg05.BackColor = Me.cbxpaciente.Column(7)
       Me.rtg06.BackColor = Me.cbxpaciente.Column(Cool
       Me.rtg07.BackColor = Me.cbxpaciente.Column(9)
       Me.rtg08.BackColor = Me.cbxpaciente.Column(10)
       If Len(Me.cbxpaciente.Column(11)) > 0 Then Me.rtg09.BackColor = Me.cbxpaciente.Column(11)
       If Len(Me.cbxpaciente.Column(12)) > 0 Then Me.rtg10.BackColor = Me.cbxpaciente.Column(12)
       If Len(Me.cbxpaciente.Column(13)) > 0 Then Me.rtg11.BackColor = Me.cbxpaciente.Column(13)
       If Len(Me.cbxpaciente.Column(14)) > 0 Then Me.rtg12.BackColor = Me.cbxpaciente.Column(14)
       If Len(Me.cbxpaciente.Column(15)) > 0 Then Me.rtg13.BackColor = Me.cbxpaciente.Column(15)
       If Len(Me.cbxpaciente.Column(16)) > 0 Then Me.rtg14.BackColor = Me.cbxpaciente.Column(16)

    End Sub


    Funcionou. Agora, Só que quando troco o paciente ele não salva a cor aplicada, apenas na primeira e segunda imagem na terceira não salva.

    O que pode ser?

    Desculpa está sendo um chato mas é que estou aprendendo...
    Anexos
    [Resolvido]Como colorir um retangulo AttachmentHR.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (212 Kb) Baixado 4 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4480
    Registrado : 20/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Silvio em 28/11/2019, 12:25

    Nos eventos.....Atual, Ao Abrir e Ao Carregar, faça uma chamada na rotina dessa forma na primeira linha abaixo do private sub .

    exemplo
    Private Sub Foipaga_Click()
    Call  subColoreRetangulos()
    End if


    Teste e nos informe.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 3/12/2019, 13:14

    cacorei09 escreveu:Coloquei em todas as linhas

    Esquecestes destas:
    Código:
    Me.rtg.BackColor = Me.cbxpaciente.Column(2)
    Me.rtg01.BackColor = Me.cbxpaciente.Column(3)
    Me.rtg02.BackColor = Me.cbxpaciente.Column(4)
    Me.rtg03.BackColor = Me.cbxpaciente.Column(5)
    Me.rtg04.BackColor = Me.cbxpaciente.Column(6)
    Me.rtg05.BackColor = Me.cbxpaciente.Column(7)
    Me.rtg06.BackColor = Me.cbxpaciente.Column(10)
    Me.rtg07.BackColor = Me.cbxpaciente.Column(9)
    Me.rtg08.BackColor = Me.cbxpaciente.Column(10)

    Também as colunas na combo não estavam condizentes
    com os campos das cores.

    Você tem 14 campos de cores, mas na combo apenas tinha 12 colunas.
    Daí não tinhas como pintar os outros 4 retângulos faltantes, pois, das 12
    colunas na combo, 2 é usada para id e nome, sobrando apenas 10 para as
    cores.
    Anexos
    [Resolvido]Como colorir um retangulo AttachmentHR.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (214 Kb) Baixado 2 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    cacorei09
    cacorei09
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 20/08/2014

    [Resolvido]Como colorir um retangulo Empty como colorir um retangulo

    Mensagem  cacorei09 em 5/12/2019, 17:08

    Obrigado aos amigos.
    Funcionou perfeitamente
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2899
    Registrado : 21/04/2011

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Marcelo David em 5/12/2019, 23:59

    Grato pelo retorno, o fórum agradece!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Como colorir um retangulo Empty Re: [Resolvido]Como colorir um retangulo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 22:22