Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Remontée de Formulaire

Remontée de Formulaire

9 réponses
Avatar
Emilie
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et divers
supports ; j'ai crée un formulaire qui me donnes des caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ; ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ; je ne
sais pas si cela a une incidence ou pas !
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Buddy
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres WHERE NoArtiste=" & Me.IdArtiste
& " ORDER BY Titre"

Pour éviter les problèmes par la suite evite à tout prix les espaces dans les noms de champs de tes
tables.
Si tu veux malgré tout les utiliser, faut les mettre partout entre [] tes nom de champs pour le SQL
sinon erreur.

Ouala
Bye
Buddy

"Emilie" a écrit dans le message de news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et divers
supports ; j'ai crée un formulaire qui me donnes des caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ; ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ; je ne
sais pas si cela a une incidence ou pas !




Avatar
Emilie
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ;
je ne
sais pas si cela a une incidence ou pas !




Avatar
Eric
Bonsoir Emilie

Tu as des erreurs dans ton sql:
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"


1ere ligne , il y a une as Duo alors que Duo est dans la table donc
enleves le as
De pus il faut des espaces entre Duo et From et entre tblArtistes et
Where

donc ca doit s'ecrire comme suit :
strSQL = "Select NoArtiste, Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"

Quand tu concatenes une chaine, penses bien à séparer les mots-clé du sql
avec les nom des champs ou des tables.

A+
Eric

PS: je ne vois pas à quoi devait servir l'alias Duo ( as Duo) puisqu'il
s'agit d'un champ de ta table


"Emilie" écrivait
news::

Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur des artistes et j'ai fais un zone de liste pour
faire apparaître dans cette lisre des champs d'une autre table ; voici
ce que j'ai fait : Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ; ma
zone de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont
dans ma Table Titre et se trouvent dans le côté plusieurs de la
relation ; je ne sais pas si cela a une incidence ou pas !





Avatar
Buddy
Salut
bon alors essaies ça

strSQL = " Select NoArtiste,Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & IdArtiste & " "
strSQL = strSQL & "Order By Titre;"

Ouala
Bye
Buddy

"Emilie" a écrit dans le message de news:
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ;
je ne
sais pas si cela a une incidence ou pas !








Avatar
Emilie
Bonjour Eric,

Eric... Wrote :
Bonsoir Emilie

Tu as des erreurs dans ton sql:
donc ca doit s'ecrire comme suit :
strSQL = "Select NoArtiste, Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"

Eh bien j'ai fait tout comme tu me l'a écrit et ça ne fonctionne pas non

