ник: Improver
Подскажите, плз., по сабжу...
На базе одного из примеров сделал так (с сокращениями):
-----------
Sub transfer(strTableNameS As String, strTableNameN As String)
Dim db As Database
Dim rss As DAO.Recordset
Dim rsn As DAO.Recordset
Dim str As String
Dim lngRecordCount As Long
Dim fldField As DAO.Field
Set db = CurrentDb
Set rss = db.OpenRecordset(strTableNameS, dbOpenDynaset)
If rss.RecordCount <> 0 Then
Set rsn = db.OpenRecordset(strTableNameN, dbOpenDynaset)
rss.MoveLast
lngRecordCount = rss.RecordCount
rss.MoveFirst
Debug.Print "Количество записей в таблице """ & _
strTableNameS & """: " & lngRecordCount
Do Until rss.EOF
rsn.AddNew
For Each fldField In rss.Fields
If fldField.Value <> "" Then
rsn(fldField.Name) = fldField.Value
End If
Next fldField
rsn.Update
rss.MoveNext
Loop
rsn.Close
Else
Debug.Print "Таблица """ & strTableNameS & _
""" не содержит записей."
End If
Debug.Print "Конец обработки."
rss.Close
db.Close
Exit Sub
End Sub
------------
Скорость обработки -- тысяча строк таблицы за 9,5 минуты! А таблицы есть и в 100 тысяч строк...
Подскажите, как это можно оптимизировать, т.е. ускорить обработку?