Run time error 2185

Question

I getting a run time error 2185, "You can't reference a property or method for a control unless the control has the focus ...".

This is my code that I am using.

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

score 14 · Answer 1 · answered Dec 20 '13 at 12:35

14

Referencing the .Text property of a control requires it to have focus. Simply drop that and it should work (the default is .Value)

OR

Try putting in the SetFocus method as advised by Access, i.e.

  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

answered Dec 20 '13 at 12:35

analyticalpicasso

1,993
8
26
45

I get a runtime error 6, overflow. but the carnumber.text did get the value I was enter in textbox – Steve Dec 20 '13 at 12:42
I guess data can no longer be held by an integer. Try changing the line `Dim cardno As Integer` to `Dim cardno As Long` should fix the immediate problem. – analyticalpicasso Dec 20 '13 at 12:49
I get a 2465 runtime error, and is highlighted the Docmd section in yellow. – Steve Dec 20 '13 at 12:55

score 1 · Answer 2 · answered Dec 20 '13 at 12:22

1

That run time error means You can't reference a property or method for a control unless the control has the focus.

You can use .Text when a control has the focus.

answered Dec 20 '13 at 12:22

Siddharth Rout

147,039
17
206
250

if I change the text to textbox, I get a data and method member not found – Steve Dec 20 '13 at 12:40
1

use `cardno = cardnumber` instead of `cardno = cardnumber.Text` – Siddharth Rout Dec 20 '13 at 20:33

score 0 · Answer 3 · edited Aug 07 '14 at 00:27

My solution was to test to see if the control had focus before updating the control property,

Here I am updating a combo box search to a wild card search

Private Sub Combo_Change()
    'Note control passed to after update sub, then returns to change sub where error occurs
    'Combo is the name of your combo box

    If (Combo Is Me.ActiveControl) Then
        Me.Combo.RowSource = _
            "SELECT [CCL sites v Contract No].ContractID, [CCL Sites].[Site Address], [CCL sites v Contract No].[Contract No] " & _
            "FROM [CCL sites v Contract No] INNER JOIN [CCL Sites] ON [CCL sites v Contract No].SiteID = [CCL Sites].SiteID " & _
            "WHERE [CCL Sites].[Site Address] LIKE '*" & Me.Combo.Text & "*' " & _
            "ORDER BY [CCL Sites].[Site Address]"

        Me.Combo.Dropdown

    End If

End Sub

Run time error 2185

3 Answers3

Linked