Все в стадии разработки, но
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub fNameSel_KeyDown(KeyCode As Integer, Shift As Integer)
If IsNull(fNameSel.ListIndex) Then fNameSel.ListIndex = 0
Select Case KeyCode
Case Is = vbKeyDown
echoNameSel fNameSel.ListIndex + 1
Case Is = vbKeyUp
echoNameSel fNameSel.ListIndex - 1
Case Else
echoNameSel fNameSel.ListIndex
End Select
End Sub
где
echoNameSel - sub, который изменяет сведения полей формы.
Но KeyDown опаздывает на последнее нажатие на клаве. Предсказать навигац.клавиши еще можно, а вот на симв. будет сложно. Только через recordset, в котором придется делать поиск, иль через запрос. Но поскольку возня с текстом, то будут наверняка тормоза.
А вот если б
echoNameSel fNameSel.ListIndex запустить после KeyDown, то жить стало б легче...
