Erreur d'exécution 2185

Je reçois un run time error 2185, "Vous ne pouvez pas faire référence à une propriété ou méthode pour un contrôle à moins que le contrôle a le focus ...".

C'est mon code que j'utilise.

Private Sub Command5_Click()
    Dim cardno As Integer
    cardno = cardnumber.Text
    DoCmd.OpenForm "search_card_number", acNormal, , WHERE & cardno = [Account Number]
End Sub
InformationsquelleAutor Steve | 2013-12-20
  1. 11

    Référencement de la .Text propriété d'un contrôle faut-il qu'il a le focus.
    Déposez simplement que cela devrait fonctionner (la valeur par défaut est .Value)

    OU

    Essayez de le mettre dans la méthode SetFocus comme conseillé par l'Accès, c'est à dire

      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
    • Je reçois une erreur d'exécution 6, le dépassement de capacité. mais le carnumber.le texte n'a d'obtenir la valeur, j'étais entrée dans la zone de texte
    • Je suppose que les données ne peuvent plus être tenu par un nombre entier. Essayez de changer la ligne Dim cardno As Integer à Dim cardno As Long devrait résoudre le problème immédiat.
    • Je reçois un 2465 erreur d'exécution, et est mis en évidence le Docmd section en jaune.
    InformationsquelleAutor analyticalpicasso
  2. 2

    Que de l'exécution d'erreur signifie You can't reference a property or method for a control unless the control has the focus.

    Vous pouvez utiliser .Text lorsqu'un contrôle a le focus.

    • si je change le texte de la textbox, je reçois des données et de la méthode de membre non trouvé
    • utilisation cardno = cardnumber au lieu de cardno = cardnumber.Text
    InformationsquelleAutor Siddharth Rout
  3. 0

    Ma solution a été de tester pour voir si le contrôle a le focus avant la mise à jour de la propriété de contrôle,

    Ici, je mets à jour une liste déroulante de recherche d'une wild-card, la recherche

    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
    InformationsquelleAutor gpgb