Discussion :

[Marcello5255]

Bonjour à tous,

Dans une requête, j'ai un champ DateToil (type date complet).
Je voudrais ajouter un champ dans lequel s'affiche le jour de la semaine.
Je dois écrire Joursem : DateToil, et puis quoi?

Merci pour votre aide.

[Invité]

Bonjour
Pour le jour de la semaine:

Code :

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

JourSem: Format([DateOil];"jjjj")

Cela donnera par exemple "Samedi".

[Marcello5255]

Merci Jean-Damien,

Je l'avais fait en VBA pour les prochains enregistrements. Comme j'en avais déjà 1400, et que je ne maîtrise pas bien l'écriture des boucles, le code que tu m'indiques pour la requête m'a bien aidé. (J'ai bien compris qu'il s'agissait de "DateToil" et pas "DateOil")

Voici le code VBA que j'ai écrit. Il y a probablement encore plus malin, et si quelqu'un le signale, j'en tiendrai compte.

Encore merci et bonne soirée.

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
Private Sub DateToil_BeforeUpdate(cancel As Integer)
 
    Dim Numjour As Integer
    Numjour = Weekday(DateToil)
        Select Case Numjour
            Case 1
                JourSem = "Dimanche"
            Case 2
                JourSem = "Lundi"
            Case 3
                JourSem = "Mardi"
            Case 4
                JourSem = "Mercredi"
            Case 5
                JourSem = "Jeudi"
            Case 6
                JourSem = "Vendredi"
            Case 7
                JourSem = "Samedi"
        End Select           
 
End Sub

[Invité]

Et pourquoi pas simplement ceci:

Code :

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

1
2
3
4
5
Private Sub DateToil_BeforeUpdate(cancel As Integer)
    Dim JourSem as String
    JourSem = Format(DateToil, "dddd")
 
End Sub

[Marcello5255]

Benh oui! C'est un peu ce que j'attendais. Il me semblait bien qu'il devait y avoir plus simple que (= mardi, = mercredi etc...)

Et puisque JourSem est un champ de ma table, je n'ai même pas besoin de variable.

J'ai juste écrit et testé avec succès:

Code :

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

1
2
3
Private Sub DateToil_BeforeUpdate(cancel As Integer)    
    JourSem = Format(DateToil, "dddd") 
End Sub

Merci pour cette économie de lignes.