récuppérer données d'une requete dans des variables
4 réponses
macgiver
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de
plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par
vba, être en mesure d'attribuer chacun de ces noms de personne à des
variables différentes, est-ce possible?
résultat de ma requete:
nom_personne (nom de mon champs de ma requete)
martin (valeur)
marc (valeur)
frank (valeur)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de
plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par
vba, être en mesure d'attribuer chacun de ces noms de personne à des
variables différentes, est-ce possible?
résultat de ma requete:
nom_personne (nom de mon champs de ma requete)
martin (valeur)
marc (valeur)
frank (valeur)
Salut
Avec ça peut-être :
Dim Rst_Données as DAO.Recordset
Dim Table_Nom as Variant ' pour y stocker les noms
Dim Nom_Str as string
Set Rst_Données = Currentdb.openrecordset("Larequete")
While Not Rst_Données.EOF
Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";"
Rst_Données.movenext
wend
If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont
stockés dans un tableau
Rst_Données.close
Set Rst_Données=nothing
@+
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
macgiver
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit : > bonjour a tous, j'ai une requete qui me donne comme résultat le nom de > plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par > vba, être en mesure d'attribuer chacun de ces noms de personne à des > variables différentes, est-ce possible? > > résultat de ma requete: > nom_personne (nom de mon champs de ma requete) > martin (valeur) > marc (valeur) > frank (valeur) Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
merci, mais comment je récupère ces données pour les réattribuer à des
variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
> bonjour a tous, j'ai une requete qui me donne comme résultat le nom de
> plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par
> vba, être en mesure d'attribuer chacun de ces noms de personne à des
> variables différentes, est-ce possible?
>
> résultat de ma requete:
> nom_personne (nom de mon champs de ma requete)
> martin (valeur)
> marc (valeur)
> frank (valeur)
Salut
Avec ça peut-être :
Dim Rst_Données as DAO.Recordset
Dim Table_Nom as Variant ' pour y stocker les noms
Dim Nom_Str as string
Set Rst_Données = Currentdb.openrecordset("Larequete")
While Not Rst_Données.EOF
Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";"
Rst_Données.movenext
wend
If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont
stockés dans un tableau
Rst_Données.close
Set Rst_Données=nothing
@+
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit : > bonjour a tous, j'ai une requete qui me donne comme résultat le nom de > plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par > vba, être en mesure d'attribuer chacun de ces noms de personne à des > variables différentes, est-ce possible? > > résultat de ma requete: > nom_personne (nom de mon champs de ma requete) > martin (valeur) > marc (valeur) > frank (valeur) Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
Fabien
macgiver a écrit :
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
Accède aux données en indiquant l'indice dans le tableau martin=Table_Nom(1) ou Marc=Table_Nom(2)
macgiver a écrit :
merci, mais comment je récupère ces données pour les réattribuer à des
variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de
plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par
vba, être en mesure d'attribuer chacun de ces noms de personne à des
variables différentes, est-ce possible?
résultat de ma requete:
nom_personne (nom de mon champs de ma requete)
martin (valeur)
marc (valeur)
frank (valeur)
Salut
Avec ça peut-être :
Dim Rst_Données as DAO.Recordset
Dim Table_Nom as Variant ' pour y stocker les noms
Dim Nom_Str as string
Set Rst_Données = Currentdb.openrecordset("Larequete")
While Not Rst_Données.EOF
Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";"
Rst_Données.movenext
wend
If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont
stockés dans un tableau
Rst_Données.close
Set Rst_Données=nothing
@+
Accède aux données en indiquant l'indice dans le tableau
martin=Table_Nom(1) ou Marc=Table_Nom(2)
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
Accède aux données en indiquant l'indice dans le tableau martin=Table_Nom(1) ou Marc=Table_Nom(2)
Eric
Bonjour,
Fabien a écrit :
macgiver a écrit :
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
Accède aux données en indiquant l'indice dans le tableau martin=Table_Nom(1) ou Marc=Table_Nom(2)
Petite correction si je puis ;-) L'indice commence à 0 donc je mettrai : martin=Table_Nom(0)
Remarque: ne connaissant pas l'intérêt de la chose, je me demande s'il ne serait pas plus simple d'utiliser directement le tableau avec son index ce qui éviterait de devoir déclarer autant de variables -- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Fabien a écrit :
macgiver a écrit :
merci, mais comment je récupère ces données pour les réattribuer à des
variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom
de plusieurs personnes sous le nom du champs nom_personne. JE
voudrais, par vba, être en mesure d'attribuer chacun de ces noms de
personne à des variables différentes, est-ce possible?
résultat de ma requete:
nom_personne (nom de mon champs de ma requete)
martin (valeur)
marc (valeur)
frank (valeur)
Salut
Avec ça peut-être :
Dim Rst_Données as DAO.Recordset
Dim Table_Nom as Variant ' pour y stocker les noms
Dim Nom_Str as string
Set Rst_Données = Currentdb.openrecordset("Larequete")
While Not Rst_Données.EOF
Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";"
Rst_Données.movenext
wend
If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont
stockés dans un tableau
Rst_Données.close
Set Rst_Données=nothing
@+
Accède aux données en indiquant l'indice dans le tableau
martin=Table_Nom(1) ou Marc=Table_Nom(2)
Petite correction si je puis ;-)
L'indice commence à 0 donc je mettrai :
martin=Table_Nom(0)
Remarque: ne connaissant pas l'intérêt de la chose, je me demande s'il
ne serait pas plus simple d'utiliser directement le tableau avec son
index ce qui éviterait de devoir déclarer autant de variables
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
merci, mais comment je récupère ces données pour les réattribuer à des variable distincte?
merci
"Fabien" a écrit :
macgiver a écrit :
bonjour a tous, j'ai une requete qui me donne comme résultat le nom de plusieurs personnes sous le nom du champs nom_personne. JE voudrais, par vba, être en mesure d'attribuer chacun de ces noms de personne à des variables différentes, est-ce possible?
résultat de ma requete: nom_personne (nom de mon champs de ma requete) martin (valeur) marc (valeur) frank (valeur)
Salut Avec ça peut-être : Dim Rst_Données as DAO.Recordset Dim Table_Nom as Variant ' pour y stocker les noms Dim Nom_Str as string Set Rst_Données = Currentdb.openrecordset("Larequete") While Not Rst_Données.EOF Nom_str=Nom_Str & Rst_Données("Nom_personne") & ";" Rst_Données.movenext wend If Len(Nom_Str)>0 then Table_Nom=Split(Nom_Str,";")'les noms sont stockés dans un tableau Rst_Données.close Set Rst_Données=nothing @+
Accède aux données en indiquant l'indice dans le tableau martin=Table_Nom(1) ou Marc=Table_Nom(2)
Petite correction si je puis ;-) L'indice commence à 0 donc je mettrai : martin=Table_Nom(0)
Remarque: ne connaissant pas l'intérêt de la chose, je me demande s'il ne serait pas plus simple d'utiliser directement le tableau avec son index ce qui éviterait de devoir déclarer autant de variables -- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr