Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas
Public Function funEXECUTE() Dim dbs As Database Dim i As Long Dim strSQL As String Debug.Print "Start", Time() Set dbs = CurrentDb For i = 1 To 2000 strSQL = "INSERT INTO tblTest (Test) VALUES (1000);" dbs.Execute (strSQL) Next i dbs.Close Set dbs = Nothing Debug.Print "End", Time() End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.