Access Alimenter une table avec les jours de l'année

[Thibault98]

Bonjour,
Je cherche une solution pour créer les jours d'une année donnée dans une table avec un formulaire indépendant.
Access 2019.

Comment peut-on faire ça ?

Nom de ma table : JoursAnnees
Champ1 : Jour "numerique" (clé)
LaDate : "Date"

Formulaire
Champ1 : PremierJour
Champ2 : DateDepart
Bouton de commande avec le code sur clic.

Merci d'avance
Thibault

 

[Philippe_JOCHMANS]

Bonjour,

Quel est la différence entre premier jour et date de départ ?

Peux-tu donner un exemple.

Philippe

 

[Thibault98]

Bonjour,
En fait c'est la même chose, date de départ suffit.
01/01/2020 +1 etc. sur 365 lignes.
02/01/2020
Merci

 

[Philippe_JOCHMANS]

Re,

Voici un exemple de code, c'est la fonction DateAdd qui va permettre de gérer l'incrémentation.

Public Sub GenerationDate()

    'Déclaration
    Dim rst As DAO.Recordset
    Dim strSql As String
    Dim i As Integer
    Dim dteDateDepart As Date
   
    'Affectation
    strSql = "SELECT LaDate FROM JoursAnnees"
    Set rst = CurrentDb.OpenRecordset(strSql)
    dteDateDepart = #1/1/2020#
   
    ' Incrémentation
    For i = 0 To 365
        rst.AddNew
            rst("LaDate") = DateAdd("d", i, dteDateDepart)
        rst.Update
    Next i
   
    MsgBox "Terminé"
   

   
End Sub

La les données sont fixes, mais il suffit de passer par des variables à l'appel de la procédure.

Philippe

 

[Thibault98]

Bonsoir et merci,

A+
Thibault