Vertically Running text based on a table as source

[Agestha]

Hi Everyone,..
This is my first post, i'm a new member and for the first i want to apoligize if my english is not good.
I'm developing an application that will be used as the display board (like flight schedule at airport). There are at least 7 fields and many records to shown, people can't access the screen so everything are have to do automaticlly, i think it's like bound running texts that run to up direction.
Let say i have a source table and i want to display all the record on a form or report (but i think i have to use report as subform to do this because text box on form can't grow although i've setted the the text box Can Grow properties on the form to yes).
My question point is : can access report do like the link above..? or maybe other question : How do to go to the next record until the last record automaticlly (VBA codes) and then back again to the first record in access report as a subform..?
Hope anybody can guide me ....any reply would be appreciated

Regards
Agestha

 

[RainLover]

In the Form's design view click on the control and view the Properties.

Change Vertical to Yes

 

[Agestha]

Thank You RainLover,...

Maybe the simple way to describe what i mean is give a link sample on a website, unfortunately i can't do that because i'm a newbie here.
I think what i mean is like scrolling text marquee with up direction, but the text are based on a table. I have codes to do that but only works on form not on report, here is the code :

Option Explicit

Private Sub Form_Load()
'MsgBox "Loading " & Me.Name & " for Scrolling."
' Set Timer Value
Me.TimerInterval = 750
End Sub

Private Sub Form_Timer()
' Scroll the Form down until it gets to the
' bottom of the recordset
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim intRecordCount As Integer
Dim intPos As Integer
On Error GoTo MyErr
Set db = CurrentDb
Set rs = Me.Recordset
With rs
intRecordCount = rs.RecordCount
rs.MoveNext
intPos = rs.AbsolutePosition
If intRecordCount - intPos < 2 Then
rs.MoveFirst
Else
' Display record position in the StatusBar
Access.SysCmd acSysCmdSetStatus, intPos
End If
MyExit:
End With
Set rs = Nothing
Exit Sub
MyErr:
MsgBox "Err=" & Err & vbCrLf & Err.Description
' Stop Timer
Me.TimerInterval = 0
Resume MyExit
End Sub


But the codes just ony work on form not on report, i have tried it on report and give erorr :

Erorr=32585
This feature is only available on ADP

Please give more direction,...thank you

 

[RainLover]

Agestha

If I understand this properly you have a form where the records scroll up the screen. And you have posted some of the code that makes this happen.

Now you want is for the same thing to happen to a report. But this is not possible as a Report is for printing.

An option may be to create a form that looks like a Report. Then when you want to print, have a different report thas is always hidden.

Other than that I am at a loss to understand or help better.

To post a link do it in two halves. This may trick the page and allow you to post. I am not sure, but worth a try.

If anybody else has some ideas please jump in.

 

[Agestha]

Thanx RainLover,...

Hope this trick work, this is the website that i want to give as the sample :

cts.pn-surabayakota

.go.id/lcd4/index.php

Please rearrange that 2 lines into 1 line as URL....

Really sad to know it's imposibble on report,..., i have to use report because text box on form can't grow although i've setted the Can Grow text box property to yes, but can grow property work nicely on report. The fields sometimes have short data and sometimes have long data, so the height of the text boxes must flexible according its contain.

Regards
Agestha

 

[RainLover]

I looked at the site you posted.

I am still not sure what you want.

Sorry.

 

[Agestha]

Rain-

Never mind, i think you had answered my problem :

If I understand this properly you have a form where the records scroll up the screen. And you have posted some of the code that makes this happen.

Now you want is for the same thing to happen to a report. But this is not possible as a Report is for printing.

you are right, that is all i want to do...and the point is report can't do that...
Thank you for all, have a nice day...

 

[RainLover]

Good luck with the project