Ajouter un texte défilant à l'aide d'un contrôle de zone de texte pour saisir rapidement l'attention d'un utilisateur lors de l'utilisation de votre application Microsoft Access. Dans Access , vous pouvez utiliser Visual Basic pour Applications ( VBA) pour automatiser le processus de défilement de texte sur un contrôle. VBA est un langage de programmation informatique utilisé pour étendre les applications Microsoft Office. Utilisez l'événement " Form.Timer " pour exécuter une sous-procédure qui sera continuellement mettre à jour le contenu de la boîte de texte. Instructions
1

Cliquez sur l'onglet "Créer" et cliquez sur " Form Design " pour créer une nouvelle forme . Cliquez sur " Zone de texte " sur le volet «contrôle» , et cliquez sur le formulaire pour ajouter un nouveau contrôle de zone de texte. Cliquez-droit sur la zone de texte et cliquez sur "Propriétés" pour afficher la " Feuille de propriétés. " Cliquez sur l'onglet "Format" , et définir le " Text align" propriété de « droite». Cliquez sur l'onglet "Autres" , et tapez " txtMarqee " à côté de " Nom ".
2

clic droit sur le formulaire , cliquez sur " Créer l'événement " et double -cliquez sur " Générateur de code " pour lancer la fenêtre de l'éditeur VBA. Appuyez sur " Ctrl" et "A" pour sélectionner tout le code par défaut , puis appuyez sur «Supprimer» pour supprimer le code .
3

Copier et coller le code suivant pour ajouter des variables globales que vous utiliserez dans votre code:

textStr Dim As String

padstr Dim As String

txtScroll Dim As String

txtLength As Integer

iLength As Integer

iPos As Integer

iView As Integer

IREM As Integer
4

Ajoutez le code suivant pour définir le texte qui défilera à travers le contrôle zone de texte :

Private Sub Form_Load ( )

txtMarqee.SetFocus

txtMarqee.Text = ""

textStr = " Comment ajouter un chapiteau boîte de texte défilant à Microsoft Access "

padstr = ""

txtScroll = textStr & padstr

txtLength = Len ( txtScroll )

iLength = Len ( padstr )

Me.TimerInterval = 500

iPos = 1

iView = 1

End Sub

5

Créer une sous-procédure qui appelle la " moveText " sous procédure :

Form_Timer Private Sub ()

moveText

End sub ​​

6

créer le « moveText " sous procédure qui va réellement faire défiler le texte affiché dans le contrôle de zone de texte :

moveText Private Sub ()

txtMarqee.SetFocus
< p> txtMarqee.Text = Mid ( txtScroll , introductions en bourse, iView )

IREM = txtLength - (IPOS + iView - 1)

Si l'épargne (PAPE - 1) <( txtLength - iLength ) puis

Si iView < 20 et iView < IREM puis

iView iView = + 1

End If

Si iPos < txtLength Et iView > = 20 Alors

IPOS IPOS = + 1

End If Else

txtMarqee.Text = ""

iPos = 1

iView = 1

End If End Sub

7

Revenez à Microsoft Access et cliquez sur l'icône "Affichage" pour exécuter le programme. Le texte défini dans la quatrième étape va commencer à faire défiler la zone de texte.