运行时错误2185

Question

我得到一个run time error 2185,"你不能引用控件的属性或方法,除非控件有焦点......".

这是我正在使用的代码.

Private Sub Command5_Click()
    Dim cardno As Integer
    cardno = cardnumber.Text
    DoCmd.OpenForm "search_card_number", acNormal, , WHERE & cardno = [Account Number]
End Sub

Answer 1

引用.Text控件的属性需要它具有焦点.简单地删除它,它应该工作(默认是.Value)

要么

尝试按照Access的建议放入SetFocus方法,即

  Private Sub Command5_Click()
    Dim cardno As Integer

     cardnumber.SetFocus   <-------Use this line to set the focus        

    cardno = cardnumber.Text
  DoCmd.OpenForm "search_card_number", acNormal, , WHERE & cardno = [Account Number]
 End Sub

Answer 2

该运行时错误意味着You can't reference a property or method for a control unless the control has the focus.

.Text当控件具有焦点时可以使用。