wh00t
Registered User.
- Local time
- Today, 20:29
- Joined
- May 18, 2001
- Messages
- 264
I currently have working within a small access db a form which contains an overview of a trailer park, which is a series of boxes containing dlookups which obtain the number of the trailer that is occupying that space, the background of these boxes also changes colour depending on the status of the trailer, the colour values are also held in boxes using dlookups. This refreshes every 60 seconds to provide an up to date image for the user, the following script also activiates on the refresh in order to update the box colours.
I have been requested to provide this on a larger scale for a trailer park with 140 spaces and many more users, again they require it to refresh every 60 seconds, I am concerned that the amount of data being refreshed every 60 seconds will cause performance issues for the users, but I am stuck for any alternative.
Does anyone have a suggestion as to another way to do this, or other programs that could link to the database and display this whilst updating the view every 60 seconds?
Code:
Dim db As Database
Dim rs As Recordset
Dim tID As String
Dim ctID As String
Dim Num As String
Set db = CurrentDb
Set rs = db.OpenRecordset("Bay")
rs.MoveFirst
Do While Not rs.EOF
On Error Resume Next
tID = "t" & rs![Bay]
ctID = rs![Bay]
If IsNull(Me.Controls(tID)) Then
Me.Controls(ctID).BackColor = 12632256
End If
If Not IsNull(Me.Controls(tID)) Then
Me.Controls(ctID).BackColor = Me.Controls(tID)
End If
rs.MoveNext
Loop
I have been requested to provide this on a larger scale for a trailer park with 140 spaces and many more users, again they require it to refresh every 60 seconds, I am concerned that the amount of data being refreshed every 60 seconds will cause performance issues for the users, but I am stuck for any alternative.
Does anyone have a suggestion as to another way to do this, or other programs that could link to the database and display this whilst updating the view every 60 seconds?