Set focus on specific record on continuous form

[ezybusy]

Hi guys,
i have a continuous form which display a list of all available records. AllowEdits and AllowDataEntry are set to false on the contiuous form.
Then we have a button CmdViewDetails next to each record on the continuous form.
Upon clicking that CmdViewDetails button, a new form pops up in modal mode, allowing the user to see details of the record.
Now when the user edits the record on the new form, i want the focus on the continuous form to remain on the currently edited record.

i have the following code, placed on the AfterUpdate Event of the new form.

Dim RecPosition As LongRecPosition = Me.CurrentRecord


[Forms]!
[ListStockInventories].Form.Requery ' we requery the continuous form to reflect changes
[Forms]!
[ListStockInventories].Form.InvID_PK.SetFocus
[Forms]!
[ListStockInventories].Form.Recordset.Move RecPosition ' I want to set the focus on the currently edited record

the above code works, but not as expected. Instead of pointing to the actual record, it sets the focus to the previously edited record.

any help would be appreciated.
Thanks,

[pbaldy]

Try:

http://www.baldyweb.com/Requery.htm

[ezybusy]

Awesome!!!
Thank you pbaldy
Exactly what i needed.
Anyone following the same logic like me (set focus on current record on subform) , below is the way i did it:

Private Sub SetFocusOnCurrentRec()Dim lngPK As Integer
lngPK = Me.InvID_PK
[Forms]!
[ListStockInventories].Form.Requery
With [Forms]!
[ListStockInventories].Form.RecordsetClone
  .FindFirst "InvID_PK = " & lngPK
  If .NoMatch Then
    MsgBox "Record not found!", vbCritical
  Else
    [Forms]!
[ListStockInventories].Bookmark = .Bookmark
  End If
End With
End Sub

Then in the afterupdate event of the record editing form you call it:

Call SetFocusOnCurrentRec

NOTE: if you open the editing form under other circumstances (not only from the continuous form) then, you may consider checking if the continuous form is opened, in order to avoid any error. something like the following:

If CurrentProject.AllForms("yourcontinuousformname").IsLoaded Then        
Call SetFocusOnCurrentRec
End If

i haven't done the checking though, since i don't need it. But i believe it makes sense.

[pbaldy]

Happy to help!