Moving to record on a continuous sub-form

[tonez90]

Hi I am trying to move to a record on a sub-form (frm_MHF_Entry!SubFrm_MHFTasks) based on an item on another screen (fmractivities).
Essentially the user would select the record from a list (which has "recno") on frmactivities and when they double click it opens another form which has a continuous sub-form based on a column value from a list box. The selection and numbers are working fine.


recno is the unique identifier on the sub-form records.

I am trying to use this code but it seems not to like the "set rs = " line. Any suggestion? Sorry DB too big to post.

Dim rs As DAO.Recordset
Set rs = Forms!frm_MHF_Entry!SubFrm_MHFTasks.Recordset.Clon e <-----------SEEMS TO HOLD here and gives error 438
rs.FindFirst "[recno] = " & Me![lstActive].Column(1)
If Not rs.NoMatch Then Forms!frm_MHF_Entry!SubFrm_MHFTasks.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing

[June7]

Try

Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.RecordsetClone

note removed period between Recordset and Clone

and also

Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.Bookmark

[ArviLaanemets]

Why you don't use simply linked parent and subform - p.e. as I adviced in another thread https://www.accessforums.net/showthread.php?t=67911 . There are all elements you described - selecting a value in combobox and subform displaying records according you selection. Plus automatically adding records linked to selection, whenever you add a record into subform.

[tonez90]

Thanks for reply unfortunately the form I am calling from is a result of a Union record set (activity not closed outfrom multiple projects) and so I use the actual record (recno) along with the specific type (construction etc and project_number) in which to open a specific form (i.e. construction tasks) and thus a specific recordset (specific project and type) with appropriate filters.
I have tried opening the form to the top level project (based on project_number) and that works but when I go to use the goto record (recno) components they just don't seem to work.

Oh well I will just keep trying.

[tonez90]

Thanks this worked a treat.

Thanks for the help
This is the VBA I use from other forms
Dim rs As DAO.Recordset
Set rs = Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.Recordset Clone
rs.FindFirst "[recno] = " & Me![lstActive].Column(1)
If Not rs.NoMatch Then Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing

Try

Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.RecordsetClone

note removed period between Recordset and Clone

and also

Forms!frm_MHF_Entry!SubFrm_MHFTasks.Form.Bookmark