[Acces/VBA] Comment remplir une listbox ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Acces/VBA] Comment remplir une listbox ?

Pauleta33

Je voudrais à partir de champ dans mon formulaire, construire une requete, et afficher les resultats.

Je pensais donc les afficher dans une listbox.
Mais je n'arrive pas à la remplir

Code :

im Requete As String
Requete = "SELECT Bouteille.NomChat, Appellation.LibelleApp, Bouteille.Annee, Couleur.LibelleCoul, Type.LibelleType"
Requete = Requete & "FROM Type INNER JOIN (Couleur INNER JOIN (Appellation INNER JOIN Bouteille ON Appellation.CodeApp = Bouteille.CodeApp) ON Couleur.CodeCoul = Bouteille.CodeCoul) ON Type.CodeType = Bouteille.CodeType"
Requete = Requete & "WHERE Bouteille.NomChat Like " * [frmConsult]![txtNomChat] * " And Bouteille.PropChat Like " * [frmConsult]![txtPropChat] * " And Bouteille.Annee = [frmConsult]![txtAnnee] And Appellation.LibelleApp = [frmConsult]![cboApp]"
Requete = Requete & "ORDER BY Bouteille.NomChat;"
Set rs = dbCave.OpenRecordset(Requete, dbOpenDynaset)
lstResult.RowSource = rs

Merci de votre aide !

Publicité

JihemAir

Je sais pas

Substitue les "*" de la requete per des "&". (concatenation VB).

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Acces/VBA] Comment remplir une listbox ?

Sujets relatifs
Pb : Comment afficher un texte dans une état access avec code VBA	accès au contenue d'une struct (*tata.toto)
Pb avec envoi de mail via VBA/Access 2000	Empecher l'acces direct à une page
VBA	[VBA/Access 2000] Comparer valeur champ d'édition avec champ table
union en acces	Convertir des données en VBA vers Excel
[VBA] afficher mes données excel dans une listbox
Plus de sujets relatifs à : [Acces/VBA] Comment remplir une listbox ?

Page générée en 0.053 secondes