I will try to explain this in a way to make it the easiest to understand.
1.User will select record in form 1 and click button.
2.That will open form 2 to a detail form of that record.
3.User will then select one or multiple codes from Form 2 and click order button.
4.Form 3 will open with the info from Form 2, but I am having trouble getting the codes to fill in on Form 3. This is where I need help.


Form 1 CODE

Code

Option Compare Database
Option Explicit

Private Sub RequeryForm()
    Dim SQL As String, WhereStr As String
    
    WhereStr = ""
    If Search <> "" Then
        If WhereStr <> "" Then WhereStr = WhereStr & " AND "
        WhereStr = "LocationID Like ""*" & AccountSearch & "*"""
    End If
    If NameSearch <> "" Then
        If WhereStr <> "" Then WhereStr = WhereStr & " AND "
        WhereStr = "FirstNameLastName Like ""*" & NameSearch & "*"""
    End If
    If CodeSearch <> "" Then
        If WhereStr <> "" Then WhereStr = WhereStr & " AND "
        WhereStr = "Code Like ""*" & CodeSearch & "*"""
    End If
    
    SQL = "Select * From AMSQuery"
    
    If WhereStr <> "" Then
        SQL = SQL & " Where " & WhereStr
    End If
    
    
    Me.RecordSource = SQL
End Sub
Private Sub ClearSearchBtn_Click()
    SetDefaults
    RequeryForm
End Sub


Private Sub OpenDetailbtn_Click()
    DoCmd.OpenForm "Form2", , , "LocationID=" & Me.LocationID
End Sub

Private Sub SearchBtn_Click()
    RequeryForm
End Sub

Private Sub SetDefaults()

    AccountSearch = Null
    NameSearch = Null
    CodeSearch = Null

End Sub


Code For Form2
Private Sub ExitBTN_Click()
    DoCmd.Close acForm, "Form2"
End Sub

Private Sub OrderILbtn_Click()
    DoCmd.OpenForm "RequestForm", acNormal, , , acFormAdd
    
End Sub

Form 3 Code
Option Compare Database
Option Explicit

'Private Sub IncNumber_BeforeUpdate(Cancel As Integer)
    'If Not (Me!IncNumber = "IncNumber" Or (Me!IncNumber <> 11) Or IsNull(Me!IncNumber)) Then
    'MsgBox "The Incident Number entered is less than 11 characters."
    'Cancel = True
    'End If
'End Sub


Private Sub CloseFormBtn_Click()
    DoCmd.Close acForm, "Form3", acSaveYes
    DoCmd.SelectObject acForm, "Form1"


End Sub
Private Sub Form_Load()
    
    Forms!RequestForm!Account = Forms!Form2!LocationID
    
End Sub

Private Sub SaveBtn_Click()

    If IsNull([Account]) Then
        MsgBox "You forgot to add a Y account.", vbOKOnly, "Missing Y account Warning!"
        Else
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    End If
    'ILRequestID = "IL" & Right(Year([DateAndTimeRequested]), 2) & Format(Month([DateAndTimeRequested]), "00") & Format(Day([DateAndTimeRequested]), "00") & [EntryID]
End Sub

Thank you,