This statement's attempt to open the form at the desired record:
If Me.TranTypePK <= 2 Then
DoCmd.OpenForm "frmTransactionsMain", , , "TransactionsPk=" & Me.TransactionsPK, , , "Receipt"
End If
is negated by this one in the target's form Open event (specifically the .RecordSource...