Inhoud

• routebeschrijving

Voeg een selectiekader toe met behulp van een besturingselement in een tekstvak om de aandacht van de gebruiker te trekken bij het gebruik van Microsoft Access. Het is mogelijk om Visual Basic for Applications (VBA) te gebruiken om het scrollen van tekst in een controller te automatiseren. VBA is een programmeertaal die wordt gebruikt om Microsoft Office-toepassingen uit te breiden. Gebruik de gebeurtenis "Form.Timer" (vormtijd) om een ​​subprocedure uit te voeren die de inhoud van het tekstvak continu bijwerkt.

routebeschrijving

Gebruik VBA in Access om een ​​besturingselement bij te werken (Comstock / Comstock / Getty Images)

1. Klik op het tabblad "Maken" en vervolgens op "Formulierproject" om een ​​nieuw formulier te maken. Druk op "Tekstvak" in het deelvenster Bedieningselementen en vervolgens op het formulier om een ​​nieuw tekstvakbeheer toe te voegen. Klik met de rechtermuisknop op het tabblad "Formaat" en stel de eigenschap "Tekstuitlijning" in op "Rechts". Druk op het tabblad "Overige" en typ "txtMarquee" onder "Naam".

2. Klik met de rechtermuisknop op het formulier, vervolgens op "Gebeurtenis opbouwen" en dubbelklik op "Code Builder" om het venster van de VBA-editor te openen. Druk op "Ctrl" en "A" om alle standaardcodes te selecteren en druk vervolgens op "Verwijderen" om de code te verwijderen.

   
   

3. Kopieer en plak de volgende code om globale variabelen toe te voegen die u in uw code zult gebruiken:

   Dim textStr As String Dim padstr als String Dim txtScroll As String Dim txtLength As Integer Dim iLength As Integer Dim As Integer Dim iView As Integer Dim As Integer

4. Voeg de volgende code toe om de tekst te definiëren die het besturingselement van het tekstvak zal doorlopen:

   Private Sub Form_Load () txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Een tekstvaktype toevoegen aan Microsoft Access" padstr = "" txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Maak een subproces dat de "moveText" zal noemen:

   Private Sub Form_Timer () moveText End Sub

6. Maak de "moveText" subprocedure die daadwerkelijk door de tekst scrolt die wordt weergegeven in het tekstvakbeheer:

   
   

   Private Sub moveText ()

   txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   Als iView <20 And iView <iRem Then iView = iView + 1 End If

   If iPos <txtLength And iView> = 20 Then iPos = iPos + 1 End If Else txtMarqee.Text = "" iPos = 1 iView = 1 End If End Sub

7. Ga terug naar Microsoft Access en klik op het pictogram "View" om het programma uit te voeren. De tekst die in stap 4 is gedefinieerd, bladert door het tekstvak.