This code assumes the form is open, saves any edits, and makes sure it has
focus so it can move to the new record:
Private Sub Report_Close()
With Forms("YourFormNameHere")
If .Dirty Then 'Save before move.
.Dirty = False
End If
.SetFocus
RunCommand acCmdRecordsGotoNew
End With
End Sub