Discussion :

[alexbrabo]

Bonjour à tous ! Je bloque sur un problème depuis quelques heures et je dois dire que je suis arrivé au bout du bout ... je ne vois vraiment pas d'ou vient le problème ...

J'ai créé une base de gestion de projets composées de :
- 1 table tblProjets
- 1 table tblAgents
- 1 table de jonction tblJoncProjetsAgents

Les formulaires d'affectations de plusieurs agents à un seul projet fonctionnent nickel. Je souhaiterais tirer un état issu de liste de projets ... basé sur la même requête. Jusqu'ici tout marche.

J'aimerais par contre afficher les initiales des agents affectés au projet dans une case de texte dédiée (les initiales de chacun des agents séparés par des tirets ...) :

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
20
21
22
23
Sub Report_Load()
 
  Dim ListeEquipe As Recordset
  Dim InitCDP As String
  'Afficher les initiales du Chef de projet :
  InitCDP = "SELECT tblJoncProjetsAgents.noautoprojet, tblJoncProjetsAgents.fonctionagent, tblAgents.initiales FROM tblAgents INNER JOIN tblJoncProjetsAgents ON tblJoncProjetsAgents.noautoagent = tblAgents.noautoagent WHERE ((tblJoncProjetsAgents.noautoprojet = " & Me.noautoprojet & " ) AND (tblJoncProjetsAgents.fonctionagent Like 'Chef de projet' ));"
   'Création de la liste des initiales des chefs de projet :
        Set ListeEquipe = CurrentDb.OpenRecordset(InitCDP)
    If Not ListeEquipe.EOF Then 'Pour vérifier que le jeu d'enreistrement n'est pas vide
        ListeEquipe.MoveFirst
        ListeCompleteEquipe = ""
        While Not ListeEquipe.EOF
          ListeCompleteEquipe = ListeCompleteEquipe & ListeEquipe("initiales") & "-"
          ListeEquipe.MoveNext
        Wend
        ListeCompleteEquipe = Left(ListeCompleteEquipe, Len(ListeCompleteEquipe) - 1)
    Else
      ListeCompleteEquipe = "" 'Pas de chef de projet attribué
    End If
 
Me.txtequipe.Value = ListeCompleteEquipe
 
End Sub

Je comprend pas pourquoi, mais la requête SQL refuse de prendre en compte mon critère liée au contrôle noautoprojet qui apparaît dans l'état. Si on supprime ce critère tout ce passe bien (il affiche la liste de tous les chefs mais de tous les projets séparés par des tirets mais ce n'est pas ce que je veux). Mais en rajoutant le critère AND du noautoprojet ... -> il me sort les initiales du premier agent de la table tblAgents .... Je ne comprends pas pourquoi ....

Une idée ??

[pier.antoine]

Bonsoir

Ce n'est peut-être pas la raison de votre infortune, mais je tique sur la gestion de votre recordset.

Code :

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

ListeCompleteEquipe = ListeCompleteEquipe & ListeEquipe("initiales") & "-"

Si je comprends ce que vous voulez, c'est mettre dans la variable "ListeCompleteEquipe" la valeur de champ "initiales" de chaque ligne du recordset.

J'avais cru comprendre que pour mettre une valeur d'un champ de recordset il fallait utiliser la méthode "fields".

Peut-être pouvez vous essayer :

Code :

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

ListeCompleteEquipe = ListeCompleteEquipe & ListeEquipe.fields("initiales") & "-"

Pierre

[alexbrabo]

Bonsoir Pierre.
Merci pour votre proposition. Je ne connaissais pas fields, mais cela semble renvoyer la même chose que ma syntaxe.

Par contre j'hallucine un peu. En essayant plusieurs fois avec différentes syntaxes , j'ai lancé pour voir un aperçu avant impression de mon état ... et la les initiales de l'agent indiquées sont les initiales du deuxième agent de la liste !!!

[alexbrabo]

Après des essais en long / large et en travers, il semble que ce code ne créé en fait qu'une seule valeur ... sur la première ligne que renvoi l'état ... et qu'il copie tout simplement pour les autres lignes de l'état.

Savez-vous comment faire pour que ce code s'applique sur chaque entrée de l'état ?

[Depite]

je tome par hasard sur cette vielle discussion.
Je pense que le code est mal placé, pour qu'il prenne en charge chaque ligne (enregistrement) de l'état il faut le placer dans la gestion des événements "au formatage", "sur le dessin" ou "sur impression" de la section de détail.