Auto Fill Text Box After Transferring Forms

First time asking a question...

I'm having difficulty having a date auto-populate when specifically
transferring from one form to the another.

I do not want the date to auto-populate every time this form is opened, only
when transferred from this particular form. Is this possible? Currently
this is what my code looks like:

Private Sub Correct_AP20_Click()
On Error GoTo Err_Correct_AP20_Click

Me!Corrected_Process = "AP20.3"
Me!Resolved = True
Me!Audited = True
Me!Resolved_Date = FormatDateTime(Now(), 2)

DoCmd.GoToRecord , , acNewRec, DataEntry
DoCmd.Close

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmAP20point3"
DoCmd.OpenForm stDocName, , , stLinkCriteria


Exit_Correct_AP20_Click:
Exit Sub

Err_Correct_AP20_Click:
MsgBox Err.Description
Resume Exit_Correct_AP20_Click

When the AP20.3 screen opens I would like it to add today's date to a field
called: Corrected_Date

Is this possible?