stay on specific record of continuous form after saving

[mainerain]

I have a continuous subforum whereby I would like to stay on the current record after making a change and not have the focus go to the top record in the listing after the change.



Hopefully that makes sense. Stating the right question is key to the right answer. Not exactly easy sometimes. Thanks.

[Minty]

Assume you are refreshing the form after the change?
There as usual a number of ways to achieve this depending on the circumstances.

Normally the easiest way is to requery the forms recordset - not the form itself, that should leave you on the same record.

Maybe post up what code you have that is refreshing/requerying the form?

[Micron]

Not sure, but requery of recordset would reload and make the first record current, but refresh would not? The answer to the problem may depend on what the "changes" are. If it's editing existing then maybe refresh would do the job but the form cycle property may need to be set to 'current record'. If it's about deleting or adding records, that won't do it - you'd need to bookmark the current record, requery the form and then make the current record that of the bookmark. I can't recall if the bookmark for the current record will still be valid after records are added or deleted (sucks getting old but it's better than the alternative). If not, you could get the record id instead and go to it after then append/delete operation.

[mainerain]

So, I resolved my issue. I was using requery when I shouldn't have. Ended up using the following code.

Private Sub Form_Current()Dim lngPK As Long
        On Error Resume Next
'       This code must come before code after the ************ to work correctly


'       used to highlight row that is currently selected
'       see subform OnCurrent event for Conditional Formatting
        Me.SelectedID = ID




        lngPK = Me.ID


'       *********************************************************


'       Remembers which record it was on before saving. Stays on current record
'       https://www.baldyweb.com/Requery.htm


        With Me.RecordsetClone
        .FindFirst "ID=" & lngPK
        
        If .NoMatch Then
        MsgBox "Record Not Found!", vbCritical
        
        Else
        Me.Bookmark = .Bookmark
        End If
        End With


'       sets caption for button
        Me.btnCheckboxWeight.Caption = "CK" & vbCrLf & "BX" & vbCrLf & "WT"
End Sub