Привет все.
Подскажите плиз. Есть список с мультиселектом. Отмечаю нужные строки, потом кнопкой выполняю действия. Необходимо, что бы все действия происходили с теми элементами, что выделены в списке. По каждому из выделенных в списке должен выполняться цикл. Все данные для цикла указаны в списке
Пишу так:
dim v As Variant
For Each v In Me.Список1.ItemsSelected
For i = 1 To Me.Список1.Column(2)
Forms & i).TOP = Forms & i).TOP - 10
Next i

Next v

Что самое интересное работает, но только по последнему выделенному, а надо что бы по всем выделенным в списке элементам. Что-то тут надо менять. А что не так???

Ну коли мультиселект никак не работает, то пробую так:

For Each v In l.ItemsSelected
If Len(Условие) = 0 Then
Me.Условие = l.ItemData(v)
Else
Me.Условие = Me.Условие & "," & l.ItemData(v)
End If
Next v

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("SELECT Настройки.Код, Настройки.Знаков, Настройки.Поле FROM Настройки WHERE (((Настройки.Код) In (" & Me.Условие & ")));")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
For i = 1 To !Знаков
Forms.TOP = Forms.TOP - 10
Next i
.MoveNext
Loop
End If
End With

По идее должна работать, но не работает. Почему???

Необходимо, что бы все действия происходили с теми элементами, что выделены в списке.

выбор выделенных

With List     For i = 0 To .ListCount - 1             If .Selected(i) Then                 .... действие             End If     Next i End With

Вот проблемный кусок базы. Лучше 1 раз увидеть. http://zalil.ru/31819739

snip, спасибо. Я вроде разобрался. Теперь убрал большие циклы, все работает через простой рекордсет.

Dim v As Variant
Dim rst As DAO.Recordset
Dim i As Integer

Me.Условие = "" ' поле на форме настройка
For Each v In Me.Список1.ItemsSelected
If Len(Условие) = 0 Then
Me.Условие = Me.Список1.ItemData(v)
Else
Me.Условие = Me.Условие & "," & Me.Список1.ItemData(v)
End If
Next v

Set rst = CurrentDb.OpenRecordset("SELECT Настройки.Код, Настройки.Знаков, Настройки.ПолеФормы FROM Настройки WHERE (((Настройки.Код) In (" & Условие & ")));")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
For i = 1 To !Знаков
Forms.TOP = Forms.TOP - 10
Next i
.MoveNext
Loop
End If
End With

Проблема была из-за отсутствия .MoveNext и Loop Без них работало по одному значению. Это рабочий код. Набираю изменяемые строки и одной кнопкой все двигается вверх. Сейчас проблема в обновлении рекордсетом. Раньше было все типа так:

Dim i As Integer
For i = 1 To Me.Список1.Column(2)
Forms & i).TOP = Forms & i).TOP + 1 * i
Next i
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Настройки SET Настройки.Наклон = Настройки.Наклон+1 WHERE (((Настройки.Код)=" & Me.Список1.Column(3) & ")) ;"
Me.Наклон = Me.Наклон + 1 ' индикация на форме настройки

Выбрал в списке нужный диапазон, наклонил строку (если бланк криво отпечатан) и внес изменения в таблицу поле наклон. Также и на сдвиг строки в разные стороны.
Теперь же, если выбрать несколько строк мультиселектом, придется рекорсетом обновлять таблицу настройка.
пытаюсь так:

Set rst = CurrentDb.OpenRecordset.Update("update Настройки SET Настройки.[TOP] = Настройки.[TOP]-10 WHERE (((Настройки.Код) In (" & Условие & ")));")
With rst
If .RecordCount <> 0 Then
Do While Not .EOF
!TOP = !TOP - 10
.MoveNext
Loop
End If
End With

Жалуется на условие. Как-то вроде типа ... На форме все двигает, а в таблице как изменить в нескольких строках, которые выбрал? Ведь в каждой строке значения могут быть разными изначально, и от каждого нужно отнять 1 шаг. (в данном случае 10 пунктов)

>>даже таким образом работает по одной строке (последней выбранной группе)
а что в конструкторе стоит в свойстве "Несвязное выделение"?

Можно и через рекордсет

Поставь "Простой"