ник: Гоблин
Ну коли мультиселект никак не работает, то пробую так:
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
По идее должна работать, но не работает. Почему???