Stepping through Recordset on Timer Interval

[holmstj via AccessMonster.com]

I am trying to move through a recordset at a predetermined timer interval to
display a strip gauge on form that will change value base on row field values
in the recordset. I have run into my limitations of VBA knowledge and need
some help. I thought I might be able to pass the rs back to the timer but it
seem not to work.Please see snippet below:

Private Sub Form_Timer()
'get paramaters from recordsource DFDR Data
BrakeP3 = rsData(rs.Fields("BRAKEPress3"))
rs.MoveNext

'Move bar chart
SetBarChart BrakeP3, 100, 3000

End Sub

Public Function SetBarChart(x As Single, xmin As Single, xmax As Single)
If x <= xmin Then
Me.BarChartBar.Height = 0
ElseIf x >= xmax Then
Me.BarChartBar.Top = Me.BarChartScale.Top
Me.BarChartBar.Height = Me.BarChartScale.Height
Else
Me.BarChartBar.Height = ((x - xmin) / (xmax - xmin)) * Me.
BarChartScale.Height
Me.BarChartBar.Top = Me.BarChartScale.Top + Me.BarChartScale.Height -
Me.BarChartBar.Height
End If
Me.BarChartBar.Visible = True
End Function

Sub rsData(rs As Recordset)

Set rs = CurrentDb.OpenRecordset("DFDR Data", dbOpenForwardOnly)
rs.MoveFirst

End Sub

Variable not defiened error is given when run
Thank for any help and suggestions.
Jeff

 

[Alex Dybenko]

Hi,
you need to declare record rs at form's module level, open it at form's open
event, then you can use in at any form's module procedure.

and do not forget to close it in form's close event

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

 

[holmstj via AccessMonster.com]

Thanks Alex. However, when I try to set rs by opening a recordset in a module
I get an error that 'set' is a invalid outside procedure. Not real
experienced using modules so I am sure it is me. I have tried just opening
the recordset through the form's open event but can not refer to 'rs' in the
timer event. I can do it in the OnTimer event but it opens the recordset
each time the event occurs which is every half second.

Jeff

 

[Alex Dybenko]

No, you have to declare rs on module level, and set in open event:

dim rs as dao.recordset

sub form_open
...
set rs= ...

end sub

sub form_timer

rs.movenext
....

end sub


--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

 

[holmstj via AccessMonster.com]

Alex,

I understand know. That got it working.

Thanks for the help

Jeff