Discussion :

[PierreDv]

Bonjour à toutes et a tous,

Voilà je bloque et j'aurai besoin de votre aide.

Je ne sais pas comment faire pour mettre une pause dans une boucle Do While.

Ce que j'aurai besoin c'est d'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Tant que mavar = ""
   wait
Fin tant que

Si quelqu'un aurai une idée ou une solution, merci de m'en faire part.
Bonne journée

Pierre

[jimbolion]

PierreDv,

Dans ce bout de code, tant que la variable t est vide la boucle continue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Do While t = ""
 
  Loop

Si j'ai bien compris ce que tu voulais

JimboLion

[mumen]

Salut Pierre, jimbolion

Pierre, j'avoue une certaine incertitude à la lecture de ton message...

Disons que quand tu parles de pause de "wait" je pense à une procédure comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Attente(prmsngDurée As Single)
    Dim sngArrêt As Single
 
    sngArrêt = Timer + prmsngDurée
    Do Until Timer > sngArrêt
        DoEvents
    Loop
End Sub

Et dans ta boucle tu places

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attente 1.5

Qui fait une pause de 1.5 seconde.

Si ce n'est pas ça ou l'essai de jimbo, je crois que tu ferais mieux de reformuler ta question !

[PierreDv]

Tout d'abord merci jimbolion et mumen pour vos réponses.

Je vais tester la solution de jimbolion.

En faite ce que je recherche c'est l'affichage d'un état plusieurs fois à la suite mais tant que j'opérateur n'a pas appuyé sur la touche suivant l'état reste affiché.

Dès l'appuis sur la touche suivant attribution d'une valeur à une variable temporaire.

A ce moment je sors de la boucle Do while mavartemp = "" loop.

Et je ferme l'état, et je l'ouvre de nouveau en changent le where dans le DoCmd.OpenReport

Voilà j'espère que ça va macher.

Merci encore
Pierre

[jimbolion]

PierreDv,

Si à l'intérieur de ta boucle, tu modifies la valeur de ta variable : cela va marcher.

Pour l'utilisation d'un timer la technique de Mumen est idéale, dans d'autres cas utilise mes 2 lignes (je n'ose pas appeler çà un code mais bon...)

JimboLion

[PierreDv]

C'est bien ce qui me semblait j'arrive sur une boucle infini et Access plante.

C'est possible d'avoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Attendre mavar = True

Une sorte de point d'arrêt, une condition à l'intérieure d'une boucle qui met en pause celle-ci et dès qu'elle est satisfaite elle la remet en route.


Merci d'avance pour votre aide.

Pierre