... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Convertendo valor de cor, no formato HTML(Hexadecimal) para Decimal

Até a versão 2003 era utilizado o valor Decimal nas propriedade de um objeto para identificar a cor, porém a partir da versão 2007 passou a ser utilizado o valor HTML (Hexadecimal).  Observe na imagem abaixo, o valor selecionado de uma cor (#FCE6D4) para configurar o fundo de um campo.

Usando Access - Cor Html

 

Se necessitar utilizar a cor(#FCE6D4) pelo VBA, terá que passar para o formato Decimal.  Exemplo de como podemos transformar este valor no formato HTML (Hexadecimal) para Decimal:

Cint("&h" & "FC") :::> 252

Cint("&h" & "E6") :::> 230

Cint("&h" & "D4") :::> 212

Pegamos os valores decimais, obtidos de cada parte e passamos para a função RGB().

RGB(252,230,212) :::> 13952764 (valor decimal da cor #FCE6D4)

Para configurar a cor de fundo de um campo, pelo VBA, podemos utilizar os dois formatos válidos:

me!NomedoCampo.BackColor = 13952764
'ou
me!NomedoCampo.BackColor = RGB(252,230,212)

Segue a função que converte o valor HTML para o valor Decimal, válido no VBA:

Public Function fncCorDec(strHTML As String) As Long
Dim p(2) as integer
p(0) = CInt("&h" & Mid(strHTML, 2, 2))
p(1) = CInt("&h" & Mid(strHTML, 4, 2))
p(2) = CInt("&h" & Mid(strHTML, 6, 2))
fncCorDec = RGB(p(0),p(1),p(2))
End Function

Exemplo de uso da função:

me!NomeDoCampo.backColor = fncCorDec("#FCE6D4")

Bom estudo!


 

 


Não há comentário

Envie seu comentário: