Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: alecks_lp
For intCount = 0 To lstEmployee.ItemsSelected.Count - 1 CurrentDb.Execute "Insert into Временная_таб (predmet) values ('" & lstEmployee.Column(0, intCount) & "')" Next intCount
dim varItem For Each varItem In lstEmployee.ItemsSelected CurrentDb.Execute "Insert into Временная_таб (predmet) values ('" & lstEmployee.ItemData(varItem) & "')" Next varItem
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.