Although this is an old post, I'm posting my reply anyway as it might help others searching for a simpler solution.
The following works for me. I just put one line of code in the Before Insert event in the sub-form:
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.txtSeqNo =...