Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Afficher ds une liste le résultat d'un rs en ADO

Afficher ds une liste le résultat d'un rs en ADO

5 réponses
Avatar
MD
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de mon
Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonsoir.

Le but de l'opération est bien de remplir le champ liste modifiable ?
tu crées ta liste modifiable avec l'assistant à partir de la boite à outils,
tu fais ce qu'il te demande et ta liste sera complète et fonctionnera.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"MD" a écrit dans le message de
news:
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de mon
Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci




Avatar
Benoit Compoint [MS]
Bonsoir,

Si la propriété Contenu de votre liste modifiable (nommée CtrlCombo) a pour
valeur "Liste de valeurs",
vous pouvez insérer le code VBA ci-dessous dans votre boucle (si elle figure
dans le module sous-jacent au formulaire contenant la liste).

Me!CtrlCombo.AddItem RS!Nom & " " & RS!Prenom

Benoit Compoint

"MD" wrote in message
news:
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de mon
Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci




Avatar
MD
je ne comprends pas la fin de votre explication.
"(si elle figure dans le module sous-jacent au formulaire contenant la
liste)".

Qu'entendez vs par module sous jacent au formulaire?

explications:

J'ai un bouton sur lequel je clique pour avoir la liste des clients dans une
liste modifiable sous le bouton ds le même formulaire.
Sur l'événement clic, j'ai mon petit code VBA, ds lequel j'ai ajouté votre
instruction.
La liste est sous le bouton, c'est une liste modifiable, mais à l'exécution
du code, ça plante à votre instruction.
De plus ce qui m'ennuie le plus, sous VBA, je n'accéde pas à la méthode
AddItem de l'objet Me!Liste.
La liste est bien paramétrée en liste de valeurs.

Avez vs une idée ?
Merci encore.


"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonsoir,

Si la propriété Contenu de votre liste modifiable (nommée CtrlCombo) a
pour

valeur "Liste de valeurs",
vous pouvez insérer le code VBA ci-dessous dans votre boucle (si elle
figure

dans le module sous-jacent au formulaire contenant la liste).

Me!CtrlCombo.AddItem RS!Nom & " " & RS!Prenom

Benoit Compoint

"MD" wrote in message
news:
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de mon
Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci








Avatar
Benoit Compoint [MS]
Bonjour,

Ce que j'ai appelé "le module sous-jacent au formulaire" est tout simplement
le module associé au formulaire.
C'est nécessaire pour que la syntaxe "Me!CtrlCombo" permette de référencer
la liste modifiable.

Votre code VBA figure bien dans "le module sous-jacent au formulaire", mais
vous utilisez probablement Access 97 ou Access 2000.
La méthode AddItem des les listes n'existe que pour les versions 2002 et
2003 d'Access.

Si vous souhaitez ajouter un nombre limité de valeurs (la propriété
RowSource d'un contrôle liste modifiable est limitée à 2048 caractères),
vous pouvez définir la valeur de la propriété RowSource par concaténation
des valeurs séparées par un point-virgule.

Dans ce cas l'instruction à insérer dans la boucle serait :

Me!CtrlCombo.RowSource = Me!CtrlCombo.RowSource _
& RS!Nom & " " & RS!Prenom & ";"

Cela suppose que les champs "Nom" et "Prenom" ne comportent pas de
point-virgule.
Cette condition est généralement vérifiée.

Benoit Compoint

"MD" wrote in message
news:
je ne comprends pas la fin de votre explication.
"(si elle figure dans le module sous-jacent au formulaire contenant la
liste)".

Qu'entendez vs par module sous jacent au formulaire?

explications:

J'ai un bouton sur lequel je clique pour avoir la liste des clients dans
une

liste modifiable sous le bouton ds le même formulaire.
Sur l'événement clic, j'ai mon petit code VBA, ds lequel j'ai ajouté votre
instruction.
La liste est sous le bouton, c'est une liste modifiable, mais à
l'exécution

du code, ça plante à votre instruction.
De plus ce qui m'ennuie le plus, sous VBA, je n'accéde pas à la méthode
AddItem de l'objet Me!Liste.
La liste est bien paramétrée en liste de valeurs.

Avez vs une idée ?
Merci encore.


"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonsoir,

Si la propriété Contenu de votre liste modifiable (nommée CtrlCombo) a
pour

valeur "Liste de valeurs",
vous pouvez insérer le code VBA ci-dessous dans votre boucle (si elle
figure

dans le module sous-jacent au formulaire contenant la liste).

Me!CtrlCombo.AddItem RS!Nom & " " & RS!Prenom

Benoit Compoint

"MD" wrote in message
news:
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de mon
Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci












Avatar
MD
merci bcp de ces explications claires.
J'ai en effet ACCESS 2000 et je n'arrivais pas à utiliser la métgode AddItem
(car elle ne m'était pas proposée). Je vais essayer de passer par la
concaténation des valeurs.
Mrci encore


"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonjour,

Ce que j'ai appelé "le module sous-jacent au formulaire" est tout
simplement

le module associé au formulaire.
C'est nécessaire pour que la syntaxe "Me!CtrlCombo" permette de référencer
la liste modifiable.

Votre code VBA figure bien dans "le module sous-jacent au formulaire",
mais

vous utilisez probablement Access 97 ou Access 2000.
La méthode AddItem des les listes n'existe que pour les versions 2002 et
2003 d'Access.

Si vous souhaitez ajouter un nombre limité de valeurs (la propriété
RowSource d'un contrôle liste modifiable est limitée à 2048 caractères),
vous pouvez définir la valeur de la propriété RowSource par concaténation
des valeurs séparées par un point-virgule.

Dans ce cas l'instruction à insérer dans la boucle serait :

Me!CtrlCombo.RowSource = Me!CtrlCombo.RowSource _
& RS!Nom & " " & RS!Prenom & ";"

Cela suppose que les champs "Nom" et "Prenom" ne comportent pas de
point-virgule.
Cette condition est généralement vérifiée.

Benoit Compoint

"MD" wrote in message
news:
je ne comprends pas la fin de votre explication.
"(si elle figure dans le module sous-jacent au formulaire contenant la
liste)".

Qu'entendez vs par module sous jacent au formulaire?

explications:

J'ai un bouton sur lequel je clique pour avoir la liste des clients dans
une

liste modifiable sous le bouton ds le même formulaire.
Sur l'événement clic, j'ai mon petit code VBA, ds lequel j'ai ajouté
votre


instruction.
La liste est sous le bouton, c'est une liste modifiable, mais à
l'exécution

du code, ça plante à votre instruction.
De plus ce qui m'ennuie le plus, sous VBA, je n'accéde pas à la méthode
AddItem de l'objet Me!Liste.
La liste est bien paramétrée en liste de valeurs.

Avez vs une idée ?
Merci encore.


"Benoit Compoint [MS]" a écrit dans le
message de news:
Bonsoir,

Si la propriété Contenu de votre liste modifiable (nommée CtrlCombo) a
pour

valeur "Liste de valeurs",
vous pouvez insérer le code VBA ci-dessous dans votre boucle (si elle
figure

dans le module sous-jacent au formulaire contenant la liste).

Me!CtrlCombo.AddItem RS!Nom & " " & RS!Prenom

Benoit Compoint

"MD" wrote in message
news:
Bonsoir,

petite question ADO facile pour les confirmés....



Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
Dim RS As New ADODB.Recordset
RS.Open "select * from client", conn, adOpenStatic
With RS
Do While Not .EOF

Ma question :
comment ici ds la boucle afficher les deux champs (nom, prénom) de
mon




Record set ds une liste modifiable ou simple.Merci

RS.MoveNext
Loop
End With
...

Merci