NAO TRAVOU !

USUARIO.EXCLUIDOS 28/11/2006 02:20:33
#186646
Aew galera !!

ve c vcs me entendem...

estou no MDI, dae abro um formdeprodutos no load desse form ele tras um select da tabelaprodutos para um datagrid so q sao 33mil registros vai demorar um poko ainda mais com o access heheh

coloquei um label com uma msg "Carregando..." piscando e talz, para mostrar q naum travou, mas apos eu abrir o formdeprodutos o label naum funciona
o evento parece q para !

bom desde ja agradeco a vcs !
ESLEYSANCHES 28/11/2006 02:43:00
#186648 Resposta escolhida
Amigo, ponha em outro form, tipo carregando, depois que carregar sumir com o form, olhe o exemplo:

Talvez em anexo o Aguarde apareça rapido demias pois não tem oque carregar, mais funciona, veja se te ajude a idéia !!

Abraços !!
ESLEYSANCHES 28/11/2006 02:49:20
#186649
O exemplo acima funciona em qualquer sistema amigão pois ele é independente serve apenas para exibir a mensgem, depois de executar os procedimentos necessários você pode fechar a janela de carregando ... isso a qualquer momento incluindo a geração de um relatório, Exportação e inclundo ae a Abertura de 33Mil registros ;-)

Espero que te ajude amigão !!

Abraços !!
LIONHEART 28/11/2006 05:09:31
#186651
falta um DoEvents..
USUARIO.EXCLUIDOS 28/11/2006 12:21:27
#186748
Obrigado vo teste aki...

depois eu volto a comentar
CARINHENA 28/11/2006 12:34:54
#186752
Mas, não coloque o doevents a cada Looping!
Faça alguma conta, tipo a cada 200 registros vem um... dai é bom.
Assim, vc pode colocar o progressbar!
USUARIO.EXCLUIDOS 28/11/2006 12:54:07
#186758
No exemplo do ESLEYSANCHES eu fiz uma alteracao para mostrar o q esta acontecendo espero esclarecer melhor valew a ajuda de tds
USUARIO.EXCLUIDOS 28/11/2006 12:55:27
#186761
so eskeci de um detale o ARQUIVO hahahah la vai
USUARIO.EXCLUIDOS 28/11/2006 18:21:52
#186825
O DoEvents deve ficar após o show:

Private Sub Command1_Click()
Dim i As Double
FRM_LOAD.Show 'esse form era pra ser carregado antes do loop mas nao acontece...
DoEvents

For i = 0 To 50000000
i = i + 1
Next

Form2.Show
End Sub



Cara, mas eu recomendo que ao invés de usar o datagrid, use o FlexGrid e carregue-o com um loop (registro a registro), assim vc pode exibir uma barra de progresso...flw
USUARIO.EXCLUIDOS 28/11/2006 22:43:22
#186857
Obrigado a tds pela ajuda especialmente ao ESLEYSANCHES q resolveu meu problema
Tópico encerrado , respostas não são mais permitidas
Voltar