Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Caixa de combinação não muda cor de fundo.

Thel
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Out 19, 2018 9:23 am

Caixa de combinação não muda cor de fundo.

Mensagem por Thel »

Bom dia,

Tenho uma caixa de combinação em um formulário do Access que muda a cor do fundo ao receber o foco.
Fiz este código para exibir uma mensagem de erro, caso a caixa de combinação esteja vazia, e coloquei-o no evento AO SAIR da caixa de combinação:

Código: Selecionar todos

If IsNull(CaixaCombinacao) Or IsEmpty(CaixaCombinacao) Or CaixaCombinacao = "" Then
MsgBox "É necessário preencher este campo!", vbCritical, "Erro"
Me.CaixaCombinacao.SetFocus
Cancel = True

Else
End If
O foco volta para a caixa de combinação perfeitamente (se bem que nem precisava usar a propriedade SetFocus neste caso, porque a instrução "Cancel = True" já faz isso), mas a cor do fundo da caixa de combinação não muda. Já tentei de tudo e não consegui resolver.

Alguém aí tem ideia de como posso resolver isso?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Caixa de combinação não muda cor de fundo.

Mensagem por webmaster »

Se tirar o Cancel = True funciona?


Thel
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Out 19, 2018 9:23 am

[RESOLVIDO] Re: Caixa de combinação não muda cor de fundo.

Mensagem por Thel »

Oi amigo!
Não, mesmo tirando o "Cancel = True" o problema persistia. Mas já achei a solução: o problema era um módulo que eu havia colocado para mudar a cor de fundo de todos os controles do formulário e descobri que ele estava atrapalhando. Apaguei esse módulo e funcionou perfeitamente.

Mas, obrigado pela atenção.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder