Para mudar a cor da borda de um botão no Formulário ao Receber e ao Perder Foco, faça o seguinte:
Com o Formulário no modo design insira uma caixa de texto e acesse suas propriedades (F4 ou Alt + Enter).
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9A4SANSioQWyNkenwAO28L5sqw39CSvkvL9GsBUI2ePb2K3lU52MIf64JvQ0yln66eDjKMptYX4qvJPSqeuXshoju4Oxy51u-AlEbrZ6fNLP4jwK-SFfyd7xchXjK-TgoMoMj2ZursFA/s320/3.jpg)
Após feito , acesse a Propriedade “Evento” e na ação “ao receber foco” clique nos 3 pontinhos no canto direito e escolha a opção “Construtor de Código”
Dentro do Construtor do código digite “ Me.btnNome.BorderColor = RGB(0, 71, 171) ” (sem as aspas)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigWvuslFnZYu3vIHHPfxBkm-7pSxrq47O-Qw8SGgzRKLeLIAga7NCIFMV3tpSQavqENe9X1dmSUwJ1MtU2BrCJle4X3bTriWeA8sDBik1kn82GgV3IxYnRMho9IoLw5Io5a1uQ46-GVZg/s320/4.jpg)
obs: RGB (0,71,171) se refere a cor azul, na internet é possível encontrar varias tabelas com as cores e RGB.
Considerando que a cor padrão da borda de uma caixa de texto no access 2010 é cinza, podemos inserir o seguinte comando logo após o que fizemos anteriormente.
Private Sub btnNome_LostFocus()
Me.btnNome.BorderColor = RGB(182, 182, 182)
End Sub
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBwuxR6cleDx5SYpliX069IO8J6iW-3oKjmxTjkegxZkMocvcbUVjz1WuQXgBuSzzF-g9ehnj7Hh-sbfFSheOq1-imI5fsf2RVybGmQ1_xc_yO0DSqCiNx5AY2xNQhvuUy6aEhvotguYQ/s320/5.jpg)
Agora é só Salvar, fechar o construtor de código VBA e conferir o formulario.
Nenhum comentário:
Postar um comentário