ms access - programar - Error de tiempo de ejecución 2185

vba access pdf

Question

Recibo un run time error 2185 , "No se puede hacer referencia a una propiedad o método para un control a menos que el control tenga el foco ..." .

Este es mi código que estoy usando.

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

Ese error de tiempo de ejecución significa You can''t reference a property or method for a control unless the control has the focus.

Puede usar .Text cuando un control tiene el foco.

Answer 2

.Text referencia a la propiedad .Text de un control requiere que tenga foco. Simplemente descarte eso y debería funcionar (el valor predeterminado es .Value )

O

Intente introducir el método SetFocus según lo indicado por Access, es decir,

  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 3

Mi solución fue probar para ver si el control tenía foco antes de actualizar la propiedad de control,

Aquí estoy actualizando una búsqueda de cuadro combinado a una búsqueda de comodín

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