Access Updating entire record set

[kermitforney]

I am attempting to update a column for an entire recordset. I have the code to update the record that has focus, but not the entire record set.

Any and all help is greatly appreciated.

Thanks in advance,

Private Sub cmdForecastReset_Click()

Dim AvgShipped As Integer

Me![FrmRptBuyingForecasting_ItemData].SetFocus
Me![FrmRptBuyingForecasting_ItemData].Form![FutureForecast1].SetFocus
Me![FrmRptBuyingForecasting_ItemData].Form![Avg. Shipped last 4 weeks].SetFocus
AvgShipped = Me![FrmRptBuyingForecasting_ItemData].Form![Avg. Shipped last 4 weeks]
Me![FrmRptBuyingForecasting_ItemData].Form![FutureForecast1].Value = AvgShipped

End Sub

 

[PHV]

Why not use an Update query ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MazeWorX]

really you should treat it as a calculated field

=DAvg("fieldname","[tablename]","[date] between now() and now()-28)

basically this reads Average your field(all records) from your table where your date is between now and -28days(4weeks - last 4 weeks)



HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work

 

[MazeWorX]

Sorry syntax error

=DAvg("fieldname","[tablename]","[date] between now() and now()-28[red]"[/red])

HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work