Private Sub Copy_Click()
'Добавляет новые записей в таблицу "tbTarif"
Dim lngID As Long, v As Long
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Dim i As Integer
Dim strSQL As String, strSQL1 As String

strSQL = "SELECT Max(tbTarif.KodT) AS [Max-KodT] FROM tbTarif"
Set rst = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
v = rst.Fields(0)

'v = DMax("KodT", "tbTarif")             'MAX значение ключевого поля счетчика
lngID = v + 1                            'Значение ключ. поля новой записи

strSQL1 = "SELECT * FROM tbTarif"
Set rst2 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)

strSQL = "SELECT * FROM tbTarif WHERE tbTarif.DataN=#" & Format(Me.DataOld, "dd\/mm\/yyyy") & "#;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    Do Until rst.EOF
        rst2.AddNew
        'Заполнение полей значениями
        rst2.Fields(0) = lngID                   ' !KodT - это счетчик в таблице tbTarif
        rst2.Fields(1) = Me.DataNew         ' !DataN новая дата заполнения полей
            For j = 2 To rst.Fields.Count - 1
                rst2.Fields(j) = rst.Fields(j)
            Next j
        rst2.Update
        lngID = lngID + 1
    rs.MoveNext
    Loop
    
    On Error Resume Next
    rst.Close
    rst2.Close
    Set rst = Nothing
    Set rst2 = Nothing
End Sub

Private Sub Del_Click()
'Удаление записей из таблицы "tbTarif" на установленную дату
Dim strSQl As String

If MsgBox("Хотите удалить данные на " & Me.DataOld & "?", vbYesNo + vbInformation + vbDefaultButton1, "Удаление данных") = vbNo Then Exit Sub
    strSQl = "DELETE * FROM tbTarif WHERE tbTarif.DataN=#" & Format(Me.DataOld, "dd\/mm\/yyyy#")
    CurrentDb.Execute strSQl
    Me.Requery
End Sub