Thank you for your response!!! So I have removed the dQuery1 reference in the body of the message and also removed & _, as far as the loops, here is what I have so far but I cant figure out how to link the 2nd subform to the first. The first record doesnt run through the nested loop and then it gives me the same current record from the 2nd subform for each record in the subform. see below, (the bold is the records from the 2nd subform that keeps repeating)
New Chart Date: 5/24/2018,KCVB, TX; 11/17/2017: procedure currently NA 11/7/2017: RUNWAY NUMBER CHANGEFROM 15/33 TO 16/34, UNASSIGNED
New Chart Date: 3/1/2018,K3T5, TX; AGREED, MOVED CHART DATE TO MATCH OTHER PROC AT APT.11/21/2017: INDIVIDUAL STATUS REQ SENT, NOT ASSIGNED
PENDING IFP LINKFIX
FIX GALVESTON NDB 0 TX USFIX
New Chart Date: 5/24/2018,TX, TX; 11/9/2017: GALVESTON (GLS) NDB DECOMMISSIONED, NOT ASSIGNED
PENDING IFP LINKFIX
FIX GALVESTON NDB 0 TX USFIX
Code:
Set rs = Forms![copy of 28_day_contact_info]![28_DAY_CHART_DATE_SUBF_Qtest].Form.Recordset.CloneSet rs1 = Forms![copy of 28_day_contact_info]![28_DAY_CHART_DATE_SUBF_Qtest]![28_day_chart_date_subf_q subform].Form.Recordset.Clone
Set db = CurrentDb
rs.MoveFirst
Do Until (rs.EOF)
'apt info
dQuery = dQuery & "New Chart Date: " & rs![Chart_date] & ", " & _
rs![apt_id] & ", " & _
rs![State] & "; " & _
rs![Reason] & Chr$(13) & _
dQuery1 & Chr$(13)
dQuery1 = ""
rs1.MoveFirst
Do Until (rs.EOF)
If rs1.EOF Then GoTo NextRSRecord
'procedure info
dQuery1 = dQuery1 & rs1![task description] & _
rs1![task type description] & Chr$(13)
rs1.MoveNext
Loop
'Exit Do
NextRSRecord:
rs.MoveNext
Loop
rs.Close
rs1.Close
Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing