Discussion :

[fanico11]

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 :

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())));

Seulement, cela ne marche pas lorsque je fais la même chose pour la semaine en cours. La fonction Semaine ne semble pas exister??

Comment faire?

S'il le faut, Pouvez-vous m'aider à créer le Vba adéquat??

Merci d'avance à tous

[Jean-Philippe André]

Bonjour,
regarde la fonction DatePart() notamment avec

Code :

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

MsgBox DatePart("ww",Now())

d'autres exemples dans la FAQ : http://access.developpez.com/faq/?pa...DAtPremJourSem et http://access.developpez.com/faq/?page=dates#InfoDate

[ClaudeLELOUP]

essaie avec cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Semaine(dat As Date) As Integer
    Dim a As Integer
    a = Int((dat - DateSerial(Year(dat), 1, 1) + _
        ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
        Mod 7) - 3) / 7) + 1
    If a = 0 Then
        a = Semaine(DateSerial(Year(dat) - 1, 12, 31))
    ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) _
        Mod 7 <= 3 Then
        a = 1
    End If
    Semaine = a
End Function

et ton code devient :

Code :

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

...WHERE (((Semaine([DateRDV]))=Semaine(Now())));

[fanico11]

essaie avec cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function Semaine(dat As Date) As Integer
    Dim a As Integer
    a = Int((dat - DateSerial(Year(dat), 1, 1) + _
        ((Weekday(DateSerial(Year(dat), 1, 1)) + 1) _
        Mod 7) - 3) / 7) + 1
    If a = 0 Then
        a = Semaine(DateSerial(Year(dat) - 1, 12, 31))
    ElseIf a = 53 And (Weekday(DateSerial(Year(dat), 12, 31)) - 1) _
        Mod 7 <= 3 Then
        a = 1
    End If
    Semaine = a
End Function

et ton code devient :

Code :

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

...WHERE (((Semaine([DateRDV]))=Semaine(Now())));

Merci beaucoup, mais tu vas te moquer....
Je suis dans ma requête, où dois-je aller pour taper ce codeVBA ?? Je sais...et j'ai honte !

merci encore d'avance !

[Jean-Philippe André]

place le code dans un module déjà existant ou à créer.

[fanico11]

place le code dans un module déjà existant ou à créer.

et que dois-je faire une fois ce module créé???

[fanico11]

et que dois-je faire une fois ce module créé???

MERCI CA MARCHE

Merci pour tout, j'ai mis du temps mais j'ai compris !!!

A bientôt!!