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