Running Message board

[hmfjohan]

Ik zou in het hoofdscherm van een applicatie graag zo''n lopende informatie regel willen laten zien. Zoals RTL-Z dat op tv heeft.
In combinatie met Access kan ik helemaal niets vinden op het internet. Is er iemand op dit forum die me een richting (of liever een totale oplossing) kan geven hoe dit mogelijk zou kunnen?

Mvg
Johan

 

[OctaFish]

Je moet dan een tekstvak (of label, dat maakt niet zoveel uit) maken die met een functie de tekst aanpast in je formulier op basis van het Timer event.
De functie is deze:

Private Static Function Scrolltext(Strfield As String) As String
'call from on timer event
Dim iStr As Integer
Dim TextLen As Integer
   
    iStr = iStr + 1
    TextLen = Len(Strfield)
    If iStr >= TextLen Then iStr = 1
    Scrolltext = Mid([Strfield], iStr, Len([Strfield])) & Left([Strfield], iStr)

End Function

En op je formulier krijg je dan deze code voor een tekstvak:

Private Sub Form_Timer()
    Me.Text1.Value = Scrolltext("Vandaag is het warm!  ")  'Refer to the unbound text box
End Sub

Of, als je een veld wilt laten veranderen, dan verander je de code in:

    Me.Dept.Value = Scrolltext(Me.Dept)  'Refer to the unbound text box

Vergeet niet om de Timer interval aan te passen; standaard staat deze op 0, en dan gebeurt er niks. Een waarde van 1000 laat de tekst rouleren op een seconde.

 

[hmfjohan]

Het werkt ! super bedankt.