visual basic - retrieve values from table and perform calculation

  • Thread starter Nelson The Missing Lead
  • Start date
N

Nelson The Missing Lead

Hi,

I trying to retrieve values from a table to calculate the 14days average
value of a stock closing price. However, i encounter some problem as stated
beside the code as follows:

Function DaysAvgs()
'Calculate the average value of a given value.

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim varBookmark As Variant
Dim numAve, numDaysAvg As Double
Dim intA, intB, lngCount As Integer

Set db = CurrentDb

'Open Table
Set rst = db.OpenRecordset("SGX Individual Historical", dbOpenTable)

rst.MoveFirst

Do While Not rst.EOF
intA = 1
intB = 0
varBookmark = rst.Bookmark
numDaysAvg = 0
numAve = 0

For intA = 1 To 14
numAve = rst.Fields!Close + numAve { When run, can't find record }
intB = intB + 1
If Not rst.EOF Then
rst.MoveNext
Else
intA = 15
End If
Next intA

rst.Bookmark = varBookmark
numDaysAvg = numAve / intB
rst.Edit
rst.Fields!DaysAvg14 = numDaysAvg
rst.Update
rst.MoveNext
Loop

Set rst = Nothing
Set db = Nothing

End Function

Please help. Thank

Nelson Chou
 
N

Nelson The Missing Lead

Hi,

I have manage to locate the fault on the For and Next statement:

For intA = 1 To 14
numAve = rst.Fields!Close + numAve { When run, can't find record }
intB = intB + 1
If Not rst.EOF Then
rst.MoveNext
Else
intA = 15
End If
Next intA

The problem encounter problem when there left only 13records in the table.
But i thought i have this statement "If Not rst.EOF then rst.MoveNext Else
intA = 15" to exit the loop. It can't work........even i rewrite it with Else
Exit For (instead of intA = 15).

Any help.

Thank.

Nelson
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top