错误2110 setfocus绑定组合框

Question

我在表单上的按钮的click事件中使用以下代码：

...
'Make the appropriate location appear in the combobox
For i = 0 To cboLocations.ListCount - 1
  If Me.cboLocations.Column(0, i) = locindex Then        
    Me.cboLocations.SetFocus
    Me.cboLocations.Value = Me.cboLocations.Column(1, i)
    Me.cboLocations.Selected(i) = True
    Exit For
  End If
Next i
...

这在使用按钮时按预期工作，但是当我尝试在其他子例程中执行相同的代码时，SetFocus行会触发错误2110：Access无法将焦点移动到控件cboLocations。这对我没有意义。为什么它在一个地方而不是在另一个地方工作？