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


Alterar a cor dos campos quando receberem o foco

Não faz muito tempo em que eu fazia uso de uma função para alterar a cor de fundo dos campos dos formulários, com o objetivo de destacá-los, na medida em que recebessem o foco.  Para que um campo do formulário recebesse o foco, usava uma função para destacá-lo na cor desejada, no caso, a amarela e acionava novamente a função para restaurar a cor de fundo original, no caso, a cor branca, quando o campo perdesse o foco.   O problema era que eu tinha que escrever a função nos eventos Ao receber foco e Ao perder foco de cada um dos campos.  Se o formulário tivesse 30 campos era uma verdadeira canseira ter que digitar as funções. 

Veja na imagem, as funções escritas direto na lista de eventos:

Usando Access - sintaxe forms na consulta

 

Essa digitação consumia um tempo precioso e me sentia super incomodado com esta tarefa repetitiva.   Resolvi partir para o enfrentamento e pesquisar uma solução.   Assim sendo, aprendi que podemos escrever as funções nos eventos, direto pelo código. 

Criei as funções em um módulo global para que pudesse aproveitá-las em qualquer formulário que necessitasse.  Acompanhe com atenção os comentários, nas funções abaixo:

Public Function fncMontaEventos(frm As Form)
Dim ctl As Control
'--------------------------------------------------------------------------------------
'Com a instrução FOR EACH , percorreremos todos os campos do Formulário para gravar a
'função fncPintaCampo() nos eventos "Ao receber foco" e "Ao perder foco"
'--------------------------------------------------------------------------------------
For Each ctl In frm.Controls
   Select Case ctl.ControlType
      '-----------------------------------------------------------------------------
      'Escreve as funções somente nos eventos dos controles tipo caixa de texto
      '-----------------------------------------------------------------------------
   Case acTextBox, acComboBox, acListBox
      '---------------------------------------------------------------------------------
      'Monta e escreve a função fncPintaCampo() nos evento "Ao receber foco" 
      'da caixa de texto
      'Lembrando que estamos dentro do laço FOR. Significa que todas as caixas de texto 
      'receberão a função
      '---------------------------------------------------------------------------------
      ctl.OnGotFocus = "=fncPintaCampo([" & ctl.Name & "],1)"
      '--------------------------------------------------------------------------------
      'Monta e escreve a função fncPintaCampo() no evento "Ao perder foco" 
      'da caixa de texto
      '-------------------------------------------------------------------------------
      ctl.OnLostFocus = "=fncPintaCampo([" & ctl.Name & "],0)"
   End Select
Next
End Function
---------------------------------------------------------------------------

Public Function fncPintaCampo(ctl as Control, Cor As Byte)
'--------------------------------------------
'Altera a cor do campo que possui o foco
'Ao receber o foco, passa para a cor amarela
'Ao perder o foco, passa para a cor branca
'--------------------------------------------
ctl.BackColor = Switch(Cor = 0, RGB(255, 255, 255),Cor = 1, RGB(255, 253, 185))
'------------------------------------------------------
'Ao receber o foco posiciona o cursor no final do texto
'------------------------------------------------------
If Cor = 1 Then ctl.SelStart = Len(ctl.value & "")

End Function

No evento Ao carregar do formulário, basta chamar pela função fncMontaEventos() que o trabalho árduo de digitar as funções nos eventos será realizado.

Private Sub Form_Load()
Call fncMontaEventos(Me)
End Sub

Era tudo que eu queria, pois passei a ganhar um tempo enorme pelo fato de não ter que abrir campo por campo para digitar o nome da função.

Observe na imagem abaixo, o formulário exemplo que você receberá:

Usando Access - Campo cor de fundo amarelo

 

Como selecionar uma cor no Access 2007/2010 e configurar a função RGB(x,y,z) ?

Selecione a lista de propriedades de um campo qualquer e na propriedade cor do fundo, clique nas reticências [...].  Em seguida, clique no botão Mais Cores.   Veja na imagem:

Usando Access - Cor do fundo

 

Clique na guia Personalizar > Selecione o tom de cor no quadro > Com o botão deslizante, ajuste a intensidade > Ao chegar na intensidade desejada, anote os valores do RGB.  Veja na imagem abaixo:

Usando Access - Palheta de cores RGB

 

Conheça a função Switch()

