utilisation Controls() dans module vba Fermé

Question

Bonjour, j'utilise régulièrement l'instruction Controls() dans mes formulaires Access. exemple d'instruction: For i = 1 To 20 Controls("Img" & Trim$(Str$(i))).Visible = False Next i je voulais utiliser cette même instruction dans une boucle timer pour déterminer si mon curseur n'était plus sur le contrôle déclencheur et le cas échéant quitter la boucle. "ctrle" est donc le nom du contrôle déclencheur de ma procédure et je teste si mon curseur est toujours sur lui dans la boucle. ça donne ça: Sub PauseSi(tps, ctrle) Dim Curseur As POINTAPI Dim lngStatus As Long tinit = Timer Do While Timer - tinit < tps lngStatus = GetCursorPos(Curseur) If Curseur.x < Controls(ctrle).Left Or Curseur.x > (Controls(ctrle).Left + Controls(ctrle).Width) Or Curseur.y < Controls(ctrle).Top Or Curseur.y > (Controls(ctrle).Top + Controls(ctrle).Height) Then GoTo TempsEcoule DoEvents Loop le problème c'est que cette procédure est dans un module et que du coup j'ai un message d'erreur "erreur de compilation: Sub ou Function non définie". dans le code d'une Form VBA connait bien Controls() mais visiblement pas dans un module. auriez vous une solution? Configuration: Windows XP / Firefox 8.0.1

blux · Answer

Salut,

erreur sur quelle ligne ?

seb4257 · Answer

oups pardon, j'oublie le principal.
il s'arrête sur "Controls(ctrle).Left" en surlignant "Controls". 
c'est pour ça que je disais qu'il ne semble plus reconnaitre  Controls()

seb4257 · Answer

en fait non ça fonctionne pas.
sur un formulaire j'ai des photos.
j'ai une "Function infos (Origine as string)" qui se déclenche lors d'un mousemove sur une image et qui doit rendre visible une zone de liste dans laquelle il y a le résultat d'une requête en rapport avec l'image qu'on survole.
pour cela, dans ma "Function infos" il y a une boucle qui permet de rendre visible ma Zone de liste X secondes.
le problème vient du fait que si je passe le curseur sur 10 images à la suite (par exemple je fais juste traverser mon curseur d'un coté a l'autre de l'écran), je lance 10 boucles timer et ça arrive a planter Access.
du coup j'essayai la boucle  citée plus haut pour sortir de la boucle si mon curseur quitte mon image, et ainsi n'avoir qu'une boucle timer active à la fois.

donc mon image appelle la function qui elle même appelle ma sub timer. c'est peux etre cette imbrication qui pose problème.


en mettant directement le code de la sub timer dans la function je n'ai plus de message d'erreur, mais ma zone de liste clignote avec un sablier.

eriiic · Answer

Bonjour,

il faudrait peut-être lui indiquer dans quel formulaire il est :
userform1.control(...) etc

eric

Utilisation Controls() dans module vba

4 réponses

Discussions similaires