plus ;-( ; je n'ai toujours rien qui remonte dans ma zone de liste ! !
je ne vois ce qui peut y avoir

Merci quand même de ton aide, c'est gentil à toi

A+

Emilie




"Emilie" écrivait
news::

Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur des artistes et j'ai fais un zone de liste pour
faire apparaître dans cette lisre des champs d'une autre table ;
voici ce que j'ai fait : Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ;
ma zone de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo sont
dans ma Table Titre et se trouvent dans le côté plusieurs de la
relation ; je ne sais pas si cela a une incidence ou pas !




Avatar
Emilie
Re,

Buddy... Wrote :
Salut
bon alors essaies ça

strSQL = " Select NoArtiste,Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & IdArtiste & " "
strSQL = strSQL & "Order By Titre;"


Désolée Buddy mais ça ne fonctionne toujours pas ! ! ! Rien ne remonte dans
ma zone de liste !
Merci quand même ! !

A+

Emilie

"Emilie" a écrit dans le message de
news:
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que
j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo
sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ;
je ne
sais pas si cela a une incidence ou pas !








Avatar
Buddy
Salut
C'est pas un problème de syntaxe en tout cas
si tu veux envoies moi une copie de ta base vide et zippée.
Précise le formulaire où rien ne remonte et je te l'envoie corrigée.

Ouala
Bye
Buddy

"Emilie" a écrit dans le message de news:
Re,

Buddy... Wrote :
Salut
bon alors essaies ça

strSQL = " Select NoArtiste,Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & IdArtiste & " "
strSQL = strSQL & "Order By Titre;"


Désolée Buddy mais ça ne fonctionne toujours pas ! ! ! Rien ne remonte dans
ma zone de liste !
Merci quand même ! !

A+

Emilie

"Emilie" a écrit dans le message de
news:
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que
j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo
sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation ;
je ne
sais pas si cela a une incidence ou pas !












Avatar
Ayrton
Re ,
Buddy... Wrote :
Salut
C'est pas un problème de syntaxe en tout cas
si tu veux envoies moi une copie de ta base vide et zippée.
Précise le formulaire où rien ne remonte et je te l'envoie corrigée.

Ok Buddy c'est gentil ; c'est quoi ton adresse mail ?


Emilie


"Emilie" a écrit dans le message de
news:
Re,

Buddy... Wrote :
Salut
bon alors essaies ça

strSQL = " Select NoArtiste,Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & IdArtiste & " "
strSQL = strSQL & "Order By Titre;"


Désolée Buddy mais ça ne fonctionne toujours pas ! ! ! Rien ne
remonte dans
ma zone de liste !
Merci quand même ! !

A+

Emilie

"Emilie" a écrit dans le message de
news:
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que
j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique
et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui
remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo
sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation
;
je ne
sais pas si cela a une incidence ou pas !












Avatar
Buddy
C'est celle qui est dans le post :

"Ayrton" a écrit dans le message de
news:
Re ,
Buddy... Wrote :
Salut
C'est pas un problème de syntaxe en tout cas
si tu veux envoies moi une copie de ta base vide et zippée.
Précise le formulaire où rien ne remonte et je te l'envoie corrigée.

Ok Buddy c'est gentil ; c'est quoi ton adresse mail ?


Emilie


"Emilie" a écrit dans le message de
news:
Re,

Buddy... Wrote :
Salut
bon alors essaies ça

strSQL = " Select NoArtiste,Titre, Single, Duo "
strSQL = strSQL & "From TblTitres "
strSQL = strSQL & "WHERE NoArtiste=" & IdArtiste & " "
strSQL = strSQL & "Order By Titre;"


Désolée Buddy mais ça ne fonctionne toujours pas ! ! ! Rien ne
remonte dans
ma zone de liste !
Merci quand même ! !

A+

Emilie

"Emilie" a écrit dans le message de
news:
Bonsoir ,

Buddy... Wrote:
Salut
Essaies ça

strSQL = "SELECT NoArtiste, Titre, Single, [as Duo] FROM tblTitres
WHERE NoArtiste=" & Me.IdArtiste & " ORDER BY Titre"


Merci de ton aide mais ça ne fonctionne pas mieux qu'avec ce que
j'avais
fait ; j'en suis donc au même point ;-(
Merci tout de même
A+

Emilie



"Emilie" a écrit dans le message de
news:
Bonsoir à tous ,

Voilà , j'ai une application ave 3 Tables qui gère de la musique
et
divers
supports ; j'ai crée un formulaire qui me donnes des
caractéristiques sur
des artistes et j'ai fais un zone de liste pour faire apparaître
dans cette
lisre des champs d'une autre table ; voici ce que j'ai fait :
Private Sub Form_Current()
Dim strSQL As String
strSQL = " Select NoArtiste,Titre, Single, as Duo"
strSQL = strSQL & "From TblTitres"
strSQL = strSQL & "WHERE NoArtiste=" & Me.IdArtiste & " "
strSQL = strSQL & "Order By Titre;"
Me.ListeTitre.RowSource = strSQL

End Sub

Eh bien avec ça, ça ne marche pas ;-( ; je n'ai rien qui
remonte ;
ma zone
de liste reste " vierge " .
Qui pourrais me dire où ais je fais une erreur ?
Merci d'avance pour votre aide
A+

Emilie
PS : je précise que les champs No Artiste, Titre, single et Duo
sont
dans ma
Table Titre et se trouvent dans le côté plusieurs de la relation
;
je ne
sais pas si cela a une incidence ou pas !