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

Thibault98

XLDnaute Occasionnel
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

XLDnaute Junior
Re,

Voici un exemple de code, c'est la fonction DateAdd qui va permettre de gérer l'incrémentation.
VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 707
Messages
2 081 746
Membres
101 812
dernier inscrit
trufu