dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut
booter pour en sortir.
Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode
sur les sites.
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.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
Merci de vos réponses Manu
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents
dans la boucle, pour que access puisse reprendre la main.
pour stopper la procédure faire Ctrl + Pause
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
ew1QHYkRFHA.3704@TK2MSFTNGP12.phx.gbl...
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut
booter pour en sortir.
Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune
méthode sur les sites.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
Merci de vos réponses Manu
Jessy Sempere [MVP]
Bonjour
En passant par les API...
Voici un exemple de code que tu peux utiliser : ************************************************ Public Declare Function apiGetAsyncKeyState Lib "user32" _ Alias "GetAsyncKeyState" _ (ByVal vKey As Long) _ As Integer
Public Const VK_ESCAPE = &H1B
Public Function BreakInCode() Dim Db As Database Dim rst As Recordset Dim i As Long
Set Db = CurrentDb Set rst = Db.OpenRecordset("TaTable", dbOpenDynaset) For i = 1 To 20000 If apiGetAsyncKeyState(VK_ESCAPE) Then If MsgBox("Vous avez appuyé sur Echap! Voulez-vous arrêter le code ?", _ vbYesNo, "Confirmation d'annulation") = vbYes Then Exit For End If End If With rst .AddNew !num = i !TonChamp = i * 2 !Age = i * 3 .Update i = i + 1 End With Next rst.Close: Set rst = Nothing MsgBox "Terminé. Vous avez ajouté " & i & " enregistrements!" End Function ************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Raymond [mvp]" a écrit dans le message news:
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut
booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
Merci de vos réponses Manu
Bonjour
En passant par les API...
Voici un exemple de code que tu peux utiliser :
************************************************
Public Declare Function apiGetAsyncKeyState Lib "user32" _
Alias "GetAsyncKeyState" _
(ByVal vKey As Long) _
As Integer
Public Const VK_ESCAPE = &H1B
Public Function BreakInCode()
Dim Db As Database
Dim rst As Recordset
Dim i As Long
Set Db = CurrentDb
Set rst = Db.OpenRecordset("TaTable", dbOpenDynaset)
For i = 1 To 20000
If apiGetAsyncKeyState(VK_ESCAPE) Then
If MsgBox("Vous avez appuyé sur Echap! Voulez-vous arrêter le
code ?", _
vbYesNo, "Confirmation d'annulation") = vbYes Then
Exit For
End If
End If
With rst
.AddNew
!num = i
!TonChamp = i * 2
!Age = i * 3
.Update
i = i + 1
End With
Next
rst.Close: Set rst = Nothing
MsgBox "Terminé. Vous avez ajouté " & i & " enregistrements!"
End Function
************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message
news: uWFAMskRFHA.2748@TK2MSFTNGP09.phx.gbl...
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents
dans la boucle, pour que access puisse reprendre la main.
pour stopper la procédure faire Ctrl + Pause
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
ew1QHYkRFHA.3704@TK2MSFTNGP12.phx.gbl...
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il
faut
booter pour en sortir.
Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune
méthode sur les sites.
Voici un exemple de code que tu peux utiliser : ************************************************ Public Declare Function apiGetAsyncKeyState Lib "user32" _ Alias "GetAsyncKeyState" _ (ByVal vKey As Long) _ As Integer
Public Const VK_ESCAPE = &H1B
Public Function BreakInCode() Dim Db As Database Dim rst As Recordset Dim i As Long
Set Db = CurrentDb Set rst = Db.OpenRecordset("TaTable", dbOpenDynaset) For i = 1 To 20000 If apiGetAsyncKeyState(VK_ESCAPE) Then If MsgBox("Vous avez appuyé sur Echap! Voulez-vous arrêter le code ?", _ vbYesNo, "Confirmation d'annulation") = vbYes Then Exit For End If End If With rst .AddNew !num = i !TonChamp = i * 2 !Age = i * 3 .Update i = i + 1 End With Next rst.Close: Set rst = Nothing MsgBox "Terminé. Vous avez ajouté " & i & " enregistrements!" End Function ************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Raymond [mvp]" a écrit dans le message news:
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut
booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
Merci de vos réponses Manu
Manu
Comme indiqué j'ai inseré dans la procédure de mon bouton annuler le code
Sendkeys "^{attn}" : le code s'arrête mais j'ai aussi un message indésirable d'erreur qui m'empèche de procéder à la fermeture et suppressio des fichiers. SendKeys n'est peut-être pas la solution.
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
Merci de vos réponses Manu
Comme indiqué j'ai inseré dans la procédure de mon bouton annuler le code
Sendkeys "^{attn}" : le code s'arrête mais j'ai aussi un message
indésirable d'erreur qui m'empèche de procéder à la fermeture et suppressio
des fichiers. SendKeys n'est peut-être pas la solution.
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news: uWFAMskRFHA.2748@TK2MSFTNGP09.phx.gbl...
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents
dans la boucle, pour que access puisse reprendre la main.
pour stopper la procédure faire Ctrl + Pause
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
ew1QHYkRFHA.3704@TK2MSFTNGP12.phx.gbl...
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il
faut booter pour en sortir.
Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune
méthode sur les sites.
Comme indiqué j'ai inseré dans la procédure de mon bouton annuler le code
Sendkeys "^{attn}" : le code s'arrête mais j'ai aussi un message indésirable d'erreur qui m'empèche de procéder à la fermeture et suppressio des fichiers. SendKeys n'est peut-être pas la solution.
"Raymond [mvp]" a écrit dans le message de news:
Bonjour.
pour sortir d'urgence d'une procédure il faut placer une commande DoEvents dans la boucle, pour que access puisse reprendre la main. pour stopper la procédure faire Ctrl + Pause
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Manu" <donatrans(pas de pub)@wanadoo.fr> a écrit dans le message de news:
Bonjour,
dans mon appli j'ai une procédure plutôt longue et en cas d'erreur il faut booter pour en sortir. Je voudrais donc faire un bouton annuler mais je n'ai trouver aucune méthode sur les sites.
