OVH Cloud OVH Cloud

Petit Problème

2 réponses
Avatar
Emilie
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 .

Quelqu'un aurait il une petite d'idée d'ou se situe mon erreur ?

De plus, si je marque sous la ligne Private Sub , l'expression suivante : On
Error GoTo Form_CurrentErr , eh bien cette ligne se tyrouve automatiquement
surlignée en gris Et évidement, je ne sais pas pourquoi ! ! !

Merci à vous tous
A+

Emilie


begin 666 cry.gif
M1TE&.#EA#P`/`*$``````+V]O8RM_P#__R'_"TY%5%-#05!%,BXP`P$````A
M^00!```!`"P`````#P`/```"-XP-F<>1`N%B0,8JP,'X2I1%8J5UCV2FERH,
M;N0.*"2+]HDJHV.-LA:HV78#WE!2W'10#:6B40``(?D$`0```0`L``````\`
M#P```C:,#9G'D0+A8D#&*L#!^$J416*E=8]DII<*#:+@HO!+/[%RNJ4U?@[]
MTH" &<,`T4$U-CC&H ``(?D$`0```0`L``````\`#P```CB,#9G'D0+A8D#&
M*L#!^$J416*E=8]DII<J#(/8OEDEPV,W*Z-CC=!@J-DD0-XPTSBM#D6$0L,H
M```A^00!```!`"P`````#P`/```"-XP-F<>1`N%B0,8JP,'X2I1%8J5UCV2F
MERH,;32XJ"S"Z*ATF6.-K3;0U3Z@(7$CG#0<N<,@4 ``(?Z)5&AI<R!A;FEM
M871E9"!'248@9FEL92!W87,@8V]N<W1R=6-T960@=7-I;F<@56QE860@1TE&
M($%N:6UA=&]R(%1R:6%L(%9E<G-I;VXL('9I<VET('5S(&%T(&AT=' Z+R]W
M=W<N=6QE860N8V]M('1O(&9I;F0@;W5T(&UO<F4N`5534U!#350`(?\+4$E!
M3EE'248R+C!*0V]P>2!O9B!);6%G90%#;W!Y(&]F($EM86=E`4-O<'D@;V8@
H26UA9V4!0V]P>2!O9B!);6%G90%097)S;VYA;"!#;VUM96YT`0``.P``
`
end

begin 666 wink.gif
M1TE&.#EA#P`/`+,``````+^_O___````````````````````````````````
M`````````````````````"'Y! $```$`+ `````/``\```0T,$@):ITX5,'Y
MQ4 G>E,XC@`EF.MJIJSEQ>PI;C9:YZYGOQK?C12<R8C%7P;7^60TEA0F`@`[
`
end

2 réponses

Avatar
Eric
re Emilie,

reponse donnée sur l'autre post

Eric

"Emilie" écrivait
news::

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 .

Quelqu'un aurait il une petite d'idée d'ou se situe mon erreur ?

De plus, si je marque sous la ligne Private Sub , l'expression
suivante : On Error GoTo Form_CurrentErr , eh bien cette ligne se
tyrouve automatiquement surlignée en gris Et évidement, je ne sais
pas pourquoi ! ! !

Merci à vous tous
A+

Emilie


begin 666 cry.gif
Fichier sauvé: C:XNewsattachmentscry.gif
`
end

begin 666 wink.gif
Fichier sauvé: C:XNewsattachmentswink_3.gif
`
end




Avatar
Emilie
Bonjour Eric,

Eric... Wrote:
re Emilie,

reponse donnée sur l'autre post


Merci Eric mais je netrouve plus mon autre post ! ! !

Emilie

"Emilie" écrivait
news::

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 .

Quelqu'un aurait il une petite d'idée d'ou se situe mon erreur ?

De plus, si je marque sous la ligne Private Sub , l'expression
suivante : On Error GoTo Form_CurrentErr , eh bien cette ligne se
tyrouve automatiquement surlignée en gris Et évidement, je ne sais
pas pourquoi ! ! !

Merci à vous tous
A+

Emilie


begin 666 cry.gif
Fichier sauvé: C:XNewsattachmentscry.gif
`
end

begin 666 wink.gif
Fichier sauvé: C:XNewsattachmentswink_3.gif
`
end