Bonjour à tous,
Je voudrai créer une requête qui affiche les enregistrements de LA SEMAINE EN COURS.
J'ai réussi à faire cela avec le mois en cours en inscrivant (en mode création):
Mois([DateRDV]) dans le Champ
Mois(Maintenant()) dans le Critère,
soit le sql suivant :
Seulement, cela ne marche pas lorsque je fais la même chose pour la semaine en cours. La fonction Semaine ne semble pas exister??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 SELECT RDV.NumRDV, RDV.DateRDV, [CiviliteClient]+" "+[PrenomClient]+" "+[NomClient] AS Client, [NomAgent]+" "+[PrenomAgent] AS [Agent responsable], [NomAgentStagiaire]+" "+[PrenomAgentStagiaire] AS [Stagiaire responsable], RDV.DatePriseRDV AS [RDV pris le], [NomOrigineRDV]+" "+[PrenomOrigineRDV] AS Par, RDV.HeureRDV AS [Heure du RDV], RDV.LieuRDV AS Lieu, RDV.ServiceRDV AS Service, RDV.MotifRDV AS Motif, RDV.ResultRDV AS Résultat, RDV.CommentaireRDV AS Commentaire FROM RDV AS RDV_1, AGENT RIGHT JOIN (AGENT_STAGIAIRE RIGHT JOIN (ORIGINE_RDV INNER JOIN (Civilite_Client INNER JOIN (CLIENT INNER JOIN RDV ON CLIENT.NumClient = RDV.NumClient) ON Civilite_Client.NumCiviliteClient = CLIENT.NumCiviliteClient) ON ORIGINE_RDV.NumOrigineRDV = RDV.OrigineRDV) ON AGENT_STAGIAIRE.NumAgentStagiaire = RDV.NumAgentStagiaireResponsable) ON AGENT.NumAgent = RDV.NumAgentResponsable WHERE (((Month([DateRDV]))=Month(Now())));
Comment faire?
S'il le faut, Pouvez-vous m'aider à créer le Vba adéquat??
Merci d'avance à tous
Partager