Problème avec une boucle folle [Résolu]

[FtF Nemesis]

Bonjour,

Actuellement j'ai une procédure qui ne veut pas s'arreter, comme si elle était bouclée à l'infini alors qu'elle ne l'est pas :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Proc1 ()
call Fction ( 4, "ACERMI")
end sub
 
Public function Fction (Int as integer, Str as string)
dim I as integer
for I =1 to Int
msgbox " Numéro " & I & " de la certification " & Str
End function

J'aimerai savoir si quelqu'un sait pourquoi ça boucle à l'infini, et ce que je peux faire pour arréter la bocle sans fermer Access, car tout n'est pas sauvegardé.

Merci d'avance

[paidge]

Bonjour,

Tu n'as pas fermé ta boucle :

Code :

1
2
3
for I =1 to Int
msgbox " Numéro " & I & " de la certification " & Str
Next I

Par contre, je me trompe peut-être, mais je pense que tu es obligé de fermer ACCESS avec un violent Ctrl+Alt+Suppr

[FtF Nemesis]

En fait il boucle l'ensemble :

ça m'affiche : "numéro 1 de la certification ACERMI"
puis "numéro 2 de la certification ACERMI"
puis "numéro 3 de la certification ACERMI"

Jusque là c'est parfait et c'est là que ça recommence indéfiniement, alors qu'il n'y a pas de boucle loop dans mon code, c'est à n'y rien comprendre !

[FtF Nemesis]

Ahhhhhhhhhhhhhhhhhhhh, je suis trop bête !
Merci beaucoup, tu sais comment en sortir sans quitter Access ?????

[Godzestla]

tu sais comment en sortir sans quitter Access ?????

<Ctrl>+<Break> ..... avec conviction !!!!