Solved

adding scrolling text in access

Posted on 2007-04-02
11
1,924 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
Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

 

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

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

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

Suggested Solutions

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…
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.

679 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