Ответить на сообщение

Вы отвечаете на сообщение:

ник: ser60
для списка со множественным выбором пользователь может кликнуть на строке, а потом отменить и снова кликнуть. Для таких ситуаций нашел алгоритм, в котором повторный выбор нейтрализуется через выражение IN (" & strWhere & ")", где выбор пользователя записывается строчно через запятую. А мне эти аргументы нужны, чтобы к ним прикрутить еще некоторые значения из формы для апдейта некоторых записей и записать в таблу. Вдруг в этом топике обнаруживаю

retval = Split(TXT, ",", -1, vbTextCompare) For i = 0 To UBound(retval) MsgBox retval(i) Next i

и под него пишу что-то такое (хотя тут же соображаю, что массивов не знаю

RetVal = Split(strWhere, ",", -1, vbTextCompare) For i = 0 To UBound(RetVal) rst.AddNew rst![Функционал] = RetVal(i) intEdIzm = Column(2, varItem)’что здесь должно быть пока еще не представляю, но из списка вижу что нужно вытягивать и Функционал и ЕдИзм, т.е. двумерный массив rst![ЕдИзм] = intEdIzm rst![МедОрг] = intMedOrgCode rst![Регион] = intRegion lngPlanVolum = DLookup("ПланОбъем", "сМедОргОбъемДеят", "КодМедОрг=" & intMedOrgCode & " And [ЕдИзм] = " & intEdIzm) rst![ПланОбъемДеят] = lngPlanVolum 'MsgBox RetVal(i) Next i rst.Update

подскажите, как тянуть данные в массив и как вытаскивать их в рекордсет. Можа примеры кой-нить есть?

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB