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 |
Partager