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
A voir également:
- Access: rechercher 1 valeur dans 1 collection
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- [Access] creer base données client-produits - Forum Programmation
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
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".
---------------------------------------------------------------------------------
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".
