Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Access Scroller

Status
Not open for further replies.

TechnicalScott

Technical User
Jan 26, 2005
71
GB
Hi,

I'm looking to put a scrolling banner on one of my forms which shows data that has been added on that day.
Basically its a helpdesk program and I want the most recent (todays) faults to scroll at the top so that engineers can spot urgent ones. Can the scroller have data from different fields or will it only take from one?

Any clues?

Cheers

Scott
 
I did this because it seemed like fun, but I very much dislike anything that scrolls or flashes on forms, so I would never use it.
Code:
Option Compare Database
'Declarations
Dim strScroll
Dim intCount

Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From tblProblems")
Do While Not rs.EOF
    strScroll = strScroll & rs!Description & " : " & rs!Received & " *** "
    rs.MoveNext
Loop
intCount = 1
End Sub

Private Sub Form_Timer()
'Font: Tahoma 10
'Textbox Width: 16cm
'TimerInterval: 500
Dim strShow
If Len(Mid(strScroll, intCount)) < 100 Then
    strShow = Mid(strScroll, intCount) & strScroll
    intCount = 1
End If
    
strShow = Mid(strScroll, intCount, 100)
Me.txtScroll = strShow
intCount = intCount + 1
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top