Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

adding scrolling text in access

Posted on 2007-04-02
11
1,890 Views
Last Modified: 2009-02-18
Where is the activex/ole scrolling text. Spent too much time just looking for it in the tools box addins in access. It may be it is not included? If not how do I get it with access 2003

I just twant to simply add a text box in access with scrolling text.
Does it have a different name than simply "scrolling text"?

http://office.microsoft.com/en-us/access/HP052801351033.aspx

0
Comment
Question by:vstav
  • 7
  • 3
11 Comments
 
LVL 13

Accepted Solution

by:
adraughn earned 75 total points
ID: 18837793
just use this code on your form's OnTimer event. set your Timer Interval to 120.

adria

Sub Form_Timer()
Me.lblMyMessage.Caption = Scrolltext("Your Text")
         
         ' IDLEMINUTES determines how much idle time to wait for before
         ' running the IdleTimeDetected subroutine.
         Const IDLEMINUTES = 6
         Static PrevControlName As String
         Static PrevFormName As String
         Static ExpiredTime

         Dim ActiveFormName As String

         Dim ActiveControlName As String
         Dim ExpiredMinutes

         On Error Resume Next

         ' Get the active form and control name.
         ActiveFormName = Screen.ActiveForm.Name
         If Err Then
            ActiveFormName = "No Active Form"
            Err = 0
         End If

         ActiveControlName = Screen.ActiveControl.Name
            If Err Then
            ActiveControlName = "No Active Control"
            Err = 0
         End If

         ' Record the current active names and reset ExpiredTime if:
         '    1. They have not been recorded yet (code is running
         '       for the first time).
         '    2. The previous names are different than the current ones
         '       (the user has done something different during the timer
         '        interval).
         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then

            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ' ...otherwise the user was idle during the time interval, so
            ' increment the total expired time.
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If


         ' Does the total expired time exceed the IDLEMINUTES?
         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then


            ' ...if so, then reset the expired time to zero...
            ExpiredTime = 0
            ' ...and call the IdleTimeDetected subroutine.
            IdleTimeDetected ExpiredMinutes
         End If
End Sub


Sub IdleTimeDetected(ExpiredMinutes)
    Application.Quit acSaveYes
End Sub
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18837816
note: not tested in 2k3.
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18837824
and here is the function:

Public Static Function Scrolltext(Strfield As String) As String
'call from on timer event
Dim astr As Integer
Dim TextLen As Integer
   
   astr = astr + 1
   TextLen = Len(Strfield)
   If astr >= TextLen Then astr = 1
    Scrolltext = Mid([Strfield], astr, Len([Strfield])) & Left([Strfield], astr)
                                 
   End Function
0
Back Up Your Microsoft Windows Server®

Back up all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

 

Author Comment

by:vstav
ID: 18837858
isnt there a control i can add from the toolbox in access? instead of doing it via code above
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18837916
0
 

Author Comment

by:vstav
ID: 18837946
exactly adraughn: but i cant find that control in my toolbox so i can add it.where the h@ck is it????
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18838025
is this a db that you created in access 2003? if not, you would have to convert it to have access to the tool, since it was not available in 2k.
0
 
LVL 34

Assisted Solution

by:jefftwilley
jefftwilley earned 50 total points
ID: 18838028
'----------------------------For the Scrolling Text-------------------------
    Static strMsg As String, intLet As Integer, intLen  As Integer
    Dim strTmp As String
    Const TXTLEN = 100
    Me.TimerInterval = 10000
    If Len(strMsg) = 0 Then
        strMsg = Space(TXTLEN) & "Select an option and press Start!" ' & Space(TXTLEN) '& "More text to scroll" & Space(TXTLEN)
        intLen = Len(strMsg)
    End If
    intLet = intLet + 1
    If intLet > intLen Then intLet = 1
    strTmp = Mid(strMsg, intLet, TXTLEN)
    Me.lblScroll.Value = strTmp    '<----your label


will be added to an on_timer event for a form.
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18838059
by the way, that control can only be used in a data access page. so if you want to use scrolling text on anything else, you will have to use the code provided.

adria
0
 

Author Comment

by:vstav
ID: 18838213
well thats the problem. I want it in a simple access database client, not dap.
therefore it can only be done  through code above??
0
 
LVL 13

Expert Comment

by:adraughn
ID: 18838247
my code or jeff's. let us know if you have any issues.

adria
0

Featured Post

Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question