Discussion :

[samlepiratepaddy]

Slt,
Je n'ai rien trouvé pouvant m'aiguiller sur ce problème
J'ai une table ou j'ai un champ Date, et j'aimerai pouvoir ajouter les dates qui "manque" entre la derniere date inscrite dans cette table et la date du jour +30 !
Le but étant d'avoir dans cette table toujours trente jours "d'avance" par rapport à la Date()!
Mais comme je compte exécuter cette INSERT INTO à l'ouverture de l'appli,celle ci n'étant pas ouvert certain jours je ne peux pas ajouter simplement une ligne par jour car avec le temps il va me manquer mes 30 jours d'avance !!!(cause dimanche, jours férié etc..)
Comment ajouter, soit un seul jour ou 2 ou peut-etre 3 ou 4 ??

[lucho013]

Si j'ai bien compris, tu aimerais une fonction qui rajoute dans une table (T_MES_DATES par exemple) les dates comprises entre aujourd'hui et J+30.

Je te propose la fonction suivante:

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
 
Private Sub Commande0_Click()
Dim ld_date_a_rajouter As Date
Dim ld_date_J_plus_30 As Date
Dim ls_req As String
 
    'on initialise la date à traiter à la date du jour
    ld_date_a_rajouter = Now
    ld_date_J_plus_30 = DateAdd("d", 30, Now)
 
    Do While ld_date_a_rajouter < ld_date_J_plus_30
        ld_date_a_rajouter = DateAdd("d", 1, ld_date_a_rajouter)
        If Nz(DLookup("MA_DATE", "T_MES_DATES", "MA_DATE=#" & Format(ld_date_a_rajouter, "yyyy/mm/dd") & "#"), "") = "" Then
            'la date n'est pas encore dans la table, on la rajoute
            ls_req = "INSERT INTO T_MES_DATES(MA_DATE)" & _
                    " VALUES(#" & (Format(ld_date_a_rajouter, "yyyy/mm/dd")) & "#)"
            DoCmd.RunSQL ls_req
        End If
    Loop
 
End Sub

Cette fonction rajoute dans le champ T_MES_DATES.MA_DATE toutes les valeurs de dates entre aujourdhui et J+1. On vérifie seulement que la date n'est pas déjà présente.