Texte defilante

Signaler
-
Messages postés
13880
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 janvier 2021
-
bonsoir
j'ai un soucis avec ma formulaire nommée :" Reconnaissance faciale " avec plusieurs champs . le champs: "Numéro parents" contenant les numéros des parents. je veux faire défiler le numéro téléphone qui s'affiche dans le champs.
jai essaye ceci mais qui marche pas :

Option Compare Database
Dim Défiler_Cmp As Integer
Dim Défiler_Champ As String
Dim Défiler_ValeurChamp As String
Private Sub Form_Load()

Défiler_Cmp = 0
Me.TimerInterval = 40 ' indiquer 0 pour supprimer l'évènement timer

End Sub

Private Sub Form_Timer()

If Défiler_Cmp = 0 Then
Défiler_Champ = "Contact parents"
Défiler_ValeurChamp = "Contact parents"
With Me.Controls(Défiler_Champ)
.FontName = "Contact parents"
.FontItalic = False
.FontBold = True
.FontSize = 12
Me.Controls(Défiler_Champ) = Space(.Width / (.FontSize * 6)) & Défiler_ValeurChamp
Défiler_Cmp = Len(Me.Controls(Défiler_Champ))
End With
End If

Me.Controls(Défiler_Champ).ForeColor = RGB(Défiler_Cmp, Défiler_Cmp, Défiler_Cmp)
Me.Controls(Défiler_Champ) = Mid$(Me.Controls(Défiler_Champ), 2)
Défiler_Cmp = Défiler_Cmp - 1

End Sub

1 réponse

Messages postés
13880
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 janvier 2021
780
bonjour,
"marche pas": que se passe-t'il?
merci de tenir compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code