Discussion :

[pasconnu]

Bonjour à tous,

J'ai bientôt terminé ma base de données mais elle demande quelques petites optimisations.
Pour alimenter une table C, j'ai créé un formulaire de saisie F_C.
Mais en réalité, il serait préférable et plus simple pour l'utilisateur de ne pas avoir à rentrer dans ce formulaire puisque la table C en question pourrait être alimentée en automatique puisqu'il s'agit d'occurrence de date (création d'un événement tous les lundis).
J'aimerais donc savoir s'il est possible incrémenter la table selon cette règle donnée, et si oui, comment faire ?

Je vous remercie par avance pour votre retour !

À bientôt !

[hyperion13]

Une solution
La tbljours contient le champ numjour de type numérique entier long et les valeurs de 1 à 31.
La tblC contient le champ mondayevent qui sera alimenté par le req qui suit dont le principe est d'extraire dans le mois courant les lundis.

Code :

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

1
2
3
4
INSERT INTO tblC (mondayevent)
SELECT DateSerial(Year(Date()), Month(Date()), numjour) AS lundis
FROM tblJours
WHERE Month(DateSerial(Year(Date()), Month(Date()), numjour)) = Month(Date()) AND Weekday(Day(DateSerial(Year(Date()),Month(Date()),numjour))=2;

[pasconnu]

Merci Hyperion !
Ca marche très bien. Mais le soucis c'est que la série que le code crée tous les lundis du mois en cours (par rapport à la date système).
N'y aurait-il pas possibilité de créer cette série pour une année complète ?

Merci encore pour le coup de pouce !

[hyperion13]

A copier sur l'évènement sur click() d'un bouton de commande dans un form.
La 1ère partie de la syntaxe va créer une tbl temporaire calendrier_tmp qui sera alimenter via une boucle de dates qui vont du 1er janv. au 31 déc. de l'année en cours. La seconde partie alimente la tblC des dates qui correspondent au lundi.
Vous devez sélectionner et copier ce code et le coller dans un module standard dans l'environnement vba (Alt F11)

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
23
24
Private Sub Commande4_Click()
Dim I As Integer, j As Integer
Dim datedeb As Date
 
CurrentDb.Execute "CREATE TABLE tblCalendrier_tmp (" _
    & " [id] AUTOINCREMENT PRIMARY KEY," _
    & " [jours] DATETIME)", dbFailOnError
 
datedeb = DateSerial(Year(Date), 1, 1)
datefin = DateSerial(Year(Date), 12, 31)
j = datefin - datedeb
For I = 0 To j
CurrentDb.Execute "INSERT INTO tblCalendrier_tmp ([jours])" _
    & " VALUES (#" & DateAdd("d", I, datedeb) & "#);", dbFailOnError
Next I
CurrentDb.Execute "INSERT INTO tblC (mondayevent) " _
    & " SELECT jours" _
    & " FROM tblCalendrier_tmp" _
    & " WHERE Weekday([jours]) = 2" _
    & " AND EstFerie([jours]) = False" _
    & " ORDER BY jours;", dbFailOnError
DoCmd.DeleteObject acTable, "tblCalendrier_tmp"
RefreshDatabaseWindow
End Sub

[pasconnu]

Ca marche super bien !!! Rien à dire !
Merci Hyperion pour vos explications, elles étaient très claires

J'espère qu'elles pourront servir à d'autres.
À bientôt !