| |
|
|
| | Подскажите пожалуйста, как из поля список в форме забрать несколько выделенных значений в запрос или временную таблицу?
Спасибо | |
| |
| |
| |
|
|
| | Перебором For Each из коллекции выбранных элементов списка | |
| |
| |
| |
|
|
| | Хелп по свойству ItemsSelected - там есть пример | |
| |
| |
| |
|
|
| | Я запуталась :(...при выполнении кода значения забираются в таблицу...но только одной выдененной строки списка...а при повторном открытии таблицы забираются все нужные данные :(
For intCount = 0 To lstEmployee.ItemsSelected.Count - 1
intItem = lstEmployee.ItemsSelected(intCount)
txtPredmets = lstEmployee.Column(0, intItem)
CurrentDb.Execute "Insert into Временная_таб(predmet) values ('" & txtPredmets & "')"
Next | |
| |
| |
| |
|
|
| |
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
|
| |
| |
| |
| |
|
|
| | спасибо!
первый модуль передает каждое значение списка последовательно...независимо что выбрано...а вот второй, то, что нужно :) | |
| |
| |
| |
|
|
| | поправлю
For Each varItem In lstEmployee.ItemsSelected
CurrentDb.Execute "Insert into Временная_таб (predmet) values ('" & lstEmployee.Column(0, varItem) & "')"
Next varItem
|
| |
| |
| |
