Discussion :

[patgag78]

Bonjour,

J'aimerais que ceci fonctionne pour que je puisse passer une fin de semaine la tête tranquille! J'ai essayé de toute les façon possible. Je ne sais plus. Donc, je demande votre aide svp.

Voici ma requête SQL que j'ai généré dans Access et qui fonctionne.

Code :

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

1
2
3
4
SELECT Projets.[Nom du projet], Catégorie.Description, [Feuille temps].NbHres, [Feuille temps].Extra, [Feuille temps].Notes, [Feuille temps].IDEmployé, [Feuille temps].FTDate, [Feuille temps].IDFeuilleTemps
FROM Projets INNER JOIN (Catégorie INNER JOIN [Feuille temps] ON Catégorie.[IDCatégorie] = [Feuille temps].[Catégorie]) ON Projets.[IDProjet] = [Feuille temps].[IDProjet]
WHERE ((([Feuille temps].IDEmployé)=[Formulaires]![FTEntête]![LstEmployé]) AND (([Feuille temps].FTDate)=[Formulaires]![FTEntête]![FTDate]))
ORDER BY Projets.[Nom du projet];

Je l'ai copier/coller et adapter dans mon code vba comme ceci. Là, je vous donne ma dernière version.

Code :

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

1
2
3
4
5
6
7
Source = "SELECT [Feuille temps].IDFeuilleTemps, [Feuille temps].IDEmployé, [Feuille temps].FTDate, Projets.[Nom du projet], Catégorie.Description, [Feuille temps].NbHres, [Feuille temps].Extra, [Feuille temps].Notes" & _
         "FROM Projets INNER JOIN Catégorie INNER JOIN [Feuille temps] ON Catégorie.[IDCatégorie] = [Feuille temps].[Catégorie] ON Projets.[IDProjet] = [Feuille temps].[IDProjet]" & _
         "WHERE [Feuille temps].IDEmployé =" & Me.LstEmployé.Column(0) & " And [Feuille temps].FTDate =" & Me.FTDate & ";"
 
 
Me.LstAffichage.RowSource = Source
Me.LstAffichage.Requery

J'ai mis 8 colonnes dans ma zone de liste LstAffichage et largeur colonne
0cm;0cm;0cm;5cm;10cm;2cm;2cm;15cm

Mes formats correspondent :
[Feuille temps].FTDate = DateEntier
Me.FTDate = DateEntier

Me.LstEmployé.Column(0). La colonne zéro est bel et bien le numéro IDEmployé.

Je n'ai pas d'erreur d'access. Il n'affiche tout simplement pas ma requête dans ma zone de liste. Quand je met un point d'arrêt, je vois que mes deux champs ont la bonne valeur.

Merci de bien vouloir m'aider.

[patgag78]

Bonjour,

J'ai finalement réussi, je peux me coucher la tête tranquille maintenant.

Voici mon code pour ceux que ça intéresse. Toujours mettre des # pour les critères avec des dates.

Et parenthèses après le premier INNER JOIN sont nécessaire

Code :

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

1
2
3
Source = "SELECT [Feuille temps].IDFeuilleTemps, [Feuille temps].IDEmployé, [Feuille temps].FTDate, [Feuille temps].IDProjet, Catégorie.IDCatégorie, Projets.[Nom du projet], Catégorie.Description, [Feuille temps].NbHres, [Feuille temps].Extra, [Feuille temps].Notes " & _
         "FROM Projets INNER JOIN (Catégorie INNER JOIN [Feuille temps] ON Catégorie.[IDCatégorie] = [Feuille temps].[Catégorie]) ON Projets.[IDProjet] = [Feuille temps].[IDProjet] " & _
         "WHERE ([Feuille temps].IDEmployé =" & Me.LstEmployé.Column(0) & " And [Feuille temps].FTDate = #" & Me.FTDate & "#);"