[Resolvido] Como evitar que a tela pisque durante a execução da macro?

Tem alguma macro pra isso?

O que a macro que faz a tela piscar executa? Se você detalhar melhor os acontecimentos seria muito mais fácil poder ajudar.

Essa macro serve pra cada vez q eu alterar a caixa de texto. Aí as teclas F2 e ESC são acionadas.
Isso faz com q a tela fique piscando toda vez q eu digito uma tecla diferente na caixa.


Private Sub txtBusca_Change()
Me.Recalc
SendKeys "{F2}"
SendKeys "{Esc}"

End Sub

Vi que seu evento fica numa caixa de texto para busca. Há várias maneiras de fazer uma busca/filtragem. Uma delas aciona as sendkeys (esta que você usa) e de quebra desativa o "Num Lock", e também mexe em todo o formulário quando, em certas ocasiões, só deveria mexer no controle a ser filtrado.

Anexe seu banco com os objetos envolvidos para que possamos adaptar uma forma de busca/filtragem que não faça o formulário piscar.

Se puder me ajudar tbm a substituir esse F2 eu agradeceria ,pois toda vez q coloca letra maiúscula na caixa de texto, ele entende q eu estou apertando o SHIFT+F2 e abre a opção de zoom.

Nesse arquivo q te mandei a tela não pisca... Mas no meu arquivo original tem uma figura e ela fica piscando

Desculpe, mas é q eu não posso mandar o original e esqueci de adicionar a figura nesse.

Fiz modificações no código por trás do evento "Ao alterar" do txtBusca e na linha de critérios da "origem da linha" do controle ListaBusca.

Estude as modificações e tente adaptar no seu projeto original.

Vi que você tem outro tópico sobre um assunto bem parecido. Se tiver substituído combobox por listbox e não usar mais a forma anterior, então não esqueça de dá retorno no tópico que foi aberto.

https://www.maximoaccess.com/t37270-caixa-de-combinacao-com-2-colunas

SALVOU!

Muito obrigada!
Genial