Sous Etat

Le
Michel
Bonjour a toutes et a tous

voila ce qui m'amène, dans un état j'affiche un sous/Etat issue d'une
requête.
Qui ce présente comme ceci :

Compétition à points Latine
A3
B4
B5
SA2
SA3
Etc
Coupe de France Latine
+ 25 ans
M3
M5
P
SA
Etc
Coupe de France Standard
-30 ans
-45 ans
J4
J5
Etc

Je souhaite afficher ceci dans mon Sous/Etat :

Compétition à points Latine
A3 / B4 / B5 / SA2 / SA3 / Etc
Coupe de France Latine
+ 25 ans / M3 / M5 / P / SA / Etc
Coupe de France Standard
-30 ans / -45 ans / J4 / J5 / Etc..

Si quelqu'un peut m'aider car je galére depuis trois jour.
D'avance Merci

Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6287391
Bonjour.

il me semble que la solution proposée par jessy sur son site :
http://access.fr.free.fr/articles.php?lng=fr&pgE devrait convenir à ta
demande. Cette fonction permet de concaténer les valeurs d'un champ dans un
champ unique en fonction du regroupement établi sur un autre champ

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Michel" 46715969$0$20243$
| Bonjour a toutes et a tous
|
| voila ce qui m'amène, dans un état j'affiche un sous/Etat issue d'une
| requête.
| Qui ce présente comme ceci :
|
| Compétition à points Latine
| A3
| B4
| B5
| SA2
| SA3
| Etc...
| Coupe de France Latine
| + 25 ans
| M3
| M5
| P
| SA
| Etc...
| Coupe de France Standard
| -30 ans
| -45 ans
| J4
| J5
| Etc...
|
| Je souhaite afficher ceci dans mon Sous/Etat :
|
| Compétition à points Latine
| A3 / B4 / B5 / SA2 / SA3 / Etc...
| Coupe de France Latine
| + 25 ans / M3 / M5 / P / SA / Etc...
| Coupe de France Standard
| -30 ans / -45 ans / J4 / J5 / Etc..
|
| Si quelqu'un peut m'aider car je galére depuis trois jour.
| D'avance Merci
|
| Michel
|
|
|
|
Michel
Le #6287361
Bonsoir Raymond et merci de ton aide.

J'ai copié dans un module nommé "ConcatForQuery" le code :

Function ConcatForQuery(strRegroup As String, fldRegroup As String, _
strConcat As String, strTable As String, _
Optional strSep As String = "/") As String

'** Regroupement de donnée sur le champ fldRegroup
'** et concaténation sur le champ strConcat
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strResult As String
Dim strRst As String

Set db = CurrentDb()
strRst = "Select * From [" & strTable & "] " _
& "Where [" & strRegroup & "] = """ & fldRegroup & """;"

Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
With rst
If Not .BOF Then
.MoveFirst
Do Until .EOF
If strResult = "" Then
strResult = .Fields(strConcat)
Else
strResult = strResult & strSep & .Fields(strConcat)
End If
.MoveNext
Loop
End If
End With
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing
ConcatForQuery = strResult

End Function

J'ai modifié la requète proposé avec les noms de ma requète en :

SELECT RqtManifCompEpreuve.Competition,
ConcatForQuery("Competition",[Compétition],"Epreuves","RqtManifCompEpreuve","
/ ")
AS Résultat
FROM RqtManifCompEpreuve
GROUP BY Competition;

J'ai une fenêtre d'erreur :

"Fonction ComcatForQuery non définie dans l'expression."

Je suis toujours aussi peu doué en VBA.


D'avance merci
Michel



"Raymond [mvp]" de news:
Bonjour.

il me semble que la solution proposée par jessy sur son site :
http://access.fr.free.fr/articles.php?lng=fr&pgE devrait convenir à ta
demande. Cette fonction permet de concaténer les valeurs d'un champ dans
un
champ unique en fonction du regroupement établi sur un autre champ

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office
!
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Michel" 46715969$0$20243$
| Bonjour a toutes et a tous
|
| voila ce qui m'amène, dans un état j'affiche un sous/Etat issue d'une
| requête.
| Qui ce présente comme ceci :
|
| Compétition à points Latine
| A3
| B4
| B5
| SA2
| SA3
| Etc...
| Coupe de France Latine
| + 25 ans
| M3
| M5
| P
| SA
| Etc...
| Coupe de France Standard
| -30 ans
| -45 ans
| J4
| J5
| Etc...
|
| Je souhaite afficher ceci dans mon Sous/Etat :
|
| Compétition à points Latine
| A3 / B4 / B5 / SA2 / SA3 / Etc...
| Coupe de France Latine
| + 25 ans / M3 / M5 / P / SA / Etc...
| Coupe de France Standard
| -30 ans / -45 ans / J4 / J5 / Etc..
|
| Si quelqu'un peut m'aider car je galére depuis trois jour.
| D'avance Merci
|
| Michel
|
|
|
|




Raymond [mvp]
Le #6287351
tu as fait une erreur d'orthographe:

Fonction ComcatForQuery non définie dans l'expression

c'est ConcatForQuery qu'il faut indiquer

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Michel" 46716461$0$7431$
| Bonsoir Raymond et merci de ton aide.
|
| J'ai copié dans un module nommé "ConcatForQuery" le code :
|
| Function ConcatForQuery(strRegroup As String, fldRegroup As String, _
| strConcat As String, strTable As String, _
| Optional strSep As String = "/") As String
|
| '** Regroupement de donnée sur le champ fldRegroup
| '** et concaténation sur le champ strConcat
| Dim db As DAO.Database
| Dim rst As DAO.Recordset
| Dim strResult As String
| Dim strRst As String
|
| Set db = CurrentDb()
| strRst = "Select * From [" & strTable & "] " _
| & "Where [" & strRegroup & "] = """ & fldRegroup & """;"
|
| Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
| With rst
| If Not .BOF Then
| .MoveFirst
| Do Until .EOF
| If strResult = "" Then
| strResult = .Fields(strConcat)
| Else
| strResult = strResult & strSep & .Fields(strConcat)
| End If
| .MoveNext
| Loop
| End If
| End With
| rst.Close: Set rst = Nothing
| db.Close: Set db = Nothing
| ConcatForQuery = strResult
|
| End Function
|
| J'ai modifié la requète proposé avec les noms de ma requète en :
|
| SELECT RqtManifCompEpreuve.Competition,
|
ConcatForQuery("Competition",[Compétition],"Epreuves","RqtManifCompEpreuve","
| / ")
| AS Résultat
| FROM RqtManifCompEpreuve
| GROUP BY Competition;
|
| J'ai une fenêtre d'erreur :
|
| "Fonction ComcatForQuery non définie dans l'expression."
|
| Je suis toujours aussi peu doué en VBA.
|
|
| D'avance merci
| Michel
|
|
|
| "Raymond [mvp]" message
| de news:
| > Bonjour.
| >
| > il me semble que la solution proposée par jessy sur son site :
| > http://access.fr.free.fr/articles.php?lng=fr&pgE devrait convenir à ta
| > demande. Cette fonction permet de concaténer les valeurs d'un champ dans
| > un
| > champ unique en fonction du regroupement établi sur un autre champ
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office
| > !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "Michel" | > 46715969$0$20243$
| > | Bonjour a toutes et a tous
| > |
| > | voila ce qui m'amène, dans un état j'affiche un sous/Etat issue d'une
| > | requête.
| > | Qui ce présente comme ceci :
| > |
| > | Compétition à points Latine
| > | A3
| > | B4
| > | B5
| > | SA2
| > | SA3
| > | Etc...
| > | Coupe de France Latine
| > | + 25 ans
| > | M3
| > | M5
| > | P
| > | SA
| > | Etc...
| > | Coupe de France Standard
| > | -30 ans
| > | -45 ans
| > | J4
| > | J5
| > | Etc...
| > |
| > | Je souhaite afficher ceci dans mon Sous/Etat :
| > |
| > | Compétition à points Latine
| > | A3 / B4 / B5 / SA2 / SA3 / Etc...
| > | Coupe de France Latine
| > | + 25 ans / M3 / M5 / P / SA / Etc...
| > | Coupe de France Standard
| > | -30 ans / -45 ans / J4 / J5 / Etc..
| > |
| > | Si quelqu'un peut m'aider car je galére depuis trois jour.
| > | D'avance Merci
| > |
| > | Michel
| > |
| > |
| > |
| > |
| >
| >
|
|
3stone
Le #6287331
Salut,

"Michel"
| J'ai copié dans un module nommé "ConcatForQuery" le code :


Il ne faut pas donner au module le nom d'une fonction !!!

Prends l'habitude de préfixer tes module par "mod_"
et regroupes les fonctions par genre dans les modules.

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Michel
Le #6287311
Merci Raymond et 3Stone

ça marche

Michel




"Raymond [mvp]" de news:
tu as fait une erreur d'orthographe:

Fonction ComcatForQuery non définie dans l'expression

c'est ConcatForQuery qu'il faut indiquer

--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office
!
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Michel" 46716461$0$7431$
| Bonsoir Raymond et merci de ton aide.
|
| J'ai copié dans un module nommé "ConcatForQuery" le code :
|
| Function ConcatForQuery(strRegroup As String, fldRegroup As String, _
| strConcat As String, strTable As String, _
| Optional strSep As String = "/") As String
|
| '** Regroupement de donnée sur le champ fldRegroup
| '** et concaténation sur le champ strConcat
| Dim db As DAO.Database
| Dim rst As DAO.Recordset
| Dim strResult As String
| Dim strRst As String
|
| Set db = CurrentDb()
| strRst = "Select * From [" & strTable & "] " _
| & "Where [" & strRegroup & "] = """ & fldRegroup & """;"
|
| Set rst = db.OpenRecordset(strRst, dbOpenDynaset)
| With rst
| If Not .BOF Then
| .MoveFirst
| Do Until .EOF
| If strResult = "" Then
| strResult = .Fields(strConcat)
| Else
| strResult = strResult & strSep & .Fields(strConcat)
| End If
| .MoveNext
| Loop
| End If
| End With
| rst.Close: Set rst = Nothing
| db.Close: Set db = Nothing
| ConcatForQuery = strResult
|
| End Function
|
| J'ai modifié la requète proposé avec les noms de ma requète en :
|
| SELECT RqtManifCompEpreuve.Competition,
|
ConcatForQuery("Competition",[Compétition],"Epreuves","RqtManifCompEpreuve","
| / ")
| AS Résultat
| FROM RqtManifCompEpreuve
| GROUP BY Competition;
|
| J'ai une fenêtre d'erreur :
|
| "Fonction ComcatForQuery non définie dans l'expression."
|
| Je suis toujours aussi peu doué en VBA.
|
|
| D'avance merci
| Michel
|
|
|
| "Raymond [mvp]" message
| de news:
| > Bonjour.
| >
| > il me semble que la solution proposée par jessy sur son site :
| > http://access.fr.free.fr/articles.php?lng=fr&pgE devrait convenir à
ta
| > demande. Cette fonction permet de concaténer les valeurs d'un champ
dans
| > un
| > champ unique en fonction du regroupement établi sur un autre champ
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office
| > !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "Michel" | > 46715969$0$20243$
| > | Bonjour a toutes et a tous
| > |
| > | voila ce qui m'amène, dans un état j'affiche un sous/Etat issue
d'une
| > | requête.
| > | Qui ce présente comme ceci :
| > |
| > | Compétition à points Latine
| > | A3
| > | B4
| > | B5
| > | SA2
| > | SA3
| > | Etc...
| > | Coupe de France Latine
| > | + 25 ans
| > | M3
| > | M5
| > | P
| > | SA
| > | Etc...
| > | Coupe de France Standard
| > | -30 ans
| > | -45 ans
| > | J4
| > | J5
| > | Etc...
| > |
| > | Je souhaite afficher ceci dans mon Sous/Etat :
| > |
| > | Compétition à points Latine
| > | A3 / B4 / B5 / SA2 / SA3 / Etc...
| > | Coupe de France Latine
| > | + 25 ans / M3 / M5 / P / SA / Etc...
| > | Coupe de France Standard
| > | -30 ans / -45 ans / J4 / J5 / Etc..
| > |
| > | Si quelqu'un peut m'aider car je galére depuis trois jour.
| > | D'avance Merci
| > |
| > | Michel
| > |
| > |
| > |
| > |
| >
| >
|
|




Publicité
Poster une réponse
Anonyme