Как написать команду чтобы запись в LIST (форма ADP) стала текущей - VB

Узнай цену своей работы

Формулировка задачи:

после сл.команды необходимо чтобы искомая запись стала теущей:У меня не получается через SetFocus Private Sub кнопка85_Click() A = InputBox("введите значение") Set ctl = Forms![F_localmain]![propcodelist] P = 0 For i = 0 To ctl.ListCount - 1 If ctl.ItemData(i) = A Then MsgBox "есть!" P = 1 Forms![F_localmain]![propcodelist].SetFocus Exit For End If Next If P = 0 Then MsgBox "NO!" If P = 1 Then Forms![F_localmain]![propcodelist].SetFocus End Sub

Решение задачи: «Как написать команду чтобы запись в LIST (форма ADP) стала текущей»

textual
Листинг программы
Forms![F_localmain]![propcodelist].ListIndex = i+1

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы