ник: osmor
а реально именно так данные в таблицу закидываются?
может есть смысл так
Dim asd As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("База2")
For i = Me.Поле1 To Me.Поле3
rs.AddNew
For j = 1 To 6
rs.Fields("f" & i) = cstr(dfr.Cells(i, i))
'Me.Поле6 = i
'DoEvents
Next j
rs.Update
Next i
|