Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
bonjour.
il faut utiliser Doevents pour que access exécute les autres actions et tu places un bouton. exemple: tu tourne 1000000 de fois dans 1000000 de fois, c'est long ..... tu places un bouton pour démarrer et un bouton pour stopper la procédure.
Dim Arrêter As Boolean Private Sub Commande0_Click() Arrêter = False Dim i As Long Dim J As Long Dim x As Double For i = 1 To 1000000 For J = 1 To 1000000 x = 123456 / 123456 * 123456 DoEvents If Arrêter Then DoCmd.Close acForm, Me.Name Exit Sub End If Next Next End Sub
Private Sub Commande1_Click() Arrêter = True End Sub
le exit sub peut être remplacer par un goto pour exécuter d'autres procédure ou il peut être insérer des fonctions de fermeture d'objets avant le exit sub. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d4d001c4537d$ace82950$ bonjour
voilà je lance une procédure evenementielle qui fait elle meme appelle à d'autres procedures le tout dure environ20 a 25 minutes
je voudrais installer un bouton d'interruption qui interrompt la procedure proprement
merci a+
ps merci raymond pour tes réponses
bonjour.
il faut utiliser Doevents pour que access exécute les autres actions et tu
places un bouton.
exemple: tu tourne 1000000 de fois dans 1000000 de fois, c'est long ..... tu
places un bouton pour démarrer et un bouton pour stopper la procédure.
Dim Arrêter As Boolean
Private Sub Commande0_Click()
Arrêter = False
Dim i As Long
Dim J As Long
Dim x As Double
For i = 1 To 1000000
For J = 1 To 1000000
x = 123456 / 123456 * 123456
DoEvents
If Arrêter Then
DoCmd.Close acForm, Me.Name
Exit Sub
End If
Next
Next
End Sub
Private Sub Commande1_Click()
Arrêter = True
End Sub
le exit sub peut être remplacer par un goto pour exécuter d'autres procédure
ou il peut être insérer des fonctions de fermeture d'objets avant le exit
sub.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" <michel.laporte@sante.gouv.fr> a écrit dans le message de
news:1d4d001c4537d$ace82950$a001280a@phx.gbl...
bonjour
voilà je lance une procédure evenementielle qui fait elle
meme appelle à d'autres procedures
le tout dure environ20 a 25 minutes
je voudrais installer un bouton d'interruption qui
interrompt la procedure proprement
il faut utiliser Doevents pour que access exécute les autres actions et tu places un bouton. exemple: tu tourne 1000000 de fois dans 1000000 de fois, c'est long ..... tu places un bouton pour démarrer et un bouton pour stopper la procédure.
Dim Arrêter As Boolean Private Sub Commande0_Click() Arrêter = False Dim i As Long Dim J As Long Dim x As Double For i = 1 To 1000000 For J = 1 To 1000000 x = 123456 / 123456 * 123456 DoEvents If Arrêter Then DoCmd.Close acForm, Me.Name Exit Sub End If Next Next End Sub
Private Sub Commande1_Click() Arrêter = True End Sub
le exit sub peut être remplacer par un goto pour exécuter d'autres procédure ou il peut être insérer des fonctions de fermeture d'objets avant le exit sub. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"michel" a écrit dans le message de news:1d4d001c4537d$ace82950$ bonjour
voilà je lance une procédure evenementielle qui fait elle meme appelle à d'autres procedures le tout dure environ20 a 25 minutes
je voudrais installer un bouton d'interruption qui interrompt la procedure proprement
merci a+
ps merci raymond pour tes réponses
3stone
Salut,
"michel" voilà je lance une procédure evenementielle qui fait elle meme appelle à d'autres procedures le tout dure environ20 a 25 minutes
je voudrais installer un bouton d'interruption qui interrompt la procedure proprement
Utilise une API pour faire cela:
http://www.mvps.org/accessfr/apis/api0030.htm
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"michel"
voilà je lance une procédure evenementielle qui fait elle
meme appelle à d'autres procedures
le tout dure environ20 a 25 minutes
je voudrais installer un bouton d'interruption qui
interrompt la procedure proprement
Utilise une API pour faire cela:
http://www.mvps.org/accessfr/apis/api0030.htm
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
