Как собрать переменную?
Была у меня такая задача: на форме есть листбокс, где перечисленны группы товаров, листбокс причем позволяет выбирать несколько строк одновременно.
Надо было составить отчет, в который входили бы только товары из выбранных групп. Вот как это решил:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub кнПрайс_Click()
Dim varI 'fltrПрайс - глобальная переменная
On Error Resume Next
For Each varI In Me.спТип.ItemsSelected 'перебор по выделенным группам товара в листбоксе
fltrПрайс = fltrПрайс & "', '" & Me.спТип.ItemData(varI)
Next varI
If fltrПрайс <> "" Then
fltrПрайс = Right(fltrПрайс, Len(fltrПрайс) - 3 ) & "'" 'обрезание лишних кавычек
DoCmd.OpenReport "оПрайс" , acViewPreview 'открытие отчета, где условие отбора записей и есть переменная fltrПрайс
Else
MsgBox "Выберите как минимум один тип"
End If
End Sub
Задача усложнялась еще тем, что группы товара могли содержать пробелы и запятые, поэтому так много кавычек.
