[VBA-A]Recuperation champ d'une table dans une collection

Bonjour tout le monde,
j'au rait une question a vous poser,voila..
j'ai mis une requete sql dans une fonction

Code:

---

1 2 3

public function nomFunction As collection ... end function

---

je fait bien un while rs.EOF....Wend et je fait un set de ma collection avec le contenu de mon recordSet

lorsque je veus utiliser les item de la collection en faisant

Code:

---

Me.nomFunction(1)

---

il me dit Erreur d'execution 438
Propriété ou methode non gerée par cet objet, alors que c'est bien une collection (meme chose lorsque je le place dans un debug.Print)

je precise que mon debug.print aisin que la manipulation a la base se fait une boucle for.

J'aurais besoin de votre connaissance en VB, en vous remerciant :)

Salut,
je crois que tu sautes une étape:
Tu dois déclarer une collection:

Code:

---

Dim Collec As Collection

---

puis la remplir:

Code:

---

Set Collec = nomFunction()

---

puis l'utiliser:

Code:

---

BlaBla = Collec(1)

---

il est dommage de créer une collection alors qu'il en existe déjà une
dao.database.tabledefs.fields
si cependant cela te te nte

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Compare Database Option Explicit Dim v As New Collection   Function ajoute(x As String) As Boolean Dim base As DAO.Database Dim u As DAO.TableDef Dim z As DAO.Field Set base = CurrentDb() Set u = base.TableDefs(x) For Each z In u.Fields MsgBox (z.Name) v.Add (z.Name) Next z End Function

---

merci bien.
je teste tout ca et je vous tiens au courant

erf me voila avec un autre souci
je consulte fait deja une requete dans le meme module access.
j'utilise donc deja

Code:

---

CurrentDB.OpenRecordset(requete1)

---

et lorsque j'utilise une seconde fois cette instruction

Code:

---

CurrentDB.OpenRecordset(requete2)

---

j'obteins une erreur du type
Erreur '3048'
Impossible d'ouvrir plus de bases de données.

need help s'il vous plait yé soui perdou :roll:

CurrentDB est la même table ?

oui
en faisant des debug print je me suis rendu compte que ma requete etait faite indefiniment juste a saturation c pourquoi j'ai ce message d'erreur.

ce que je ne comprend pas c'est que la fonction qui boucle indefiniment et un copier coller d'une fonction qui quant à elle tourne impecablement bien.

voici ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Public Function nomFunction() As Collection   '----------------------------------------- ' requete SQL '----------------------------------------- Dim sqlreq As String Dim a As Integer sqlreq = "select * from PROD_Site" Debug.Print "requete sql : " & sqlreq Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(sqlreq )   '----------------------------------------- ' liste des sites '----------------------------------------- Dim col As New Collection While Not rs.EOF Dim obj As prsSite Set obj = New prsSite obj.Site = rs!ColonneDeTable col.Add obj rs.MoveNext Wend Set col = nomFunction Debug.Print "sql item" & nomFunction(1) CurrentDb.Close End Function

---

le obj.SIte est une sorte de cast en String

en regardant un peu le site je suis tomber sur cette page
http://access.developpez.com/faq/?page=SQL#Recordset

je l'ai mise dans mon module et ca fait le mme resultat, il boucle sans arret, yé souis vraiment perdu

j'ai besoin de votre connaissance encore une fois svp :roll:

je suggère

Code:

---

1 2 3 4 5 6 7 8

Dim obj As prsSite Set obj = New prsSite While Not rs.EOF   obj.Site = rs!ColonneDeTable col.Add obj rs.MoveNext

---

ca marche toujours po..

lorsqu'il me met l'erreur signalant que trop de base sont ouverte apres avoir ouvert ma currentDB jusqu'a saturation. le debuger me pointe la ligne

Code:

---

Set db = CurrentDb

---

ca fait plu d'une heure que je lit cette fonction et je ne capte toujours pas ce qui peut faire boucler cette function :scratch:

Et si tu remplaçais cette ligne:

Code:

---

Set col = nomFunction

---

Par

Code:

---

Set nomFunction = col

---

Parce que là, tu réappelles ta fonction dans la fonction...
:D

Merci Megaxel :D
t'es un boss
ca marche

Pas de quoi... 8)
C'est bizarre le nombre de programmeurs qui font cette erreur avec l'opérateur " = ".
Et en passant, pourquoi est-ce que tu ne travailles pas directement avec ta collection "NomFunction"? Je ne crois pas que ça soit très utile de passer par ta collection intermédiaire.

en fait mon but c'est de pouvoir utiliser les champs contenu dans la base dans une chaine de caractere (dans un chemin pour un fichier en fait)

donc la ce que je pensait faire c'est "Me.nomFonction(1)" mais je me retrouve avec une erreur me disant 'Propriété ou methode non gérée par cet objet'

bizarre bizarre, il faut que buche sur cette erreur maintenant

Alors là, reviens à ma première réponse, dans ce fil.
Là, tu dois déclarer une collection, et la remplir en appelant ta fonction.

Code:

---

1 2	MaCollec = NomFunction() GnaGnaGna = MaCollec(1)

---