INTERROMPENDO UM LOOP

 Tópico anterior Próximo tópico Novo tópico

INTERROMPENDO UM LOOP

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#1804 - 20/12/2003 08:24:37

USUARIO.EXCLUIDOS

Cadast. em:


Como fao para interromper uma operao em um LOOP.
Exemplo: supomos que eu esteja atualizando uma base de dados muito grande, que demore uns 20 minutos e eu precise interromper a operao, por qualquer motivo. SEM usar CRTL + ALT + DEL ou coisa parecida, como posso parar a operao (IF Tecla Pressionada = VbKeyEsc Then........)
Obrigado.



Resposta escolhida #1828 - 20/12/2003 15:49:58

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


Opa!!!!!!
Bingo!


form --- keypreview = true

Dim Sai As Boolean
Dim i As Byte

Private Sub Command1_Click()
Do Until i = 100
Me.Print i
DoEvents
If Sai = True Then MsgBox "ok" & i: Exit Do
i = i + 1
Loop

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Sai = True
End Sub

Private Sub Form_Load()
Let Sai = False
End Sub

Cara.... eu adoro esses artifcios!!!
boa programao!
flw

T+,
Caju

#1830 - 20/12/2003 16:03:07

CAJU
FORTALEZA
Cadast. em:Dezembro/2003


ah.....

vc pode fazer o seguinte pra o doevents.

para vc nao executar o doevents(direto) vc sai o seguinte

If i  Mod 29 = False Then doevents ' vc coloca um numero primo..... entao a cada multiplo desse numero ele ira executar o doevents

flw

T+,
Caju

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45