Discussion :

[nixou62]

Bonjour,

Avec des collègues, nous avons décidé de créer une base de donnée pour gérer des troupes de spectacles et notre niveau étant très limité sur access nous sommes bloqués.
Nous avons créer plusieurs tables

TABLE 1 : DETAILS_SPECTACLE
idSP : Faisant la jointure avec la table Spectacle
idTroupe : Faisant la jointure avec la table Troupe
Type_Intervenant : Selection de divers choix identique à la table 4 : Artiste,Maquillage,Sono,etc
NomTroupe: Récupérant l'information Nom Troupe de la table Troupe
DateSP: Date du spectacle
H_Arrivee : Heure d'arrivee de la troupe
H_Passage : Heure de passage de la troupe
H_Debut :
H_Fin :

TABLE 2 : TROUPE
idTroupe
NomTroupe

TABLE 3 : DETAILS_ARTISTES
idArt
idTroupe

TABLE 4 : ARTISTE
IdArt
NomArt : Nom de l'artiste
Artiste : Oui/Non "Texte en choix par menu déroulant"
Maquillage : Oui/Non "Texte en choix par menu déroulant"
Sono : Oui/Non "Texte en choix par menu déroulant"
et une dizaine d'autre en menu Oui/Non également.

Nous avons créer un Sous-formulaire liste artiste ou devant chaque artiste nous souhaitons intégrer un bouton pour permettre la création d'un état avec leur planning en PDF.


Le but c'est que l'état sorte un tableau de cette sorte mais malheureusement nous n'y arrivons pas. :


Sachant que Nancy par exemple est la reponsable de la troupe "La malle de mon père" et "Eteind la lumière"


N'hésitez pas à me demander des informations que j'aurai oublié de donner. Possibilité de vous envoyez le fichier Access si vous le souhaitez.

Merci d'avance aux personnes donnant de leur temps pour résoudre ce problème.

Bonne journée !

[nixou62]

Pour simplifier les choses, j'ai créer une table qui rassemble toutes les données que j'ai besoin via une requête d'ajout. Ce qui me permet plus facilement de concaténer les données. Il ne nous reste plus qu'un soucis VBA dans la clause WHERE.

Nous souhaitons que la concaténation se fasse sous deux conditions : Idsp & IdArt mais nous n'y arrivons malheureusement pas.

Voici le code VBA utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function Recup_Intervenant(IdArt As Long) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT Nbr_Intervenant FROM GENERAL1 WHERE IdArt=" & IdArt
Set res = CurrentDb.OpenRecordset(SQL)
 
'Concatene les différents enregistrement
While Not res.EOF
    Recup_Intervenant = Recup_Intervenant & res.Fields(0).Value & vbCrLf
    res.MoveNext
Wend
 
Set res = CurrentDb.OpenRecordset(SQL)
'Enleve le dernier espace
Recup_Intervenant = Left(Recup_Intervenant, Len(Recup_Intervenant) - 1)
'libere la mémoire
Set res = Nothing
End Function

Et le code SQL de la requête Access :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT DISTINCT GENERAL1.IdArt, Recup_Intervenant(IdArt) AS Intervenant
FROM GENERAL1;

Comment ajouter idsp du coup dans cette clause ?

D'avance merci à ceux qui pourront nous apporter un début de réponse !

[nixou62]

Et voila le problème a été résolu

Je donne la façon de faire pour agréger & concaténer deux id différents :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Function RecupNomtroupe122(idSP As Long, idArt as long) As String
' ...
SQL = "SELECT TROUPE_NomTroupe FROM GENERAL1 WHERE idSP=" & idSP & " and idArt = " & idArt
' ...

et la requête de base de l'état :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT ....., RecupNomTroupe122(idSP, idArt) AS TROUPE
FROM GENERAL2;