Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonjour,
INSERT INTO TableGenreConcatener (Genre,Film) SELECT Film,
DFirst("Genre","TableGenre","Film=" & Film) & "," &
DLast("Genre","TableGenre","Film=" & Film &
" AND Genre<>'" DFirst("Genre","TableGenre","Film=" & Film) & "'")
FROM TableGenre GROUP BY Film;
J'obtiens au mieux
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée,
Il est peut etre preferable que tu attendes d'autres reponses.Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs
d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonjour,
INSERT INTO TableGenreConcatener (Genre,Film) SELECT Film,
DFirst("Genre","TableGenre","Film=" & Film) & "," &
DLast("Genre","TableGenre","Film=" & Film &
" AND Genre<>'" DFirst("Genre","TableGenre","Film=" & Film) & "'")
FROM TableGenre GROUP BY Film;
J'obtiens au mieux
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée,
Il est peut etre preferable que tu attendes d'autres reponses.
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs
d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonjour,
INSERT INTO TableGenreConcatener (Genre,Film) SELECT Film,
DFirst("Genre","TableGenre","Film=" & Film) & "," &
DLast("Genre","TableGenre","Film=" & Film &
" AND Genre<>'" DFirst("Genre","TableGenre","Film=" & Film) & "'")
FROM TableGenre GROUP BY Film;
J'obtiens au mieux
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée,
Il est peut etre preferable que tu attendes d'autres reponses.Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs
d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Bonsoir,
Je cherche (mais ne trouve pas...) le moyen de concaténer les valeurs d'un
champs pour mettre dans un état avec des virgules comme séparateur.
Exemple :
J'ai un sous-formulaire en mode continue avec une liste déroulante :
[TableGenre]
[Film] [GenreFilm]
1 Dramatique
1 Comédie
2 Fantastique
2 Humour
3 Dessin animée
Je voudrais celà donne dans une nouvelle table :
[TableGenreConcatenner]
[Film] [GenreFilm]
1 Dramatique, Comédie
2 Fantastique, Humour
3 Dessin animée
Quelqu'un connaît la solution SVP ?
(Le contraire je sais faire si celà interesse quelqu'un...)
Merci
Patrice
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
pris
en compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
pris
en compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
pris
en compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
J'ai corrige le pb apres avoir ecris cette remarque. Le code marche meme
Bonsoir,
J'ai essayé ton code, mais celà ne fonctionne pas :o(((
Sur la ligne :
Set rstSRC = dbs.OpenRecordset(sSQL)
Erreur d'exécution '3061':
Trop peu de paramètres. 1 attendu.Quant a la condition WHERE ?? Y en a pas dans le code ?
Comme je mets le code sur un évènement (Bouton) je souhaitais que la
sélection ne se fasse que sur le film du contrôle de mon formulaire...En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Dans ce cas il faudrait alors que la table TableGenreConcatenner soit une
Temp et que j'ajoute une requête ajout pour une table TableGenreConcatenner
"Définitive, histoire de stocker "l'historique" ???!!!...
(Si tu veux regarder mon bidouillage, j'ai créé une base spécialement pour
étudier mon blème. Je peux te l'envoyer.)
Merci de ton aide
Patrice
!!!! ///
( @ @ )
-------oOOo--(_)--oOOo------
(Pour m'écrire directement, enlever BZH à mon adresse)
"Ilan" a écrit dans le message de
news:Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
prisen compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
J'ai corrige le pb apres avoir ecris cette remarque. Le code marche meme
Bonsoir,
J'ai essayé ton code, mais celà ne fonctionne pas :o(((
Sur la ligne :
Set rstSRC = dbs.OpenRecordset(sSQL)
Erreur d'exécution '3061':
Trop peu de paramètres. 1 attendu.
Quant a la condition WHERE ?? Y en a pas dans le code ?
Comme je mets le code sur un évènement (Bouton) je souhaitais que la
sélection ne se fasse que sur le film du contrôle de mon formulaire...
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Dans ce cas il faudrait alors que la table TableGenreConcatenner soit une
Temp et que j'ajoute une requête ajout pour une table TableGenreConcatenner
"Définitive, histoire de stocker "l'historique" ???!!!...
(Si tu veux regarder mon bidouillage, j'ai créé une base spécialement pour
étudier mon blème. Je peux te l'envoyer.)
Merci de ton aide
Patrice
\ !!!! ///
( @ @ )
-------oOOo--(_)--oOOo------
(Pour m'écrire directement, enlever BZH à mon adresse)
"Ilan" <Ilan@discussions.microsoft.com> a écrit dans le message de
news:66299C81-F673-483A-B348-A75843BDAFDB@microsoft.com...
Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
pris
en compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
J'ai corrige le pb apres avoir ecris cette remarque. Le code marche meme
Bonsoir,
J'ai essayé ton code, mais celà ne fonctionne pas :o(((
Sur la ligne :
Set rstSRC = dbs.OpenRecordset(sSQL)
Erreur d'exécution '3061':
Trop peu de paramètres. 1 attendu.Quant a la condition WHERE ?? Y en a pas dans le code ?
Comme je mets le code sur un évènement (Bouton) je souhaitais que la
sélection ne se fasse que sur le film du contrôle de mon formulaire...En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Dans ce cas il faudrait alors que la table TableGenreConcatenner soit une
Temp et que j'ajoute une requête ajout pour une table TableGenreConcatenner
"Définitive, histoire de stocker "l'historique" ???!!!...
(Si tu veux regarder mon bidouillage, j'ai créé une base spécialement pour
étudier mon blème. Je peux te l'envoyer.)
Merci de ton aide
Patrice
!!!! ///
( @ @ )
-------oOOo--(_)--oOOo------
(Pour m'écrire directement, enlever BZH à mon adresse)
"Ilan" a écrit dans le message de
news:Bonjour,
j'ai corrige une cht'tite erreur. TypFilm le dernier champ n'etait pas
prisen compte
Quant a la condition WHERE ?? Y en a pas dans le code ?
En revanche ca fonctionne que lorsque la table TableGenreConcatenner est
vide.
Function fnConcatGenreFilm()
Dim dbs As DAO.Database
Dim rstSRC As DAO.Recordset
Dim rstDST As DAO.Recordset
Dim NumFilm As Integer
Dim sSQL As String
Dim ToBeSaved as Boolean
sSQL = "Select Film, Genre As GenreFilm From TableGenre ORDER BY Film;"
Set dbs = CurrentDb
Set rstSRC = dbs.OpenRecordset(sSQL)
sSQL = "Select Film, Genre As GenreFilm FROM TableGenreConcatenner;"
Set rstDST = dbs.OpenRecordset(sSQL)
rstSRC.MoveFirst
NumFilm = 0
Tobesavedúlse
While Not rstSRC.EOF
If NumFilm <> 0 Then rstDST.Update : Tobesavedúlse
If NumFilm <> rstSRC!Film Then
rstDST.FindFirst("Film=" & rstSRC!Film)
if rstDST.NoMatch then
rstDST.AddNew
Else
rstDST.Edit
Endif
rstDST!Film = rstSRC!Film
rstDST!GenreFilm = rstSRC!GenreFilm
NumFilm = rstSRC!Film
tobesaved=true
Else
rstDST!GenreFilm = rstSRC!GenreFilm & ", " & rstDST!GenreFilm
End If
rstSRC.MoveNext
Wend
If Tobesaved then rstDST.Update
rstDST.Close
rstSRC.Close
dbs.Close
End Function