Zone de liste

Bonjour à tous ,

Voilà j'ai crée un formulaire à l'interieur duquel j'ai mis une zone
de liste dans l'espoir de remonter certaines informations contenues
dans une autre table; mon formulaire contient des des champs issus
d'une Table TblArtistes et ma zone de liste devrait contenir des
champs issus d'une Table TblTitres ; voilà ce que j'ai fait dans
l'évènement Activation du formulaire :
Private Sub Form_Current ()
Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As
Titre " & _
"FromTblTitres" & _
"where NoArtiste= "& me.IdArtiste & _
"Order By TblTitres.Titre,"
Me.ListeTitre.Requery
End Sub

PS : ListeTitre est le nom de ma zone de liste

Eh bien avec tout ça ça ne fonctionne pas ;-(
Ma zone de liste est vide ; aucune information n'apparaît à
l'interieur .

Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As TitreDUOouAutre " & _
"FromTblTitres " & _
"where NoArtiste= "& me.IdArtiste & _
" Order By TblTitres.Titre;"

"Emilie" <gege@wanadoo.fr> écrivait
news:uf4IQl2OEHA.628@TK2MSFTNGP11.phx.gbl:

Bonjour à tous ,

Voilà j'ai crée un formulaire à l'interieur duquel j'ai mis une zone
de liste dans l'espoir de remonter certaines informations contenues
dans une autre table; mon formulaire contient des des champs issus
d'une Table TblArtistes et ma zone de liste devrait contenir des
champs issus d'une Table TblTitres ; voilà ce que j'ai fait dans
l'évènement Activation du formulaire :
Private Sub Form_Current ()
Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As
Titre " & _
"FromTblTitres" & _
"where NoArtiste= "& me.IdArtiste & _
"Order By TblTitres.Titre,"
Me.ListeTitre.Requery
End Sub

PS : ListeTitre est le nom de ma zone de liste

Eh bien avec tout ça ça ne fonctionne pas ;-(
Ma zone de liste est vide ; aucune information n'apparaît à
l'interieur .

Bonjour Emilie

Ca devrait marcher mais tu as une erreur dans ton sql
tu fais "select NoArtiste, Titre " jusque la OK mais apres tu mets
ArtisteDuo as Titre et donc c'est conflictuel ca avec le champ Titre
précédent.
En plus tu as une virgule à la fin alors qu'il faut un point virgule et
il manque un espace entre le from FromTblTitres et le where , et un
espace avant le Order by
je suppose que le NoArtiste est numérique

ton sql devrait être :

Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As TitreDUOouAutre " & _
"FromTblTitres " & _
"where NoArtiste= "& me.IdArtiste & _ " Order By TblTitres.Titre;"

A+
Eric

PS: Verifies le nb de col de ta liste et leur largeur

re

et j'ai oublié l'espace entre le from et le nom de la table

en définitive ca donne
Dim strSQL as String
strSQL = "Select noArtiste, Titre, ArtisteDuo as TitreDuo "
strSQL = strSQL & "From tblTitres "
strSQL = strSQL & "Where noArtiste = " & Me.IdArtiste & " "
strSQL = strSQL & "Order by Titre;"
Me.ListeTitre.RowSource = strSQL

J'espere que j'ai pas fait d'erreurs ;-)

Merci beaucoup Eric ; ça fonctionne super bien ; sans vouloir abuser de ta

Eric <f_framZZ@hotmail.com> écrivait
news:XnF94EBC8313C560fframZZhotmailcom@207.46.248.16:

"Emilie" <gege@wanadoo.fr> écrivait
news:uf4IQl2OEHA.628@TK2MSFTNGP11.phx.gbl:

Bonjour à tous ,

Voilà j'ai crée un formulaire à l'interieur duquel j'ai mis une zone
de liste dans l'espoir de remonter certaines informations contenues
dans une autre table; mon formulaire contient des des champs issus
d'une Table TblArtistes et ma zone de liste devrait contenir des
champs issus d'une Table TblTitres ; voilà ce que j'ai fait dans
l'évènement Activation du formulaire :
Private Sub Form_Current ()
Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As
Titre " & _
"FromTblTitres" & _
"where NoArtiste= "& me.IdArtiste & _
"Order By TblTitres.Titre,"
Me.ListeTitre.Requery
End Sub

PS : ListeTitre est le nom de ma zone de liste

Eh bien avec tout ça ça ne fonctionne pas ;-(
Ma zone de liste est vide ; aucune information n'apparaît à
l'interieur .

Bonjour Emilie

Ca devrait marcher mais tu as une erreur dans ton sql
tu fais "select NoArtiste, Titre " jusque la OK mais apres tu mets
ArtisteDuo as Titre et donc c'est conflictuel ca avec le champ Titre
précédent.
En plus tu as une virgule à la fin alors qu'il faut un point virgule
et il manque un espace entre le from FromTblTitres et le where , et
un espace avant le Order by
je suppose que le NoArtiste est numérique

ton sql devrait être :

Me.ListeTitre.RowSource = "Select noArtiste, Titre, ArtisteDuo
As TitreDUOouAutre " & _
"FromTblTitres " & _
"where NoArtiste= "& me.IdArtiste & _ " Order By
TblTitres.Titre;"

A+
Eric

PS: Verifies le nb de col de ta liste et leur largeur

Sans vouloir abuser

de ta gentillesse, si je veux rajouter un champs " Album " de ma Table
TblAlbum, comment puis je faire pour que ce cjamps là apparaisse dans
ma zone de liste ?

"Emilie" <gege@wanadoo.fr> écrivait
re

tu veux dire le champ Album de la table tblTitres, je suppose

Dans ce cas , il te suffit de rajouter le champ dans le select
strSQL ="Select noArtiste, Titre, ArtisteDuo as TitreDuo, Album "
le reste ne change pas.
Dans les propriétés de ta liste ListeTitre
Onglet Format, nombre de colonnes tu mets 4 et tu verifies la largeur
des colonnes et réajustes au besoin.

A+
Eric

Eh bien non ;-) Il s'agit du champs Album qui vient de ma
table..................................................TblAlbum ! !

re,

tu dois avoir un champ de jointure entre la table tblTitres et
tblAlbum qui doit etre IdAlbum, on va le supposer comme ca
ton sql va resembler a :
strSQl = "Select noArtiste, Titre, ArtisteDuo as TitreDuo, Album from
" strSQL = strSQL & "tblTitres inner join tblAlbum on
tblTitres.IdAlbum=" strSQL = strSQl & "tblAlbum.IdAlbum where
NoArtiste=" & me.IdArtiste strSQl = strSQL & " Order by Titre;"

Super ! ! ça fonctionne très bien ,-)

"Emilie" <gege@wanadoo.fr> écrivait

Eh bien non ;-) Il s'agit du champs Album qui vient de ma
table..................................................TblAlbum ! !