É uma função do Access pouco utilizada, mas muito interessante para o nosso caso.  O que ela faz é retornar um valor correspondente, diante de uma opção válida.  Para o nosso caso, o argumento Cor está sendo utilizado para definir o valor a ser retornado.

Se Cor = 0 retorna ao valor RBG(255,255,255), que corresponde a cor branca.

Se Cor = 1 retorna ao valor RGB(255,253,185), que corresponde a cor amarela.

Se você quiser incrementar mais uma cor, por exemplo, a azul, a função ficará assim:

Switch(Cor = 0,RGB(255, 255, 255),Cor = 1,RGB(255, 253, 185),Cor = 2,RGB(236, 240, 254))

No caso da opção Cor = 2, teremos o seguinte resultado, ao executar o código:

Forms(NomeForm)(NomeControle).BackColor = RGB(236, 240, 254) 'Azul claro

A propriedade SelStart

Com esta propriedade podemos determinar a posição do ponteiro no campo.  Neste nosso caso queremos que o ponteiro se posicione sempre no final do texto, assim que campo receber o foco. 

A função Len() retorna o comprimento do texto.  Por exemplo: len("Avelino") retorna 7. 

O resultado para o código, seria esse abaixo, para o texto "Avelino":

If Cor = 1 Then Forms(NomeForm)(NomeControle).SelStart = 7

Baixe o arquivo exemplo

Desafios com este arquivo exemplo.

1) Tente implementar a possibilidade de escolher outras cores, além da amarela.  Acrescente a possibilidade de se optar pela azul, por exemplo.

Dica: deverá criar um argumento na função fncMontaEventos().  Exemplo:

Public Function fncMontaEventos(frm As Form, cor as byte)

2) Além da cor do fundo, altere o código para tornar a cor da fonte vermelha quando o campo receber o foco.

Dica:  A propriedade ForeColor , altera a cor da fonte.

3) Acrescente um controle Combobox ao formulário e altere o código para quando este receber o foco, ficar com o fundo verde.

Um bom treino e sucesso!


 

 


58 comentários

joão bola   07/11/2012 09:48:05

ótimo tuto parabens.
só uma dúvida, como eu posso fazer o efeito de pintar um controle ao passar o mouse em cima e voltar ao normal quando o mouse sair de cima dele sem ter que usar o evento ao passar o mouse de todos eles para pintar e sem ter que usar o ao passar o mouse do form para voltar ao normal pois isso faz com que tenho que usar um for next no form para pintar todos os controles da cor original?
agradeso de antemao
abrassos

Paulo Renato Neves Pinto   07/11/2012 11:49:03

Programei em Basic, Cobol e por último em Clipper por muito tempo, mas no access tenho desenvolvido sistemas simples no modo visual, encontrei as facilidades de melhorar a aparência porém esbarro sempre nos códigos. Você acabou de me enviar uma ótima dica; gostaria de verdade resolver este meu em desenvolver formulas e outras funções de códigos no assess. Caso tenhas uma apostila, livros para isto se possível for gostaria de adquirir, desde que também não seja muito caro.

MARCIO MELO - RJ   07/11/2012 12:50:45

Melhor coisa no meu e-mail é quando recebo (Usando Access - Newsletter xx) suas aulas..., eu utilizo muito dessa tática de receber foco destacar a cor de fundo e ao perder foco deixa a cor igual ao do fundo do form(Detalhe), as vezes deixo essa "árdua missão"para quando estou c paciência de copiar/colar rsrs. Sua solução como sempre super completa, didática e profissional obrigado mais uma fez por essa colaboração, o capricho de deixar o curso no final do texto que existir é espetacular, nunca tinha utilizado, sem palavras... adoro automatizar tudo ao máximo que puder...

Sou mais Brasil!!!

Wagner Cattani   07/11/2012 13:09:24

Muito bom mesmo o código, já escrevi códigos para alterar cor do preenchimento por muito tempo, até que um dia descobri algo muito interessante, muito interessante mesmo:

Abra o formulário no modo design, selecione todos os campos que você deseja mudar a cor de fundo ao ter o foco, vá na parte de formatação de texto e selecione a Cor de Plano de Fundo que deseja que os campos selecionados tenham ao ter o foco (amarelo por exemplo), logo em seguida ainda com os campos selecionados abra novamente a Cor de Plano de Fundo e selecione "Transparente" e PRONTO!!!

