Annuler une procédur sub à distance

Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
- - Dernière réponse : cs_PrX
Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
- 25 sept. 2002 à 13:12
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 , :-(|
Afficher la suite 

3 réponses

Messages postés
9
Date d'inscription
vendredi 13 septembre 2002
Statut
Membre
Dernière intervention
26 septembre 2002
0
Merci
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
Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
0
Merci
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...
Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
0
Merci
J'avais oublier de dimensionner ma variable...
ca marche mieux comme ca

Merci Benzoid, a une prochaine