Update fields in subform

P

Paul

Hi,

I have a combo box in a subform that I want to use to update otehr fields in
the same subform. If I open up the subform on its own the otehr fields
update as expected when I make a selection in the combobox, but when I open
the main form and make a selection from the combobox in the subform the
other fields don't update.

The code is the standup Afterupdate code for updating other field from a
recordset

Private Sub Combo30_AfterUpdate()
' Find the record that matches the control.

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CoID] = " & Str(Nz(Me![Combo30], 0))


If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Can anybody shed any light on this?

Thanks
 
Top