Discussion :

[AndréPe]

Bonjour
Access 2000

J'ai une boucle d'attente

Code :

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

1
2
3
4
5
 
Do
  s=sin(23) ' pour ralentir
   If ?????? then Exit Do
Loop

Que dois-je mettre dans la boucle pour en sortir par appui sur la touche "a" par ex ?
J'ai essayé des combinaisons avec KeyPress ou KeyCode sans succès.
Quelque chose m'échappe ndans la manipulation de ces instructions.

Merci et amitiés à tous

[Mahefasoa]

Bonjour,

Bonjour
Access 2000

J'ai une boucle d'attente

Code :

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

1
2
3
4
5
 
Do
  s=sin(23) ' pour ralentir
   If ?????? then Exit Do
Loop

Que dois-je mettre dans la boucle pour en sortir par appui sur la touche "a" par ex ?
J'ai essayé des combinaisons avec KeyPress ou KeyCode sans succès.
Quelque chose m'échappe ndans la manipulation de ces instructions.

Merci et amitiés à tous

Essayes de placer ton code dans une procédure événementielle en rapport avec les touches (OnKeyPress, OnKeyUp, ou OnKeyDown, ...). Pour savoir quel est le code Ascii de "a", utilises Asc("a") et tu le sauras.

Code :

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

1
2
 
If KeyCode = Asc("a") then Exit Do

C'est juste une idée...

Bon courage et @+

[Arkham46]

Bjr,


Tu peux gérer une variable booléenne dans ton module, dont tu changes la valeur à Vrai sur l'événement Keydown si Keycode = vbKeyA.
Tu mets la variable à Faux avant d'entrer dans la boucle et tu sors quand elle égale à Vrai.


Ou alors deuxième solution avec une petite API :

Code en entête de module :

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

private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Code :

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

1
2
3
4
Do
' Blablabla
If GetAsyncKeyState(vbKeyA) <> 0 Then  Exit Do
Loop

[AndréPe]

Merci.
J'ai suivi la suggestion de Arkham et c'est OK

Amitiés à tous