[Acces/VBA] Comment remplir une listbox ?

Comment remplir une listbox ? [Acces/VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 12-06-2004 à 09:45:16    

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 :
  1. im Requete As String
  2.     Requete = "SELECT Bouteille.NomChat, Appellation.LibelleApp, Bouteille.Annee, Couleur.LibelleCoul, Type.LibelleType"
  3.     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"
  4.     Requete = Requete & "WHERE Bouteille.NomChat Like " * [frmConsult]![txtNomChat] * " And Bouteille.PropChat Like " * [frmConsult]![txtPropChat] * " And Bouteille.Annee = [frmConsult]![txtAnnee] And Appellation.LibelleApp = [frmConsult]![cboApp]"
  5.     Requete = Requete & "ORDER BY Bouteille.NomChat;"
  6.     Set rs = dbCave.OpenRecordset(Requete, dbOpenDynaset)
  7.     lstResult.RowSource = rs


 
Merci de votre aide !  ;)

Reply

Marsh Posté le 12-06-2004 à 09:45:16   

Reply

Marsh Posté le 14-06-2004 à 16:08:33    

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


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed