C
chris.cot
Guest
Hope someone can help, is it possible to have scrolling text on a form in access?
If so how do you do it?
Cheers
If so how do you do it?
Cheers
Yes, use the OnTimer event, with an appropriate time interval, to shorten
a textbox string by one character, appending the character to the end of the strng. It will appear in the testbox to be a looped string.
a textbox string by one character, appending the character to the end of the strng. It will appear in the testbox to be a looped string.
C
chris.cot
Guest
A little confused, not done much access work and was hoping it would be easier. Can anyone explain in a dummies kind of way?Cheers
ColinEssex
Old registered user
- Local time
- Today, 22:33
- Joined
- Feb 22, 2002
- Messages
- 9,451
Had you made a search, you would have found this.
You can write a scrolling text box in access. To test this, make a blank form with a text box on it named TextBox.
100 seems to work pretty well for the TimerInterval.
Include the following code:
Option Compare Database
Option Explicit
Public Message As String
Private Sub Form_Open(Cancel As Integer)
Message = " Type your message here. If it is not longer than this text box, make sure you add additional spaces. "
End Sub
Private Sub Form_Timer()
TextBox = Message
'Get first character
Dim FChar As String
FChar = left(Message, 1)
'Remove first character
Message = Mid$(Message, 2, Len(Message) - 1)
'Put 1st character at the end of the message.
Message = Message + FChar
End Sub
This example was from a post by doulostheou - thanks to them for that - I only copied it.
Col
You can write a scrolling text box in access. To test this, make a blank form with a text box on it named TextBox.
100 seems to work pretty well for the TimerInterval.
Include the following code:
Option Compare Database
Option Explicit
Public Message As String
Private Sub Form_Open(Cancel As Integer)
Message = " Type your message here. If it is not longer than this text box, make sure you add additional spaces. "
End Sub
Private Sub Form_Timer()
TextBox = Message
'Get first character
Dim FChar As String
FChar = left(Message, 1)
'Remove first character
Message = Mid$(Message, 2, Len(Message) - 1)
'Put 1st character at the end of the message.
Message = Message + FChar
End Sub
This example was from a post by doulostheou - thanks to them for that - I only copied it.
Col
