interruption du programme [Résolu]

[xargin]

bonjour,

Je voudrais laisser la possibilité à l'utilisateur d'interrompre le script en cours, via un message box et vbyesno.
j'ai essayé des trucs, mais ca ne fonctionne pas et je ne sais pas du tout comment faire.

[lelensois16]

Bonjour ;

un petit exemple :

Code :

1
2
3
4
5
6
7
8
9
Public sub Test() 
If Msgbox "Voulez vous supprimer ces données " , vbYesNo = vbYes Then 
DoCmd.setWarnings False
DoCmd.RunSQL SQL 
DoCmd.setWarnings True 
Msgbox "Données supprimées"
Else
Exit sub 
End If

Après si tu veux interrompres un script plus complexe comme une boucle , il faudrait soit simuler Ctrl + ECHAP via Sendkeys , soit utiliser l'option DoEvents couplée avec Exit Sub

Cordialement

[Dolphy35]

salut,

Comment interrompre le programme en cours.

tu arrêter Access ?
arrêter une requête pendant un traitement ?
autre ?

c'est pas précis ....

Dolphy

[xargin]

merci pour vos reponses, mais j'ai un message d'erreur.
j'ai essaye de faire Application.DoEvents, mais access me dit qu'il ne connait pas DoEvents.

Desole Dolphy, je voudrais arreter la boucle, pour revenir a mon formulaire.

en fait, il ne passe pas dans la 2eme boucle:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim test As Double
test = MsgBox("êtes-vous sûr de vouloir commander " & titre & " ?", vbYesNo)
If (test = vbYes) Then
  newcom = "insert into COMMANDE VALUES(" & Me.NumComm & ", '" & titre & "', " & numlign & ", '" & Me.DateComm & "');"
  MsgBox (newcom)
  MsgBox ("salut2")
  CurrentDb.Execute (newcom)
Else
  Dim annulcom As Double
  annulcom = MsgBox("Vous n'avez pas commander de " & desprod & ". Voulez-vous modifier la quantité de produit ?", vbYesNo)
  MsgBox ("salut3")
  If (anulcom = vbYes) Then
     MsgBox ("salut")
  End If
End If

Les messages salut2 et salut3 s affichent, mais pas l'autre, ce qui prouve qu i l ne passe pas dans le 2eme if, mais je ne sais pas pourquoi.

j ai resolu mon probleme. J'ai inverser ma condition, et j ai pu supprimer un if.