1 2 3 4 5 6 7
|
SELECT T_Activites.User, T_CreneauActivite.DetailCreneau AS Subject, T_Activites.DateDebutActivite AS [End Date], T_Activites.DateDebutActivite AS [Start Date],
IIf([DetailCreneau] Like "*Matin",#12/30/1899 7:0:0#,IIf([DetailCreneau] Like "*AM",#12/30/1899 13:0:0#)) AS [Start Time], IIf([DetailCreneau] Like "*Matin",#12/30/1899 13:0:0#,
IIf([DetailCreneau] Like "*AM",#12/30/1899 18:0:0#)) AS [End Time], "FALSE" AS Private,
IIf([DetailCreneau] Not Like "*Matin" And [DetailCreneau] Not Like "*AM","TRUE","FALSE") AS [All Day Event], "Hopital Haut Leveque" AS Location
FROM T_Activites INNER JOIN T_CreneauActivite ON T_Activites.CreneauActivite = T_CreneauActivite.CreneauActivite
WHERE (((T_Activites.User)=[Formulaires]![F_Login]![NomComplet]) AND ((T_CreneauActivite.DetailCreneau) Is Not Null) AND ((T_Activites.DateDebutActivite)>=[Formulaires]![F_PraticienActivites]![DateDepart])); |
Partager