SELECT ListOfObj1.ObjName, DataDaily.*, ListOfParam1.ParamName, ListOfObj1.Bold
FROM SubAdmin1 INNER JOIN (ListOfParam1 INNER JOIN (ListOfObj1 INNER JOIN DataDaily ON ListOfObj1.IDObj = DataDaily.IDObj) ON ListOfParam1.IDParam = DataDaily.IDParam) ON SubAdmin1.IDSubAdmin = ListOfObj1.IDSubAdmin
WHERE (((DataDaily.Y)=[Forms]![Form DATA Correction Input DataDaily]![YearBox]) AND ((DataDaily.M)=[Forms]![Form DATA Correction Input DataDaily]![MonthBox]) AND ((SubAdmin1.IDAdmin)=[Forms]![Form DATA Correction Input DataDaily]![AdminBox]))
ORDER BY DataDaily.IDObj, DataDaily.Y, DataDaily.M;

mData = MonthBox.Value + 1
yData = YearBox.Value
If MonthBox.Value = 12 Then
mData = 1
yData = YearBox.Value + 1
End If

txtSQL = "INSERT INTO DataDaily ( IDObj, IDParam, Y, M, D1 ) " & _
"SELECT DataDaily.IDObj, DataDaily.IDParam, DataDaily.Y, DataDaily.M, DataDaily.D1 " & _
"FROM Admin1 INNER JOIN ((LinkObj1Admin1 INNER JOIN LinkObj1Param1 ON LinkObj1Admin1.IDObj = LinkObj1Param1.IDObj) INNER JOIN DataDaily ON LinkObj1Param1.IDObj = DataDaily.IDObj) ON Admin1.IDAdmin = LinkObj1Admin1.IDAdmin " & _
"WHERE (((DataDaily.Y)=""" & yData & """) AND ((DataDaily.M)=" & mData & ") AND ((Admin1.IDAdmin)=" & AdminBox.Value & "));"
MsgBox txtSQL

DoCmd.RunSQL txtSQL

Dim  txtSQL As String

txtSQL = "INSERT INTO DataDaily ( IDObj, IDParam, Y, M, D1 ) " & _
"SELECT DataDaily.IDObj, DataDaily.IDParam, DataDaily.Y, DataDaily.M, DataDaily.D1 " & _
"FROM Admin1 INNER JOIN ((LinkObj1Admin1 INNER JOIN LinkObj1Param1 ON LinkObj1Admin1.IDObj = LinkObj1Param1.IDObj) INNER JOIN DataDaily ON LinkObj1Param1.IDObj = DataDaily.IDObj) ON Admin1.IDAdmin = LinkObj1Admin1.IDAdmin " & _
"WHERE (((DataDaily.Y)=""" & [Forms]![Form DATA Correction Input DataDaily]![YearBox] & """)  AND ((DataDaily.M)=" & [Forms]![Form DATA Correction Input DataDaily]![MonthBox] + 1 & ") AND ((Admin1.IDAdmin)=" & [Forms]![Form DATA Correction Input DataDaily]![AdminBox] & "));"

DoCmd.RunSQL txtSQL

Dim rs As Recordset, rs1 As Recordset
Dim mData As Integer, yData As Integer
Dim txtStr As String
 
mData = MonthBox.Value + 1
yData = YearBox.Value
If MonthBox.Value = 12 Then
mData = 1
yData = YearBox.Value + 1
End If

txtStr = "SELECT ListOfObj1.ObjName, DataDaily.*, ListOfParam1.ParamName, ListOfObj1.Bold " & _
"FROM SubAdmin1 INNER JOIN (ListOfObj1 INNER JOIN (ListOfParam1 INNER JOIN DataDaily ON ListOfParam1.IDParam = DataDaily.IDParam) ON ListOfObj1.IDObj = DataDaily.IDObj) ON SubAdmin1.IDSubAdmin = ListOfObj1.IDSubAdmin " & _
"WHERE (((DataDaily.Y) =""" & [Forms]![Form DATA Correction Input DataDaily]![YearBox] & """) And ((DataDaily.M) =" & [Forms]![Form DATA Correction Input DataDaily]![MonthBox] & ") And ((SubAdmin1.IDAdmin) =" & [Forms]![Form DATA Correction Input DataDaily]![AdminBox] & ")) " & _
"ORDER BY DataDaily.Y, DataDaily.M, DataDaily.IDObj;"
 
Set rs = CurrentDb.OpenRecordset(txtStr)
Set rs1 = CurrentDb.OpenRecordset("select * from DataDaily")
    
    Do Until rs.EOF
        rs1.AddNew
                rs1!IDObj = rs!IDObj
                rs1!IDParam = rs!IDParam
                
                rs1!Y = yData
                rs1!M = mData
            rs1.Update
        rs.MoveNext
    Loop

[color=red]
rs.Close                ---- поставил сам, хотя в примере этого не было
rs1.Close              ---- не знаю правильно или нет.
Set rs = Nothing    ---- 
Set rs1 = Nothing  ----[/color]

Me.RecordSource = txtStr
Me.Requery
YearBox.Requery