добрый всем знатокам.

прошу подсказать в чем может быть проблема
есть форма, на ней есть combobox . Заполнен 12-ю значениями. При этом выбраны галочками в разных записях разное кол-во значений. В данном случае - языков.
Прописал цикл на событие AfterUpdate

Private Sub proсРасчетГрафКолво()
Dim varКолвоЯзыков As Integer, I As Long

For I = 0 To [cmbЯзыки].ListCount - 1
If [cmbЯзыки].Selected(I) = True Then
varКолвоЯзыков = varКолвоЯзыков + 1
End If
Next I

[fldКолвоЯзыков].Value = varКолвоЯзыков

End Sub

Работает как надо, после выбора галочками нужных языков и нажатия ОК на combobox, в зеленой графе указывается подсчитанное кол-во языков.
Требуется чтобы при смене записей обновлялось поле "Кол-во языков", т.к. его значение нигде не хранится, а просто выводится для информации. Прикручиваю тот же код на Form_Current - не работает. Смотрю по отладчику, строка [cmbЯзыки].Selected(I) на каждой записи цикла дает значение НОЛЬ, соответственно, в ячейке отображается общее кол-во НОЛЬ. В чем может быть проблема? как подправить чтобы работало на событии Form_Current.

Заранее спасибо за помощь

Панург, принял. покурю в сторону Recordset, тем более, что у объекта есть такое свойство, стало быть им можно воспользоваться. Вроде бы из cmb.Selected все должно работать, а вот почему не работает при событии form_current - загадка, ответ на которую не очевиден :-)

Serg197311, спасибо за ссылочку. изучу детально, попробую потестить.

Панург, спасибо за наводку. не обратил внимание на индекс "2", честно говоря, не пользовался новым DAO. изучу доки по этому поводу.

sdku, ну все верно. задумка простая при смене записи цикл опрашивает значение поля [сmbЯзыки], которое хранится в таблице и имеет реальное значение, то есть при загрузке следующей/предыдущей записи система опрашивает поле [сmbЯзыки] и присваивает кол-во отмеченных элементов полю [fldКолвоЯзыков]. Понятно, что если в [сmbЯзыки] данных нет, то и [fldКолвоЯзыков] будет НОЛЬ. но дело в том, что оно НОЛЬ и в том случае когда данные имеются
Ради интереса перевесил на AfterUpdate формы, эффект тот же, кол-во НОЛЬ, хотя если я выберу я открою комбо и нажму ОК, т.к. записи там уже выбраны. То покажет кол-во записей, то события формы никак не обрабатывают свойство Selected, даже если данные имеются

Private Sub Form_AfterUpdate()
Call proсРасчетГрафКолво
End Sub

sdku, help я внимательно прочитал. в том то и дело. что выбран в данном случае означается отмечен галочками, при переходе на новую запись в списке также будут отмечены галочками те записи, которые были ранее отмечены и информация по которым сохранена в таблице. Получается что combobox трактует "выбран" только в том случае если элементом combo получен фокус, то есть даже если галочки по факту стоят, свойство SELECTED обозначает не отмеченные элементы, а выбранные по аналогии с объектом ListBox.
То есть как бы те, на которых в данных момент стоит фокус (грубо говоря, которые с CTRL или SHIFT) выбраны мышью в списке.
Получается, что банально данное свойство в такой интерпретации как я хотел использовать нельзя

sdku, логично, хороший вариант, без всяких проблем, найти все ";" и плюс +1 элемент

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

sdku, будут отмечены 100% и список будет виден, т.к. прописаны в источнике combobox

вот таким "не очень" способом тоже работает :-) как только доходит до Value, которого нет, то выдает ошибку, на это цикл и заканчивается.

но это какое-то неправильное решение. делать-то будет что надо :-), но как-то через "одно место"

sdku, оказалось все еще проще. Value возвращает массив с данными каждой выделенной строки, таким образом вот так все работает

то есть все, что отмечено в combobox с множественными значениями (когда можно выбрать несколько значений как на скрине выше), сохраняется в таблице данных просто через точку с запятой язык1;язык2 и т.д. А при обращении к свойству Value выдает массив с несколькими строками, каждая из которых содержит значение, которые разделены в источнике данных (в таблице) точкой с запятой. Обратиться к каждой строке можно через ее индекс Value( index )