How can a text box be scrolled in the screen

[rajendran r]

Hai Friends,
I am in the process of designing a project. On the startup screen I want a text box or a label scroll in the screen. I need help in writting code for the above.
==rajendran r

[TheSmileyCoder]

Place a textbox onto your form, then look at its properties. Set its ScrollBar property to Both, or Vertical.

Note that memo fields dragged onto a form automatically gets this property set (atleast in 2010)

[rajendran r]

Sir, Thanks in prompt guiding. But I have asked about the text box / label scrolling from left to right on the screen. Kindly do help

[TheSmileyCoder]

I don't know of any easy way of doing this. A limited form could be a timer driven event where you move the left property of a textbox, but that would only work inside the form I believe.

If you want something more fancy (and smooth) you will need to look into API calls I think. Can't help you there.

[NeoPa]

The only scrollbar available on a TextBox control is the Vertical one. Labels have none. As Smiley says, you'll need to do something outside of the box like designing your own specific control. Possible, but very advanced, and not done in VBA I believe (so we'd be unable to help in this forum generally).

[ADezii]

If you are looking for something similar to a 'Scrolling Marquee', you can accomplish this very simply.

1. Create a Text Box/Label on your Form and set its Width to that of the Form's.
2. Display no Text in the Text Box.
3. Set the Text Align Property of your Text Box to Center.
4. Set the Timer Interval of the Form to 1000 (1 second). This can be changed to adjust the 'Scrolling' display of the Characters.
5. Copy-N-Paste the following Code into the Timer() Event of the Form.
6. Open the Form.
   

   Private Sub Form_Timer()
   'Replace with your Scrolling Text
   Const conTEXT_TO_SCROLL As String = "Scrolling Text Demo"
   Static intCharCtr As Integer
    
   intCharCtr = intCharCtr + 1
    
   If intCharCtr > Len(conTEXT_TO_SCROLL) Then intCharCtr = 1
    
   Me![Text2] = Mid$(conTEXT_TO_SCROLL, 1, intCharCtr)
   End Sub
    

7. Your String will display Character by Character until the last Character, at which time the process will start over again.

[TheSmileyCoder]

I am usually the one preaching that there is nothing that can not be done in Access if you have a little Zezt, spirit and free thinking. I really should not have given up so quickly. Inspired by ADezii I tried to go another path. I have uploaded the result as a video:

and the sample db is also attached
ScrollingSplash.zip
(Saved in 2003 format, though I am unsure if the left margin property was available in 2003, so db might not open. Give it a test someone with 2003)

Just like ADezii, I made a form with a unbound textbox as wide as the form (Though it doesn't have to be). Set the timer to 100 and this code in the timer event+declaration:

Private Const m_strDisplayText As String = "TheSmileyCoders scrolling text"
 
Private Sub Form_Timer()
Static bInit As Boolean
 
   If Not bInit Then
      Static t As TextBox
      Set t = Me.tb_Scroller
      t.Value = m_strDisplayText
      'Set internal leftmargin to match width
      t.LeftMargin = t.Width - 1
      bInit = True
   End If
 
'Lngstep is how much the margin should move per iteration
   Dim lngStep As Long
   lngStep = 150 'Note for a smooth appearance, match this roughly to the size of a char
 
   'Move leftmargin until you run out of space
   If t.LeftMargin - lngStep >= 1 Then
      t.LeftMargin = t.LeftMargin - lngStep
   Else
      'Once you run out of space, eat charecters instead
      If Len(t.Value) > 1 Then
         t.Value = Mid(t.Value, 2)
      Else
         'Once you run out of charecters restart
         bInit = False
      End If
   End If
End Sub

P.S. Thanks ADezii for the inspirational nudge.

[ADezii]

@TheSmileyCoder
No problem as far as the inspirational nudge, TheSmileyCoder. I just tried to get the most effect out of the least amount of Code (LOL).

[NeoPa]

Are we talking about a control where the contents are manually scrollable (as in with a scroll-bar) or a control with automatically scrolling contents? I was thinking of the former, but if the question (which I didn't find very clear, so my interpretation may well be wrong) is about the latter then clearly there is more scope. It must be hard expressing a technical question in another language, so I'm not criticising the OP for their lack of clarity.

[rajendran r]

Thank you for handy help. Even though this has not purport the requirement, your animation works smoothly. Lot of thanks.

I have opened yr file. But i have received an error message that the database or project contains a missing or broken reference to the file "acedao.dll" version 12.0
how can i overcome this?

[TheSmileyCoder]

That would be a missing reference due to me using a newer version of access. You should be able to remove the broken reference and replace it with a newer one.

Try the following:
Open the access file
Hit Alt-F11 to open the VB editor.
Go Tools->References
You should now see a dialog box with a list of references.

I believe it is likely its the one highlight in blue that will have be missing/broken. Uncheck the reference, and find the one relevant to the version of access you are using. (There will only be one, unless you have multiple versions installed)

[rajendran r]

Sir, Thanks. I am using Access 2003 version. I could not locate the file named in your reply in the reference. However, I propose to load Access 2007 version in my system and try your code. Thank you.

[TheSmileyCoder]

As I said:

TheSmileyCoder
Uncheck the reference, and find the one relevant to the version of access you are using.

Best of luck with your project.