Discussion :

[soltani.slim]

Bonjour à tous,

Cette boucle ne marche pas .... savez vous pourquoi ?

Code :

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

1
2
3
4
5
Do While Num_Agence.Value = X And Num_Article.Value = Y And Num_Lot.Value = Z And Left(Type_Mouvement.Value, 1) = "E"
 
    DoCmd.GoToRecord , , acNext
 
Loop

[l@rry]

essaye une boucle

Code :

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

1
2
3
4
 
While...
 
Wend

[soltani.slim]

La boucle apparamment n'aime pas les "AND", j'ai donc fait appel à un champ d'une requete et crée un formuliare instantanée à partir de celle ci ....

Et enfin j'ai utilisé ce formulaire instantanée pour prendre le nombre d'enregistrement

En clair :

Code :

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

SELECT COUNT * FROM T_Mouvement

Puis apres je fais un formulaire instantanee de cette requete.

Ensuite, je fais appel a ce formulaire par cette instruction

Code :

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

Forms!T_Mouvement.comptage

et j'ai mis la boucle dans cette variable et enfin j'ai reussi :d:d:d:d:d::d:d:d:d:d:d:

Je suis pas VIRER et TOUT VA Bien ^^