Access: rechercher 1 valeur dans 1 collection
GauthierS
Messages postés
17
Statut
Membre
-
GauthierS Messages postés 17 Statut Membre -
GauthierS Messages postés 17 Statut Membre -
Bonjour,
J'ai essayé l'exemple qui est dans l'aide d'access 2003:
1. création d'un formulaire avec listbox "MyCollection"
2. ajout d'évenement lors du chargement:
---------------------------------------------------------------------------------
Private Sub Form_Load()
Dim Found, MyObject, MyCollection
' Initialise une variable.
Found = False
' Se répète à chaque élément.
For Each MyObject In MyCollection
' Si Text est égal à "Bonjour".
If MyObject.Text = "Bonjour" Then
' Attribue la valeur True à Found.
Found = True
Exit For ' Quitte la boucle.
End If
Next
End Sub
---------------------------------------------------------------------------------
Mais je reçois l'erreur suivante:
---------------------------------------------------------------------------------
Erreur d'exécution '13'
Incompatibilité de type
---------------------------------------------------------------------------------
Merci d'avance
J'ai essayé l'exemple qui est dans l'aide d'access 2003:
1. création d'un formulaire avec listbox "MyCollection"
2. ajout d'évenement lors du chargement:
---------------------------------------------------------------------------------
Private Sub Form_Load()
Dim Found, MyObject, MyCollection
' Initialise une variable.
Found = False
' Se répète à chaque élément.
For Each MyObject In MyCollection
' Si Text est égal à "Bonjour".
If MyObject.Text = "Bonjour" Then
' Attribue la valeur True à Found.
Found = True
Exit For ' Quitte la boucle.
End If
Next
End Sub
---------------------------------------------------------------------------------
Mais je reçois l'erreur suivante:
---------------------------------------------------------------------------------
Erreur d'exécution '13'
Incompatibilité de type
---------------------------------------------------------------------------------
Merci d'avance
Configuration: Windows XP Firefox 3.0.4
2 réponses
-
Bonjour
Si MyCollection est une listbox, elle ne devrait pas être une variable locale de ton sub.
De plus tu devrais boucler sur MyCollection.List, pas simplement MyCollection -
J'ai supprimé la déclaration de variable et nommé correctement le contôle:
---------------------------------------------------------------------------------
Private Sub Form_Load()
Dim Found, MyObject
' Initialise une variable.
Found = False
' Se répète à chaque élément.
For Each MyObject In Me.MyCollection
' Si Text est égal à "Bonjour".
If MyObject.Text = "Bonjour" Then
' Attribue la valeur True à Found.
Found = True
Exit For ' Quitte la boucle.
End If
Next
End Sub
---------------------------------------------------------------------------------
Je reçois maintenant le message d'erreur suivant:
---------------------------------------------------------------------------------
Erreur d'exécution 438
Propriété ou méthode non gérée par cet objet
---------------------------------------------------------------------------------
J'ai essayé en ajoutant la propriété .list à Me.MyCollection, mais ça renvoie une erreur de compilation "Membre de méthode ou de données introuvable".
