Как написать команду чтобы запись в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д