Aggiungi un testo scorrevole con un controllo casella di testo per catturare rapidamente l'attenzione di un utente quando si utilizza l'applicazione di Microsoft Access. In Access è possibile utilizzare Visual Basic, Applications Edition (VBA) per automatizzare il processo di testo scorrevole su un controllo . VBA è un linguaggio di programmazione per computer utilizzato per estendere le applicazioni di Microsoft Office. Utilizzare l'evento " Form.Timer " per eseguire una routine Sub che aggiornerà continuamente il contenuto nella casella di testo . Istruzioni
1

Fare clic sulla scheda "Crea " e cliccare su " Progettazione Form" per creare un nuovo modulo . Fai clic su " Casella di testo " nel pannello " Controlli " , e fare clic sul form per aggiungere un nuovo controllo casella di testo . Pulsante destro del mouse sulla casella di testo e fare clic su "Proprietà " per visualizzare la " Finestra delle proprietà ". Fare clic sulla scheda "Formato" , e impostare il " Allineamento testo " proprietà " giusto". Fare clic sulla scheda "Altro" , e digitare " txtMarqee " accanto a " Nome ".
2

destro del mouse sul modulo , fare clic su " Genera evento , " e fare doppio clic su " Generatore di codice " per lanciare la finestra di editor VBA . Premere "Ctrl " e "A " per selezionare tutto il codice di default e premere "Elimina" per rimuovere il codice .
3

Copia e incolla il seguente codice per aggiungere le variabili globali che userete nel codice:

Dim textStr As String Dim

padstr As String Dim

Txtscroll As String Dim

txtLength As Integer

dim iLength As Integer dim

iPos As Integer dim

iView As Integer dim

Irem As Integer
4

Aggiungere il codice seguente per definire il testo che verrà scorrere il controllo casella di testo :

private Sub Form_Load ( ) per

txtMarqee.SetFocus

txtMarqee.Text = " "

textStr = " Come aggiungere un testo scorrevole Casella di testo a Microsoft Access "

padstr = " "

Txtscroll = textStr & padstr

txtLength = Len ( Txtscroll ) per

iLength = Len ( padstr ) per

Me.TimerInterval = 500

iPos = 1

iView = 1

End
Sub
5

Creare una routine Sub che chiamerà la procedura sub " moveText " :

Form_Timer private Sub ( ) per

moveText

End sub ​​