Discussion :

[Zhebulon]

Bonjour @ tous !

Venant de finir une base de données, je voudrais dans un formulaire Apropos faire défiler du texte de haut en bas dans un contrôle pour indiquer quelques infos sur la base. Ne voyant pas trop comment gérer ce genre de contrôle, je suis allée dans la FAQ Access à la recherche dudit renseignement.
J'ai trouvé ceci :

Comment faire défiler un texte dans un formulaire

auteur : Maxence HUBICHE
Dans votre formulaire vous mettez une étiquette (lblInfos) contenant le texte voulu.
Mettre la propriété minuterie de l'onglet événements à 500 (ms).
En regardant bien les propriétés des évènements du Formulaire, vous trouverez la propriétés SurMinuterie.
Dedans, vous choisissez [Procédure évènementielle], vous cliquez sur les 3... à droite et vous tombez dans la procédure :

Private sub Form_Timer()
lblInfos.Caption = Mid(lblInfos.Caption, 2) & Left(lblInfos.Caption, 1)
End Sub

Seulement, à quoi correspond le contrôle lbInfos ? Où le trouve-t'on dans Access ?
Sinon, y a t'il une autre solution, car il n'esp pas signalé si dans ce contrôle le texte défile verticalement ou horizontalement....
Merci beaucoup

[Invité]

Bonjour

Pourtant l'explication de Maxence est clair.

Dans votre formulaire vous mettez une étiquette (lblInfos)

lblInfos est le nom d'un label que tu dois créer dans un formulaire, et le texte défilera horizontalement.

Starec

[Zhebulon]

Mais, un label, c'est bien une étiquette ?
Dans l'onglet évènement du contrôle, je ne trouve pas la propriété minuterie... C'est pour celà que je me suis dis, si çà se trouve, celà correspondait à un autre contrôle.... Mais si effectivement, c'est une étiquette, où est la propriété sur Minuterie ? Je suis sur Access 2000.

Merci beaucoup

[FreeAccess]

Bonjour,

Je me permets de répondre à la place de Starec...

Mais si effectivement, c'est une étiquette, où est la propriété sur Minuterie ?

Dans le code proposé, il s'agit de l'événement "Sur minuterie" du Formulaire.... :

Code :

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

1
2
3
Private sub Form_Timer()
lblInfos.Caption = Mid(lblInfos.Caption, 2) & Left(lblInfos.Caption, 1)
End Sub

Bonne continuation...

[Invité]

Bonjour,

Je me permets de répondre à la place de Starec...

Merci, mais je n'étais pas là hier aprés-midi, et même si j'ai entamé le dialogue, le compléter et apporter des eclaircissements est bon pour tous.

Starec