Scrolling text question???? (1 Viewer)

[dcarr]

I have a form that I would like to apply scrolling text to? The form is part of a piece of work I am assisting with my brother with? I would like the scrolling text to read 'Welcome to the main menu of Michaels gym, etc......', is there any easy way of integrating this into a form? Thanks

 

[ColinEssex]

Hi

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

 

[dcarr]

I have created a blank form and have copied the coade, as well as creating a text box and naming it TextBox, but it still does not seem to work? I am using Access 97? Thanks

 

[R6Flyer]

You will also need to set the timer interval as Col suggested. Start off with a value of 100 and experiment with different values to get the result you require.

 

[ColinEssex]

You have put the appropriate code in the OnOpen event and the OnTimer code in the OnTimer and set the TimerInterval at 100 and under the Option Explicit you have put "Public Message as String"?

It does work, trust me I'm a biker

Col

 

[dcarr]

Thanks guys that worked.

 

[ghudson]

Ricky Hicks has a great sample db @ UtterAccess.com that shows how to have scrolling text "string" in a text box, label and the status bar. You have to be a member of UtterAccess [it is free] to access the Archive Samples section.

Here is the link to the Scrolling Text sample:
Scrolling Text Examples

Here is where you sign up to join UtterAccess:
UtterAccess Registration

Using Ricky's method, I posted a sample on how to use the contents of a table for scrolling on this forum here: scrollingmessageboard.zip

HTH

 

[Sharkiness]

Thanks for the solution it's working great horizontally.

Is there any way to have the marquee scrolling vertically?

Cheers