ms Access组合框不会自动填充

Question

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