Fill up frm.field value with rs.value - desperate for help 1

[TTThio]

Hi guys,

I've become really desperate here. Need a big help. :-s

My situation is:

In the main form, there's subform (number of records depend on the cbobox selection).

On the cbobox_afterUpdate()

subform.requery

set rs = subform.recordsetclone
rs.movefirst

do until rs.eof
with subform
.bookmark = rs.bookmark ' to make each value applicable for each record
.text1 = rs("text1&quot
.text2 = rs("text2&quot
end with

rs.movenext
Loop

rs.close
end sub

When I do cbobox update, it gives me error message
"Update or CancelUpdate withou Edit/AddNew"
All doesn't work.

Yet, when I try to debug it, and run the code step by step, no error message, the data in the subform is displayed as per code.

What's missing here?

Any useful idea or help is greatly appreciated.

Tin Tin

 

[JoaoTL]

Try something like this.

On the cbobox_afterUpdate()

subform.requery

set rs = subform.recordsetclone
rs.movefirst

do until rs.eof
with subform
.bookmark = rs.bookmark ' to make each value applicable for each record
.Edit ' Or .AddNew to Add
.text1 = rs("text1&quot
.text2 = rs("text2&quot
.Update
end with

rs.movenext
Loop

rs.close
end sub
-------------------------
Regards
JoaoTL
-------------------------

 

[TTThio]

Hi JoaoTL,

thank you...thank you.....

It works, I really appreciate it!!

regards,
Tin Tin