Annuler une procédur sub à distance

Question

Salut la foule

Encore un appel au secours...

Mon pb est le suivant:
soit le code suivant

Private sub extract()
     open file for input as #1
     do while eof(1)
         doevents 
         'extraire mes données
         'les ranger ds un B2D
     loop
     close #1
end sub

Le travail precedent est long et fastidieux (4127 entrees dans ma base et C pas fini)
Pour l'instant, c'est la phase de test de l'algorithme de la boucle Do...Loop
Ainsi, je ne veux pas faire toute la base
De plus, je veux pouvoir travailler sur mon MDIform, ou d'autres form de mon projet.
Pour cela j'ai intégrer un DoEvents.
C vrai, ca marche, je clique comme un fou.
C la kai le pb.
Je clic mai le btn cancel ne fait pas arreter la procedure.
je ferme la MDIform, pas de réaction, le process tourne toujours.
Voila pour l'expose

Ma question est simple?
Comment je peut faire pour arreter mon process quand je veux avec le cancel de ma form?
Est ce k1 DoEvents etait la bonne solution?
Si oui, y a t'il un complement à mettre?

(je sais, y a 3 questions...)

Merci d'avance,

PrX ,  :-(|

cs_Benzoid · Answer

Salut

Bon j'ai une solution bourrine
tu rajoute ça
Private sub extract()
open file for input as #1
do while eof(1) and b=0
doevents 
'extraire mes données
'les ranger ds un B2D
loop
close #1
end sub

et tu rajoute un commandbouton
Private Sub Command2_Click()
b = 1
End Sub

Benzoid

cs_PrX · Answer

Merci, mais le probleme a l'air plus corse.
ca marche pas.
en plus lorsque je tente de fermer mon appli, il l'a redemarre dans l'instant...
grosse galere...

cs_PrX · Answer

J'avais oublier de dimensionner ma variable...
ca marche mieux comme ca

Merci Benzoid, a une prochaine

Annuler une procédur sub à distance

3 réponses

Discussions similaires