run-time error '7777' неправильное использование свойства ListIndex

[чувачек]

Добрый день.

Возникает вышеприведенная ошибка при попытке выделять строку listbox. Не могу понять, в чем причина. Помогите, пожалуйста.

цикл, в котором возникает ошибка:
-----------------------------------------------

Dim booFound As Boolean, intI, intValue As Integer

intI = 0: booFound = False: intValue = 12

While (intI < lstCar.ListCount) And Not (booFound)

If lstCar.Column(0, intI) = intValue Then

booFound = True

lstCar.SetFocus
lstCar.ListIndex = intI 'проблема в этой строке!

End If

intI = intI + 1

Wend

[Казанский]

1. В Справке написано использовать такой синтаксис:

Forms(formname).Controls(controlname).SetFocus
Forms(formname).Controls(controlname).ListIndex = index

2. Офис какого года? Пишут, что до 2002 свойство ListIndex только для чтения.

[чувачек]

Попробовал. Не помогло. Повторяется проблема.

Офис 10го года.

[Myhaylo]

Вам уже ответили:
http://am.rusimport.ru/msaccess/f2.aspx?type=1&id=65489

[Андрэич]

чувачек,
изменить это свойство скорей всего нельзя, и по вашей задаче, если я правильно вник, этого и не требуется.

Сообщение от чувачек

выделять строку listbox. Не могу понять, в чем причина.

Dim objLst As Object
Dim intI As Integer, intValue As Integer
intValue = 12
Set objLst = Forms!Форма!Список
    For intI = 0 To objLst.ListCount - 1
        If objLst.Column(0, intI) = intValue Then
            objLst.Selected(intI) = True
            Exit For
        End If
    Next intI
Set objLst = Nothing

[чувачек]

спасибо всем за участие. буду пробовать.