Discussion :

[peaceandloveman01]

Bonsoir,

J'ai créé une requete sous Access qui me permet de récupérer l'ensemble des infos dont j'ai besoin. Lorsque je l'exécute tout va bien. Mais lorsque je bascule cette requete en VBA pour la passer dans la propriété RowSource d'une listBox, rien ne s'affiche ... Une idée du pourquoi ??

Merci d'avance

[Invité]

Bonjour

Il y a souvent quelques aménagements à faire lorsque l'on passe une requête en mode VBA.

Il faudrait que tu nous donnes ta requête.
De plus dans les propriétés de ta liste tu as Origine Source as-tu bien Table/Requête ?

Philippe

[peaceandloveman01]

Voici ma requete en SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT Projet.IdProjet, Projet.NumeroOrdre, Intervenant.Nom, Client.Nom, TypedePrestation.Nom, Piece.Nom, Materiaux.Nom, Domaine.Nom, Technique.Nom, Projet.DescriptionCourte, Projet.DescriptionLongue
FROM Technique INNER JOIN ((TypedePrestation INNER JOIN (EtatProjet INNER JOIN (((((Client INNER JOIN Projet ON Client.IdClient = Projet.IdClient) INNER JOIN (Intervenant INNER JOIN Charger ON Intervenant.IdIntervenant = Charger.IdIntervenant) ON Projet.IdProjet = Charger.IdProjet) INNER JOIN (Materiaux INNER JOIN Composer ON Materiaux.IdMateriaux = Composer.IdMateriaux) ON Projet.IdProjet = Composer.IdProjet) INNER JOIN (Piece INNER JOIN Concerner ON Piece.IdPiece = Concerner.IdPiece) ON Projet.IdProjet = Concerner.IdProjet) INNER JOIN (Domaine INNER JOIN Correspondre ON Domaine.IdDomaine = Correspondre.IdDomaine) ON Projet.IdProjet = Correspondre.IdProjet) ON EtatProjet.IdEtatProjet = Projet.IdEtatProjet) ON TypedePrestation.IdTypeDePrestations = Projet.IdTypeDePrestations) INNER JOIN Utiliser ON Projet.IdProjet = Utiliser.IdProjet) ON Technique.IdTechnique = Utiliser.IdTechnique;

Comme vous pouvez le voir elle est très longue !!! Mais je ne peux pas faire autrement... (enfin il me semble)

Sinon j'ai bien pensé à la propriété RowSourceType

[Filou07]

Salut,

ton code doit être sous la forme d'une chaîne continue. Quand tu fais un copier/coller du SQL de la requête vers ton code VBA, il te faut supprimer tous les retours chariot.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim txtSQL as string
txtSQL="SELECT Projet.IdProjet....... FROM Technique ...... ;"
MaListBox.RowSource=txtSQL

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim txtSQL as string
txtSQL="SELECT Projet.IdProjet,....... " & _
       " FROM Technique....... ;"
MaListBox.RowSource=txtSQL

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim txtSQL as string
txtSQL="SELECT Projet.IdProjet,....... "
txtSQL=txtSQL & " FROM Technique....... ;"
MaListBox.RowSource=txtSQL

Attention à ce qu'il y ait bien un espace avant les mots clé (FROm WHERE....)

[peaceandloveman01]

Bonjour,

je sais qu'il faut attention à ces retours chariots. J'ai juste fait un copier coller de la requete (non formatée pour VBA). Mais même cela ne règle pas le pb...

[Invité]

Re

Mets nous l'ensemble, la requête et le code qui va autour que tu as réalisé, on verra beaucoup mieux.

Philippe