Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 2019
-
22 août 2007 à 16:02
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 2019
-
22 août 2007 à 16:34
J'ai développé une classe qui effectue des extractions de
données d'une base de données, les stocke en mémoire, les modifie, ...
<!--[if gte vml 1]><v:shape
id="_x0000_i1026" type="#_x0000_t75" alt="" style='width:11.25pt;height:11.25pt'>
<v:imagedata src="file:///C:/DOCUME~1/Vincent/LOCALS~1/Temp/msoclip1/01/clip_image002.gif"
o:href= "http://www.vbfrance.com/imgs2/smile_angry.gif"/>
</v:shape><![endif]--><!--[if !vml]--><!--[endif]-->
Je voudrais maintenant pouvoir extraire ces données de mon objet et les renvoyées
dans un module. Ces données sont stocker dans un tableau dynamique de
structure. Je n'arrive pas à développé une fonction qui me retourne ces données
(que je veux impérativement en final dans un tableau de structure)!!! Quoi que
je fasse j'ai toujours une erreur à la compil!!! Je commence à voir rouge !!! Ma dernière erreur est "byref
argument type mismatch" sur la ligne rouge. Ma structure est définie en
public dans un module (donc global à l'appli)
Mon code actuel (actuel car modifier au moins 12 fois) :
Dans la fonction appelante :
Dim teste() As S_TABCRI
Dim TESTEoBJ As ClassGestionPilTabcri
Set TESTEoBJ = New ClassGestionPilTabcri
TESTEoBJ.GetTABCRI teste 'C'est ici que l'erreur fait une sélection
Dans la classe :
Friend Sub GetTABCRI(ByRef Retour() As S_TABCRI)
Dim Compteur As Long
ReDim Retour(LBound(FichierTABCRI) To UBound(FichierTABCRI))
'CopyMemory Retour, FichierTABCRI
For Compteur = LBound(FichierTABCRI) To
UBound(FichierTABCRI)
Retour(Compteur) =
FichierTABCRI(Compteur) 'Si ici je dois copier les données champ par champ ce n'est pas grave
Next
End Sub
<!--[if gte vml 1]><v:shape
id="_x0000_i1027" type="#_x0000_t75" alt="" style='width:11.25pt;height:11.25pt'>
<v:imagedata src="file:///C:/DOCUME~1/Vincent/LOCALS~1/Temp/msoclip1/01/clip_image003.gif"
o:href="http://www.vbfrance.com/imgs2/smile_sad.gif"/>
</v:shape><![endif]--><!--[if !vml]--><!--[endif]-->J'ai déjà tester plein de 'truc' et je suis à
cour d'idée.<!--[if gte vml 1]><v:shape id="_x0000_i1028" type="#_x0000_t75"
alt="" style='width:11.25pt;height:11.25pt'>
<v:imagedata src="file:///C:/DOCUME~1/Vincent/LOCALS~1/Temp/msoclip1/01/clip_image003.gif"
o:href= "http://www.vbfrance.com/imgs2/smile_sad.gif"/>
</v:shape><![endif]--><!--[if !vml]--><!--[endif]-->
Polack77
Messages postés1098Date d'inscriptionmercredi 22 mars 2006StatutMembreDernière intervention22 octobre 20191 22 août 2007 à 16:28
????
"Déclare ta struture dans un module de classe" OK (déjà tester mais je re-teste tout de suite)
"et vérifie bien que le module de classe en question est instanciable publiquement" ?????? Heeee c'est pas toujour le cas????