Dim db As Object, strSQL As String, name_P As String, name_VR As String, SQLins As String
Dim rs As DAO.Recordset, f_date As String, rs_TMP As DAO.Recordset, R As String, P As String
Set db = CurrentDb
 db.Execute ("DELETE * from tmp_BUD_ROSP")
If IsNull(Me.F_data) Then MsgBox "Незадана дата формирования сметы", vbCritical, "Мудуль формирования отчетов: Ошибка!": Exit Sub
f_date = Format(Me.F_data, "MM\/DD\/YYYY")

strSQL = "SELECT Sum(dbo_R_R.SUMM_1Q) AS [SUMM_Q], dbo_K_LSR.CVD_MF, dbo_K_LSR.CPR, dbo_K_LSR.CCS_FULL, dbo_K_LSR.CVR, dbo_K_LSR.CDEP, dbo_K_CS.NCS" & _
" FROM (dbo_R_R INNER JOIN dbo_K_LSR ON dbo_R_R.K_LSRID = dbo_K_LSR.K_LSRID) INNER JOIN dbo_K_CS ON dbo_K_LSR.K_CSID = dbo_K_CS.K_CSID" & _
" WHERE  dbo_R_R.DU  < #" & f_date & "#" & _
" GROUP BY dbo_K_LSR.CVD_MF, dbo_K_LSR.CPR, dbo_K_LSR.CCS_FULL, dbo_K_LSR.CVR, dbo_K_LSR.CDEP, dbo_K_CS.NCS" & _
" ORDER BY dbo_K_LSR.CVD_MF, dbo_K_LSR.CPR, dbo_K_LSR.CCS_FULL, dbo_K_LSR.CVR, dbo_K_LSR.CDEP;"

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)

Set rs_TMP = db.OpenRecordset("SELECT * FROM tmp_BUD_ROSP")
Do While rs.EOF = False
name_P = rs!NCS
name_VR = " (" & DLookup("[NAME_VR]", "tb_VR", "[KOD_VR]='" & rs!CVR & "'") & ")"
R = Left(rs!CPR, 2)
P = Right(rs!CPR, 2)
rs_TMP.AddNew
rs_TMP!name_P = name_P & name_VR
rs_TMP!K_RASP = Trim(rs!CVD_MF)
rs_TMP!KBK_R = Trim(R)
rs_TMP!KBK_P = Trim(P)
rs_TMP!KBK_C = Trim(rs!CCS_FULL)
rs_TMP!KBK_VR = Trim(rs!CVR)
rs_TMP!KBK_F = Trim(rs!CDEP)
rs_TMP!SUMM_R = Trim(rs!SUMM_Q)
rs_TMP.Update
rs.MoveNext
Loop

rs.Close
rs_TMP.Close
Set rs = Nothing
Set rs_TMP = Nothing

End Sub