[Resolvido]Como colorir um retangulo

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.

bom dia.. algo parecido com isso.

Evento ao clicar

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

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?

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, boa tarde.

Grato pelas correções.

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

Bom dia Marcelo

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

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.

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

Veja o exemplo que desenvolvi pensando nesse tópico:

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

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.

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

Por exemplo:

Quando abro o frm_odontograma, posso selecionar um paciente da tabela pacientes e fazer as inclusões nele conforme modelo anexo.

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?

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

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

Teste o anexo por gentileza:

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?

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.

Boa tarde Marcelo:

O que estou fazendo de errado no exemplo em anexo?

Esta dando "Erro de execução em '13'

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)

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(
   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...

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.

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.

Obrigado aos amigos.
Funcionou perfeitamente

Grato pelo retorno, o fórum agradece!