Public Function PopUpDetails()
Dim currentID As Long
currentID = Me.Id 'Save current record id
'edit record
DoCmd.OpenForm "frmPopUpDetails", , , "ID = " & currentID, , acDialog
'requery after edit
Me.Requery
'move back to record
Me.Recordset.FindFirst "ID = " & currentID
End Function