Set rs = q.OpenRecordset()

Private Sub cmd_pdf_Click()
Dim t As String
t = 1
Dim q As DAO.QueryDef
Dim rs As DAO.Recordset
  Set q = CurrentDb.QueryDefs("PDF_rep_q")
  Set rs = q.OpenRecordset()
  Do While Not rs.EOF
     rs.Edit
     DoCmd.OpenReport "PDF_rep", acViewPreview, , "[id_pat]=" & rs!id_pat
        DoCmd.OutputTo acOutputReport, "PDF_rep", "PDFFormat(*.pdf)", _
        "D:\PDF\" & t & ".pdf", False, "", , acExportQualityPrint
                        DoCmd.close acReport, "PDF_rep"
  t = t + 1
   rs.MoveNext
Loop
rs.close
q.close: Set q = Nothing
End Sub

SELECT patients.id_pat, 
patients.lab_num, 
patients.date_in, 
patients.familia, 
patients.id_organization, 
patients.id_test, 
patients.otvet
FROM patients
WHERE (((patients.date_in) Between [Forms]![journal]![date_1] And [Forms]![journal]![date_2]) AND ((patients.id_organization)=[Forms]![journal]![cmb_organization]) 
AND ((patients.otvet) Is Not Null));

Private Sub cmd_pdf_Click()
Dim rs As DAO.Recordset
Dim t As String
Set rs = CurrentDb.OpenRecordset("SELECT patients.id_pat, patients.lab_num, patients.date_in, patients.familia, " _
    & "patients.id_organization, patients.id_test, patients.otvet" _
    & "FROM patients " _
    & "WHERE patients.id_organization=" & Forms!journal!cmb_organization & " And patients.otvet Is Not Null AND" _
    & " patients.date_in Between #" & Format(Forms!journal!date_1, "mm\/dd\/yyyy") & "# And #" _
    & Format(Forms!journal!date_2, "mm\/dd\/yyyy") & "#")
Do While Not rs.EOF
t = Format(rs!date_in, "dd\.mm\.yyyy") + "_" + [journal_subform].Form![id_organization].Column(1) + "_" + str(rs!lab_num) + "_" + rs!familia
     DoCmd.OpenReport "PDFG", acViewPreview, , "[id_patients]=" & rs!id_pat
        DoCmd.OutputTo acOutputReport, "PDFG", "PDFFormat(*.pdf)", _
        "D:\PDF\" & t & ".pdf", False, "", , acExportQualityPrint
                        DoCmd.close acReport, "PDFG"
   rs.MoveNext
Loop
rs.close
End Sub