MS Access 2010
У меня есть форма, предоставляющая текстовое значение для комбинированного списка другой формы, но автозаполнение комбинированного списка не отвечает на текстовые данные, предоставленные событием OnClick. Я получаю ошибку 2237, данных нет в списке. Мне нужно, чтобы это работало, поскольку в некоторых списках есть тысячи записей, и поэтому прокручивать этот список непрактично. Вот код, который вставляет текст в поле со списком:
Private Sub tOK_Click()
Dim p As String
Dim f As String
Dim c As String
Dim txtResult As String
Dim pFrmName As String
Dim frmName As String
Dim ctrl As String
On Error GoTo errHandler
pFrmName = Me.pFrmName
frmName = Me.frmName
ctrl = Me.ctrlName
p = pFrmName
f = frmName
c = ctrl
If p = c Then
Forms(f).SetFocus
Forms(f)(c).Text = Me.txtResult
Else
Forms(f)(p)(c).SetFocus
Forms(f)(p)(c).Text = Me.txtResult
End If