Updating Subform using recordset

[LJtechnical]

Hi All,

I have a form - subform etc, I want to update the unit price on the continuos subform for each record when the currency is changed. The following After Update procedure changes only the record which is selected, yet when I step through the loop it seems to carry out the correct number of cycles. Any ideas?

Dim Rs As Recordset
Set Rs = Forms!QuoteMain.QuoteContentQuery.Form.RecordsetClone
With Rs
.MoveFirst
Do Until Rs.EOF
'DO STUFF
.MoveNext
Loop
End With
SetCurrencyFormat ' Format the currency fields
End Sub


Cheers,

LJT

 

[PHV]

You may try this:
Dim Rs As Recordset, Bk
Bk = Forms!QuoteMain.QuoteContentQuery.Form.Bookmark
Set Rs = Forms!QuoteMain.QuoteContentQuery.Form.RecordsetClone
With Rs
.MoveFirst
Do Until Rs.EOF
Forms!QuoteMain.QuoteContentQuery.Form.Bookmark = .Bookmark
'DO STUFF
SetCurrencyFormat ' Format the currency fields
.MoveNext
Loop
End With
Forms!QuoteMain.QuoteContentQuery.Form.Bookmark = Bk
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244