Make Average follow record

Del Cagle

Ok this works great, but which part of it can I change to make the "Average of the 10" stay with the current record. These averages are currently "logged" by hand, if I pull the records into a report, it will auto-log and no more human error

Private Sub cmdCalc_Click()
Dim tempTotal As Double
Dim tempVal As Double
Dim iCount As Integer
Dim i As Integer
tempTotal = 0
iCount = 0
For i = 1 To 10
tempVal = Nz(Me.Controls("Batch#" & i), 0)
If tempVal <> 0 Then
tempTotal = tempTotal + tempVal
iCount = iCount + 1
End If
Next i
Me.txtAverage = tempTotal / iCount

msquared

Create a field on the relevant table to store the value and then go to the txtAverage control in the form and in the properties window under the data tab set the control source to this field.

This will store the value with the record.

Mary

Quote:

Originally Posted by Del Cagle

Ok this works great, but which part of it can I change to make the "Average of the 10" stay with the current record. These averages are currently "logged" by hand, if I pull the records into a report, it will auto-log and no more human error

Private Sub cmdCalc_Click()
Dim tempTotal As Double
Dim tempVal As Double
Dim iCount As Integer
Dim i As Integer
tempTotal = 0
iCount = 0
For i = 1 To 10
tempVal = Nz(Me.Controls("Batch#" & i), 0)
If tempVal <> 0 Then
tempTotal = tempTotal + tempVal
iCount = iCount + 1
End If
Next i
Me.txtAverage = tempTotal / iCount

Del Cagle

Solved, thank you again :)

msquared

Quote:

Originally Posted by Del Cagle

Solved, thank you again :)

No problem.

Glad to help.

Make Average follow record

re: Make Average follow record

re: Make Average follow record

re: Make Average follow record

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about