Interesting. Thanks. I used your code but when called I am getting an "Object doesn't support this property or method error" and when I select Debug the line that begins "I = ..." is highlighted.
This code is on the On Change event of a combo box in frmMainInfo
Code:
Dim I As Long
I = Forms!frmMain!frmMainMyProj.CurrentRecord
DoCmd.RunCommand acCmdSaveRecord
Forms!frmMain!frmMainMyProj.Form.Requery
DoCmd.GoToRecord acDataForm, Forms!frmMain!frmMainMyProj, acGoTo, I
Is this problem that the user is clicking in another subform so there is no CurrentRecord in frmMainMyProj?