Привет. на событие Change комбобокса стоит код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub FActor_Change()
On Error GoTo FActor_Change_Error
Dim f
f = Me.FActor.Text
Me.FActor.RowSource = "SELECT OffID,(People.FName &" & "' '" & "& Left(People.LName,1) &" & "'.'" & "& Left(People.PName,1) &" & "'.')" _
& "AS FIO FROM People INNER JOIN Officers ON People.PeopleID = Officers.PeID WHERE People.FName like '*" & f & "*' ORDER BY People.FName"
Me.FActor.SelStart = Len(f)
Me.FActor.SelLength = 0
Me.FActor.Dropdown
On Error GoTo 0
Exit Sub
FActor_Change_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure FActor_Change, line " & Erl & "."
End Sub
Код работает (фильтрует), но при выборе значения из списка в поле комбо значение пропадает. Переход форма-конструктор-форма - значение появляется. Других процедур для комбо не прописано, кроме начального задания значения комбо.RowSource на событии Form.Load.
В чем может быть причина и как от этого избавиться?
П.С. на других комбо формы такой же код работает как надо.
