Use the WhereCondition with Docmd.OpenForm. (See OpenForm Method)
So if your next form is named frmTwo, the primary key field is named ID, and the current form has a control named txtID which contains the value you want to pass to the next form:
DoCmd.OpenForm "frmTwo", WhereCondition:="ID = " & Me.txtID
That suggestion assumes ID is numeric data type. If it's text, you would have to enclose the Me.txtID value with quotes when building the WhereCondition.
Edit: I didn't understand your situation clearly. Not sure I do now, either, but I suspect the easiest "code-free" solution would be to use a main form with your subsidiary forms as subfrom controls. Then by setting the link Master/Child fields property you can automagically transmit the primary key value to new records in the various subforms.
If the number of subsidiary forms is large, you can include them as separate pages in a tab control on the main form.
That approach is something Access does well and easily, without requiring extra VBA code or macros.