Agora basta percorrer os campos para ver o resultado.

:D

Marcelo - Joinville-SC   07/11/2012 13:22:03

Aceitei o Desafio....

Fiz uma agregação ao excelente cód. do Mod do Avelino........

veja abaixo meu complemento......caso alguém se interesse....

Copiar o texto abaixo substituindo do módulo criado pelo Avelino.....

'***********************************************

Option Compare Database
Public Function fncMontaEventos(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox , acComboBox, acListBox
ctl.OnGotFocus = "=fncPintaCampo([" & ctl.Name & "],1)" 'Cor Amarela
ctl.OnLostFocus = "=fncPintaCampo([" & ctl.Name & "],0)" 'Cor Branca
End Select
Next
End Function

Public Function fncPintaCampo(ctl as control, Cor As Byte)
ctl.BackColor = Switch(Cor = 0, RGB(255, 255, 255), Cor = 1, RGB(255, 255, 137))
ctl.ForeColor = Switch(Cor = 0, 2631720, Cor = 1, vbBlue)
ctl.FontWeight = Switch(Cor = 0, 0, Cor = 1, 700)
ctl.BorderColor = Switch(Cor = 0, 12040119, Cor = 1, vbRed)

If Cor = 1 Then ctl.SelStart = Len(ctl.value & "")
End Function

James Resplandes   07/11/2012 15:32:03

Cara, você é mágico!

Johnny Cardoso   07/11/2012 16:04:58

Wagner Cattani, sua técnica não funcionou?

Avelino Sampaio   07/11/2012 17:21:20

João Bola,

Veja as alterações para o seu caso:

Public Function fncMontaEventos(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox , acComboBox, acListBox
If ctl.OnMouseMove = vbNullString Then ctl.OnMouseMove = "=fncPintaCampo('" & frm.Name & "','" & ctl.Name & "',1)" 'Cor Amarela
End Select
Next

If frm.Detalhe.OnMouseMove = vbNullString Then frm.Detalhe.OnMouseMove = "=fncPintaCampo('" & frm.Name & "','limpa',0)" 'Cor Branca

End Function


Public Function fncPintaCampo(NomeForm As String, NomeControle As String, Cor As Byte)
Static campoatual As String
If NomeControle = "limpa" Then
NomeControle = campoatual
Else
campoatual = NomeControle
End If

Forms(NomeForm)(NomeControle).BackColor = Switch(Cor = 0, RGB(255, 255, 255), Cor = 1, RGB(255, 253, 185))

End Function

Sucesso!

roni lupe   07/11/2012 17:47:15

Olá Avelino!

Já passei horas, durente dias, pesquisando na internet por um código com essa função. Enfim, encontrei.

Só tenho uma duvida. Como faço para que o ponteiro se posicione no início do texto?

Obrigado!

Avelino Sampaio   07/11/2012 17:57:25

Roni Lupe,

altere a propriedade SelStart para zero.

...
...
'------------------------------------------------------
'Ao receber o foco posiciona o cursor no final do texto
'------------------------------------------------------
If Cor = 1 Then Forms(NomeForm)(NomeControle).SelStart =0

Sucesso!

Avelino Sampaio   07/11/2012 18:00:21

Wagner Cattani,

testei seu procedimento no Access 2007 e funciionou direitinho.

Fico muito agradecido por vc ter trazido esta excelente dica aqui para o artigo.

Sucesso!

Avelino Sampaio   07/11/2012 18:04:29

Marcelo - Joinville-SC,

Obrigado pela sua super contribuição.

Sucesso!

Avelino Sampaio   07/11/2012 18:06:35

Paulo Renato Neves Pinto ,

entre em contato pelo email abaixo pois tenho uma material bem legal para lhe oferecer.

avelino(arroba)usandoaccess(ponto)com(ponto)br

No aguardo

Robson Rampinelli   07/11/2012 22:40:15

Avelino, boa noite!

É sempre bom saber que tem pessoas como vc, que compartilha teus conhecimentos com os demais.

Atribui o teu código no meu sistema e funcionou nos campos normais, porem em alguns formulários tenho caixas de combinação (combobox), nesse caso, não funcionou..

Mesmo assim, muito obrigado pela contribuição.

Abraço!

Marcelo David   08/11/2012 01:13:09

Muito bom artigo! Como sempre está de parabéns!

Avelino Sampaio   08/11/2012 05:30:23

Robson Rampinelli,

fiz de propósito, como parte do desafio proposto no artigo. Veja a seguinte linha:

Case acTextBox ', acComboBox, acListBox

Observe que coloquei um apóstrofe ('), desabilitando os tipos de controle Combobox (acComboBox) e ListBox (acListaBox). Basta tirar o apóstrole que esses tipos de controles serão afetados.

Case acTextBox, acComboBox, acListBox

Sucesso!

Johnny Cardoso   08/11/2012 09:00:04

A todos os amantes e estudiosos do Access. Apenas quero registrar o quão rentável se tornou o investimento que fiz ao adquirir os produtos do Avelino. USANDOACCESS se tornou minha referência, proporcionando um trabalho com harmonia e eficiência sem igual. Recomendo pois, além de todo o conteúdo excelente, ainda podemos contar com as soluções postadas e por e.mail do Avelino. Esse é o "CARA". Abração Avelino...SUCESSO, sempre !

roni lupe   08/11/2012 10:03:36

Concordo com o Johnny, eu adquiri a coletânea do site Usando Access e já aprendi muito com os conteúdos riquíssimos da coletânea e ainda não estudei nem 30% dos conteúdos. Apesar de serem sempre muito baratos os pacotes do site, eu estou me programando para adquirir a video-aula de técnicas de invasão para aprimorar técnicas de defesa. A programação esta por conta de atingir 90% do desenvolvimento de um sistema que acredito que terá grande potencial de comercialização, sendo assim, precisarei conhecer as técnicas de defesas que o Avelino conhece. Enfim, acretido que ainda esse mês irei comprar essa video-aula, pois, tenho certeza que será mais um ótimo investimento profissional.

Recomendo a todos!

MARCIO MELO - RJ   08/11/2012 22:31:10

Eu primeiro adquiri o MontaRibbos v2.0 e já estou na v4.0, depois adquiri as Coletâneas bem no início, tenho que confirmar que realmente obtive muitos resultados positivos que podem ser comprovados na ajuda online de um dos programa q fiz utilizando o Maestro como pontapé inicial junto com o monta Ribbons, segue o link http://sic.iniciantejoomla.com/ observem no vídeo de introdução que tem muitas da funções das coletâneas, só tenho a agradecer... Moro no RJ e ainda não conheço pessoalmente o mestre Avelino, será uma honra...

Sou mais Brasil!

roni lupe   09/11/2012 08:16:13

As atualizações no arquivo exemplo são realmente significativas, quem já baixou o primeiro exemplo, recomendo que baixem também este novo arquivo.

Obrigado Avelino!

Johnny Cardoso   09/11/2012 09:16:20

O que era bom, ficou melhor ainda. Se agregar as implementações do Marcelo - Joinville-SC, fecha o pacote.

Welson Zeferino de Oliveira Junior   09/11/2012 14:41:24

Realmente e sem nenhuma dúvida todo o trabalho que o Avelino divulga em seu site é de uma riqueza sem igual.

Quem gostaria de participar do curso de vba com esse gigante? Lança aí Avelino, estamos aguardando!

Henrique Leal   13/11/2012 11:59:18

Bom dia mestre Avelino.

Perfeito esse código!
Como faço para deixar um combobox de fora do código? Pois tenho um combo de pesquisa que contem uma instrução Sql ao receber foco e após atualizar, e quando testei o código pinta eventos essas instruções são ignoradas, o que prejudica o funcionamento da pesquisa.

Muito Obrigado. Abraços

Avelino Sampaio   14/11/2012 04:44:50

Henrique,

Altere o código para desviar da combo especifica. Exemplo:

Case acTextBox, acComboBox, acListBox

if ctl.name <> "NomeDaSuaCombobox" then ctl.OnGotFocus = "=fncPintaCampo([" & ctl.Name & "],1)"

E lá no evento "Ao receber foco" da sua combobox, acrescente a função fncPintaCampo()

Private Sub NomeComboBox_GotFocus()
call fncPintaCampo(me!NomeDaComboBox,1)
Seu código aqui
End Sub

Sucesso!

Henrique Leal   21/11/2012 09:19:40

Bom dia!

Show de bola Avelino!
Deu certo, Obrigado!

Avelino, sou iniciante no Access e me confundo todo com em como escrever essas funções, principalmente no que diz respeito á "Len", "Dir", etc. ou onde usar "aspas" ou "virgulas" como no exemplo: "=fncPintaCampo([" & ctl.Name & "],1)", é sempre dificil para o iniciante saber quando concatenar igual o exemplo, onde colocar o igual e etc.

Não sei se você tem algum artigo sobre isso, o pesquisador de objetos tira muitas duvidas mas esses paramêtros um iniciante como eu pena para aprender. Com certeza ajudaria muitos iniciantes.

Um grande abraço!


Marcus Vinicius Salles   19/12/2012 12:06:05

Realmente realçar os campos em foco ajuda a leitura pelos usuários, parabéns, a solução é bastante simples e elegante. Gostaria de contribuir co a sugestão abaixo:
If Cor = 1 Then varCorAnterior = ctl.BackColor
ctl.BackColor = Switch(Cor = 0, varCorAnterior, Cor = 1, RGB(255, 253, 185))

Deste modo, ao receber o foco, a Cor original do Controle é salva e restaurada no evento LostFocus. No meu caso é interessante pois, para os campos obrigatórios no Form, eu pinto o fundo identificando-os para o Usuário.
mvsbh2005@hotmail.com

Leandro Barbosa   04/01/2013 11:36:59

Avelino, excelente!
Avelino, como automatizar para o caso de campos que não podem ficar nulos ou com valor igual a zero?
Obrigado

Leandro Barbosa   04/01/2013 12:00:47

Avelino, consegui fazer analisar campos vazios:

Public Function Evento(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
ctl.OnExit = "=AoSair(" & ctl.Name & ")"
End Select
Next
End Function

Public Function AoSair(ctl As Control)
If IsNull(ctl) Then
MsgBox "Nulo em: " & ctl.Name
DoCmd.CancelEvent
End If
End Function

Mas não consigo fazer chamar a função, uso access 2000.

Avelino Sampaio   05/01/2013 10:45:23

leandro,

insira a chamada função no evento "ao carregar" do formulário:

Private Sub Form_Load()
Call Evanto(Me)
End Sub

Sugiro que acrescente a proprieadade DIRTY(Modificado/Sujo) no código. Exemplo:

Public Function Evento(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
ctl.OnExit = "=AoSair([" & ctl.Name & "],'[" & frm.Name & "]')"
End Select
Next
End Function

Public Function AoSair(ctl As Control, frm As String)
If IsNull(ctl) And Forms(frm).Dirty Then
MsgBox "Nulo em: " & ctl.Name
DoCmd.CancelEvent
End If
End Function

Sucesso!

Leandro Barbosa   10/01/2013 09:24:33

Bom dia Avelino, obrigado pela anteção;
Consegui resolver com sua ajuda e da microsoft (http://support.microsoft.com/kb/210098/pt),
eu tinha definido o nome da função como "Evento", era esse erro, mudei para NaoVazio e funcionou como se deve, porém, sem o Dirty.
Muito obrigado Avelino

Filipe Bacelar   15/01/2013 12:19:27

Avelino muito interessante sua função uma vez que a mesma percorre todos os objetos do form e de mais fácil parametrização.

Bem em venho feito isso através da formatação condicional pois a mesma também de dispõe de uma parâmetro ao receber foco.

Abraços

Leandro Barbosa   27/03/2013 10:54:29

Avelino, você está fazendo um bom trabalho. Tenho conseguido, Graças a Deus, adaptar suas funções para minhas necessidades. Dessa vez consegui alterar o nome da fonte de um determinado rótulo dos meus formulários. Veja como ficou:

Public Function Rtl(frm As Form)
'Função adapatada por Leandro Barbosa
'Tendo como base a função demonstrada nesse link e criada pelo Sr. Avelino Sampaio
'http://www.usandoaccess.com.br/tutoriais/tuto53.asp?id=1#inicio
'No evento ao carregar dos formulários digite: Call Rtl(Me)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.ControlType = acLabel And ctl.Name = "Rótulo34" Then
ctl.FontName = "=CaptionRtl(" & ctl.Name & ")"
End If
Next
End Function

Public Function CaptionRtl(ctl As Control)
ctl.FontName = "Verdana"
End Function

Silva   20/04/2013 15:46:42

Olá, funciona muito bem o exemplo mas se fosse para alterar a fonte de um botão de comando ao mover o mouse?

Avelino Sampaio   20/04/2013 18:12:01

Silva,

observe os comentários do senhor João Bola, que tem a solução para o uso do mouse.

Sucesso!

kadhu   05/10/2013 23:20:58

boa noite ,consegui implementar o cod no meu aplicativo ,porém gostaria de trocar o amarelo ,por outra cor ,como eu faria ?obrigado

Reginaldo Nunes   02/01/2014 10:38:44

If cor = 1 Then ctl.SelfStart = Len(ctl.Value & "")

Bom dia!

Avelino Tentei adaptar o su exemplo no meu formulario mais esta dando erro na descrição acima ela fica em cor amarela porque por favor me ajude pois sou iniciante no asunto.

João Ricardo Chiodi   05/01/2014 01:05:34

Avelino, bom dia!

Parabéns e um feliz ano novo a todos.
No meu caso necessito que o campo esteja selecionado no momento em que ele recebe o foco (cursor), pois tenho algumas combos que estão marcadas inicialmente com a indicação "selecione" para o usuário.

Wellington Silva   19/02/2014 14:56:45

Grande Avelino.

Em primeiro lugar, gostaria de parabenizar pelo excelente trabalho que faz.

Tenho um dúvida, eu utilizei seu código e fiz uma adaptação, para que selecionasse somente a borda do campo secionado, até aí funcionou perfeitamente, porém tenho um problema.

Em um relatório formulário continuo, quando seleciono o campo, fica toda a coluna selecionada, tente não utilizar esse método e ocorre o mesmo erro (inserindo Me.txtFiltro.BorderColor = RGB(100, 142, 213) - eventos receber e perder foco) .

Outra coisa que notei é que quando utilizo esse código em um sub-formulário quando vlico no formulário principal o campo continua com a cor.

Minha adaptação:

Public Function fncPintaCampo(ctl As Control, cor As Byte)
'--------------------------------------------
'Altera a cor do campo que possui o foco
'Ao recebr o foco, passa para a cor Amarela
'Ao perder o foco, passa para a cor branco
'--------------------------------------------
ctl.BackColor = Switch(cor = 0, RGB(255, 255, 255), cor = 1, RGB(255, 253, 185))
'------------------------------------------------------
'Ao receber o foco posiciona o cursor no final do texto
'------------------------------------------------------
If cor = 1 Then ctl.SelStart = Len(ctl.Value & "")
End Function

Novamente agradeço pelo apoio.

Obrigado.

Wellington Silva

Wellington Silva   19/02/2014 15:00:29

Desculpa, esse foi o código:

Public Function fncPintaCampo(ctl As control, cor As Byte)
'--------------------------------------------
'Altera a cor do campo que possui o foco
'Ao recebr o foco, passa para a cor Amarela
'Ao perder o foco, passa para a cor branco
'--------------------------------------------
ctl.BorderColor = Switch(cor = 0, RGB(127, 127, 127), cor = 1, RGB(100, 142, 213))
'------------------------------------------------------
'Ao receber o foco posiciona o cursor no final do texto
'------------------------------------------------------
If cor = 1 Then ctl.SelStart = Len(ctl.Value & "")
End Function

Lembrando que no formulário contínuo fica toda a coluna "pintada"

Novamente obrigado!

Wellington

Avelino Sampaio   20/02/2014 06:47:19

Wellington,

se eu não me engano, no exemplo que ofereci, tem uma solução para formulário Contínuo que utiliza o evento AO PINTAR.

Sucesso!

Zilton Alencar   11/06/2014 10:13:18

Avelino, como aplicar estas funções a uma caixa de listagem? Meu caso é o seguinte: em uma lista de Clientes, aquele que estiver desabilitado para compras aparece na listagem, mas com uma cor diferente.

VlW!

Marcelo Costa   28/07/2014 14:56:36

Boa tarde! Tento resolver algo parecido: Tenho que confeccionar crachás com uma "barra" de cor diferente para funcionários de acordo com o setor de trabalho. Já tenho o modelo do crachá, porém gostaria de saber como fazer para o BD inserir a cor desejada partindo de um comando (como selecionar, por exemplo). Sugestão???
Desde já obrigado.

Avelino Sampaio   30/07/2014 08:20:44

Marcelo,

use a formatação condicional. Copie e cole no seu navegador o endereço abaixo, do meu artigo:

http://www.usandoaccess.com.br/dicas/dica5_1.asp

Bom estudo!

Marcelo Costa   30/07/2014 09:32:08

Obrigado professor. Vou tentar colocar em prática e posto aqui o resultado. Grande abraço.

Damasceno   15/08/2014 15:58:55

Prezado Prof. Avelino.
Funcionou muito bem obrigado pela dica.

Ednei Soares   03/10/2014 13:27:13

Avelino, boa tarde.

É possível colorir os campos de um subformulário em modo "Folha de Dados"?? Alterei o subFormTeste do PintaCampoFoco para o modo Folha de Dados mas a função não coloriu os campos.

Grato,

Paulo Sergio de Freitas Junior   22/10/2014 16:29:55

Galera, preciso de uma ajuda, tenho vários campos que quando perdem o foco executam uma ação, mas quando adiciono esse procedimento meus campos não executam mais as tarefas que criei, como faço para manter as minhas tarefas e também mudar de cor quando receber e perder foco?

Obrigado

Alexandre Alves    08/01/2015 08:24:09

Bom dia
Uso uma função para pintar um campo, mas quando fecho o formulário e abro novamente ele não está pintado, o que devo fazer? Grato.

Hephraim BF   21/04/2015 14:38:45

A função funciona perfeitamente e incrementei uma parte que por não usar a barra de status do access utilizo uma barra própria que o texto é exibido por essa função. No entanto, quando se trata de um subformulário o campo é pintado, porém, o texto não é exibido no status.

Avelino Sampaio   22/04/2015 06:28:16

Hephraim,

mostre a função usada para a barra de status.

No aguardo

Hephraim BF   22/04/2015 09:18:50

Dim vIntFormNome As String

Public Function fncMontaEventos(frm As Form)

Dim ctl As control
vIntFormNome = frm.Name
For Each ctl In frm.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox
If ctl.OnGotFocus = vbNullString Then
ctl.OnGotFocus = "=fncPintaCampo([" & ctl.Name & "],1)"
End If
If ctl.OnLostFocus = vbNullString Then ctl.OnLostFocus = "=fncPintaCampo([" & ctl.Name & "],0)"
End Select
Next

End Function

Public Function fncPintaCampo(ctl As control, Cor As Byte)

On Error Resume Next
ctl.BackColor = Switch(Cor = 0, RGB(255, 255, 255), Cor = 1, RGB(255, 253, 185))
Forms(vIntFormNome)!rotStatus.Caption = ctl.StatusBarText

End Function

Avelino Sampaio   23/04/2015 07:03:17

Hephraim

testei com a seguinte linha e funcionou para mim.

Forms("subFormTeste")!Rótulo4.Caption = ctl.StatusBarText

Eu estou entendendo que o seu rótulo "rotStatus" esteja no formulário principal e não no subformulário. Vc então tem que indicar o formulário principal na variável vintFormName

vIntFormNome = "NomeDoFormulárioPrincipal"

Sucesso!

Hephraim BF   24/04/2015 10:28:00

Obrigado Avelino pela ajuda.

Funcionou de acordo com sua proposta, no entanto, como faço a chamada em vários forms então fica trabalhoso passar o valor da variável vIntFormNome individualmente. Pois na adaptação que te passei esse valor era passado de acordo com o argumento da função fncMontaEventos.

Carlos   16/09/2015 14:00:28

Muito bom. Mas tenho um problema agora. O evento ao receber o foco nos campos dos formulários não funciona.

RipadorBR   27/06/2016 15:26:20

Boa Tarde Avelino,

Ainda não consegui fazer este módulo pintar o fundo dos Cabeçalhos e Rodapés dos formulários. Como seria o mais prático a fazer para não ter que fazer a operação em cada formulário?

Grato.

Avelino Sampaio   28/06/2016 12:07:59

RipadorBR,

veja este meu artigo que ensina como elaborar um formulário padrão:

http://www.usandoaccess.com.br/tutoriais/padronizando-formularios-e-relatorios-no-microsoft-access.asp?id=1#inicio

Bom estudo!

RipadorBR   28/06/2016 18:39:03

Boaaaaa, já implementei, ótimo tutorial. Abraço.

Rodnei Calcagnotto   08/09/2016 14:57:30

Eu não tenho mais dúvidas! Avelino Sampaio precisa ser canonizado!
Obrigado, mestre!


Envie seu comentário: