Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas Сравни с этим, если не лень:
Public Function funDAO() Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim i As Long Debug.Print "StartDao", Time() Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tblTest", , dbAppendOnly) With rst For i = 1 To 2000 .AddNew .Fields(1) = i .Update Next i .Close End With Set rst = Nothing dbs.Close Set dbs = Nothing Debug.Print "EndDao", Time() End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.