[Resolvido]Requery interferindo no formulário

Olá a todos do fórum.

Têm algo que me incomoda já há algum tempo.

É o seguinte, sempre utilizo um form oculto pra atualizar listbox ou campos calculados em meus projetos, no evento timer.

O que têm me incomodado é que, algumas vezes, a atualização influência na "visão" do form. Tipo: "pisca", e quando estou dentro de um controle tipo combox, no requery do form oculto, a combo "fecha", cancelando o dropdown.

Tenho percebido isto principalmente quando utilizo CtrlGuias.

Têm como resolver isto?

Será muitíssimo valiosa a sugestão dos amigos.

Sucesso à todos.

Uma saída seria verificar alteração na tabela e só em caso positivo, ativar um botão para o usuário clicar e fazer a atualização sem ser automática.

Bom dia Criquio e obrigado pela resposta.

Mas é o seguinte, utilizo listcount com compare, para atualizar caixa de listagem, que faço muito uso, para carregar formulário filtrados.

Quando assim procedo, ao identificar que houve alteração, roda uma msgbox que atualiza a listbox.

Já tentei o mesmo para resolver o problema, tentando adaptar listcount com compare, para identificar que houve alteração para menos, e então rodar a msgbox, e atualização da listbox acontecer dinamicamente sem a intervenção do usuário.

Dessa forma, fica imperceptível a atualização do campo.

É possível?

No aguardo.

não temos nada sobre isso?

Fiquei sem entender muito bem. Pelo que falou me pareceu que já tinha feito algo no sentido do que falei.

Bem, é que eu gostaria que toda atualização em listbox ou campo calculado ocorra dinamicamente sem intervenção do usuário.

Como disse, utilizando um form oculto executando requery nas listbox, a interferência visual no form.

Quando utilizo o listcount com compare, pra avisar que há uma nova linha na listbox, chamando um msgbox, há interferência é imperceptível, pois ocorre imediatamente após o click no btn ok.

Já quando tenho uma listbox que é esvaziada, gostaria que fosse atualizada automaticamente, fazendo esta atualização apenas quando ocorresse esta diferença.
Exemplo:

lista
a
b
c
===
lista
a
b
Me.lista.requery

Não sei se tô me fazendo compreender.

Você mencionou que um formulário oculto que atualiza isso. Por acaso esse oculto está atualizando todo o form ou apenas a listbox? A princípio, se ele atualizar apenas a listbox, apenas ela deveria sentir o efeito:

Código:

Forms!NomeDoForm!NomeDaListbox.Requery

ou

Código:

Forms!NomeDoForm!NomeDaListbox.RowSource = Forms!NomeDoForm!NomeDaListbox.RowSource

Lendo novamente o primeiro post do tópico, percebi que você menciona quando está dentro de uma combo e ela se atualiza, o dropdown é cancelado. Bem, isso realmente irá acontecer, pois a combo está sendo atualizada. Talvez se utilizar a segunda forma que passei no post anterior, atualizando apenas o RowSource, surta algum efeito diferente.

Bom, quando menciono a combo, não é ela que esta sendo atualizada e sim a listbox. Estou inculcado porque que a combo sofre a alteração?

Ainda não tentei:

Código:

Forms!NomeDoForm!NomeDaListbox.RowSource = Forms!NomeDoForm!NomeDaListbox.RowSource

Testarei daqui há pouco.

Inclusive, já deletei todos campos do form, por partes, pra ver se encontrava o que estava gerando o "conflito". Nada!

Tenho pensado que a solução seria o liscount com o compare!?

Olá criquio, espero está tudo bem com você.

Bom apesar de já fazer um tempo que este tópico está aberto, estou voltando pra dizer como ficou.

Ainda não me dei por satisfeito em relação ao requery a um controle referenciado de um formulário está interferindo em toda a aparência da aplicação, como se todo o form estivesse atualizando, mas depois de muito bater cabeça, acho que encontrei uma maneira de corrigir isso.

Veja o código abaixo:

Código:

Private Sub Form_Timer()
   Dim lngItens As Long
   lngItens = ListaClass.ListCount
   compare = lngItens
   Me.ListaClass.Requery
   'Forms!frm_Classificar!Lista324.Requery
   If Me.ListaClass.ListCount > CLng(compare.Value) Then
   Forms!frm_Classificar!Lista324.Requery
   SomPreto
   SomPreto
   Forms!frm_Classificar!BTN_PROXIMO.Enabled = True
   End If
   If Me.ListaClass.ListCount = 0 Then
   Forms!frm_Classificar!lbl_SemPaciente.Visible = True
   Else
   Forms!frm_Classificar!lbl_SemPaciente.Visible = False
   End If
   End Sub


Este é o código que uso num form oculto fazendo a comparação de entradas em listbox e atualizando.

Depois que fechei está parte do código  'Forms!frm_Classificar!Lista324.Requery, a interferência cessou. No clique dos botões do form principal, faço o requery da listbox que preciso estar sempre atualizada.

Um outro detalhe é que está interferência só é visível quando uso controles guia.

Se você tiver alguma dica que explique ou melhore essa rotina, fique a vontade para contribuir.

Sucesso a você Grande Mestre.

Graças a este maravilhoso fórum. Resolvido.