В listbox.multiselect отзывается лишь последний выбранный элемент / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / В listbox.multiselect отзывается лишь последний выбранный элемент

1 сообщений из 1, страница 1 из 1

В listbox.multiselect отзывается лишь последний выбранный элемент

#39454823

re-spawn

Гость

Доброе что-то.
Использую Access 2013 года. Есть проблема со списком. Необходимо организовать список, выбрать оттуда несколько элементов и изменить у них один параметр. В итоге я выбрал Multiselect "простой" (в 2013 нет "несвязанного"). Позже я пробовал и связанный, но результата всё равно нет. И так, проблема: когда начинаю обрабатывать список, то обрабатывается лишь последний выбранный элемент, но не все выделенные. Пробовал использовать цикл For each. В интернете нашел, что в предыдущих акцесах режим "Простой" как раз работал лишь с одним элементом списка, и необходимо выбрать "несвязанный". Но его нет! Хелп, люди.
Вот такой код:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Dim zay As DAO.Recordset
Set zay = CurrentDb.OpenRecordset("Zayavki", dbOpenDynaset)
Dim varItem As Variant
Dim i As Integer
   Dim lst As Access.ListBox
   Set lst = zayavki_
   If lst.ItemsSelected.Count = 0 Then
      MsgBox "bla bla bla", vbOKOnly, " Error"
      Exit Sub
   End If

For i = 0 To lst.ListCount - 1
        If lst.Selected(i) Then
            zay.FindFirst "[code] =" & Me.zayavki_Column(0)
            zay.Edit
            zay.Fields("print") = True
            zay.Update
            
        End If
  Next i

zay.Close
Set zay = Nothing
   DoCmd.OpenReport "Otvet", acViewReport

...

Рейтинг:

0 / 0

17.05.2017, 16:16:43

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=76&tid=1612436]:	0ms
get settings:	11ms
get forum list:	18ms
check forum access:	3ms
check topic access:	3ms
track hit:	56ms
get topic data:	11ms
get forum data:	3ms
get page messages:	28ms
get tp. blocked users:	1ms
others:	245ms

total:	379ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы