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 REMPLISSAGE LISTBOX + VBA

REMPLISSAGE LISTBOX + VBA

1 réponse
Avatar
Loupio
Bonjour les gens,

J'ai de nouveau une question, cette fois concernant le remplissage d'une
ListBox via VBA.

------------------------------------------------
Ma requete en SQL fonctionne très bien
------------------------------------------------

Voilà mon code, et je pense que c'est les 3 dernières lignes qui coincent
car avec l'espion, le reste est bon:
-------------------------------------------------------------------------------------------
J'ai déclaré T,V, P, T_C as string

Set rs=db.OpenRecordset("SELECT...INNER JOIN.......)

If (rs.Recordcount>0) then
rs.Movefirst
T=rs.fields("Nom_Transporteur")
V=rs.fields("Ville")
P=rs.fields("Prix")
T_C=rs.fields("Type_Camion")
rs.MoveNext

Liste_Transporteur.column(0)=T_C
Liste_Transporteur.column(1)=T
Liste_Transporteur.column(2)=V
Liste_Transporteur.column(3)=P

end if
end sub
--------------------------------------------------------

Est ce que Liste_Transporteur.column(0)=... est correct ?
Est ce qu'il y a des paramètres dans propriété de la liste_Box qu'il faut
modifier ? (Nb colonne 4)...

Merci pour votre soutien

Loupio
Signaler un problème avec ce contenu

1 réponse

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]
Bonjour.

on ne charge pas une liste de cette façon mais en passant par la propriété
Rowsource ou AddItem selon la version Access ( voir aide en ligne)
Liste_Transporteur.Rowsource = Liste_Transporteur.Rowsource &
rs.fields("Nom_Transporteur") & ";" & rs.fields("Ville") & ";" &
rs.fields("Prix") & ";" rs.fields("Type_Camion") & ";"
ne pas oublier que le contenu peut être directement une requête sans passer
par le VBA.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Loupio" a écrit dans le message de news:

| Bonjour les gens,
|
| J'ai de nouveau une question, cette fois concernant le remplissage d'une
| ListBox via VBA.
|
| ------------------------------------------------
| Ma requete en SQL fonctionne très bien
| ------------------------------------------------
|
| Voilà mon code, et je pense que c'est les 3 dernières lignes qui coincent
| car avec l'espion, le reste est bon:
| -------------------------------------------------------------------------------------------
| J'ai déclaré T,V, P, T_C as string
|
| Set rsÛ.OpenRecordset("SELECT...INNER JOIN.......)
|
| If (rs.Recordcount>0) then
| rs.Movefirst
| T=rs.fields("Nom_Transporteur")
| V=rs.fields("Ville")
| P=rs.fields("Prix")
| T_C=rs.fields("Type_Camion")
| rs.MoveNext
|
| Liste_Transporteur.column(0)=T_C
| Liste_Transporteur.column(1)=T
| Liste_Transporteur.column(2)=V
| Liste_Transporteur.column(3)=P
|
| end if
| end sub
| --------------------------------------------------------
|
| Est ce que Liste_Transporteur.column(0)=... est correct ?
| Est ce qu'il y a des paramètres dans propriété de la liste_Box qu'il faut
| modifier ? (Nb colonne 4)...
|
| Merci pour votre soutien
|
| Loupio
|