Notification date échéance (access vba)
Résolu
raya87
-
raya87 -
raya87 -
Bonjour,
j'ai une table qui contient 2 colonne ( n_dossier, rappel_1)
et j'aimerai comparer la date du System avec ses deux rappel, comme suite;
if date_system = rappel(type date aussi) then
implémentation d'un autre tableau (échéance ) qui contient le (N_dossier) relative à la date d'échéance du rappel et elle doit rester afficher pour 5 jours.
end if.
j'ai une table qui contient 2 colonne ( n_dossier, rappel_1)
et j'aimerai comparer la date du System avec ses deux rappel, comme suite;
if date_system = rappel(type date aussi) then
implémentation d'un autre tableau (échéance ) qui contient le (N_dossier) relative à la date d'échéance du rappel et elle doit rester afficher pour 5 jours.
end if.
1 réponse
-
Bonjour
Tu as signalé que ton post était résolu.
La règle sur le forum est que tu viennes donner la solution afin que ça puisse servir à d'autres ensuite.
Merci d'avance de ton retour,
La modération.
-
oui bien sûre avec plaisir, voici le code que j'ai écris:
Dim date_sys As Date
date_sys = Format(Now, "dd/mm/yyyy")
Dim ech As Date
Dim con As ADODB.Connection
Dim rsg As ADODB.Recordset
Dim rsp As ADODB.Recordset
Set con = CurrentProject.Connection
Set rsg = New ADODB.Recordset
Set rsp = New ADODB.Recordset
rsg.Open "[TabIntervalEnqRegl]", con, 1, 3
rsp.Open "[not_Recep]", con, 1, 3
'DoCmd.RunSQL "drop table dbo.not_Recep"
sqlIntEch2 = "delete from dbo.not_Recep "
DoCmd.RunSQL sqlIntEch2
Do While rsg.EOF = False
date_rec = rsg("rappel_reception")
N_dossier = rsg("N_dossier")
ech = date_rec
If ech = date_sys Then
rsp.AddNew
rsp("N_dossier") = N_dossier
'rsp("Date_Ech") = ech
rsp.Update
rsp.MoveNext
End If
'Debug.Print ech, "___", N_dossier
rsg.MoveNext
Loop
con.Close
Set con = Nothing
Set rsg = Nothing
Set rsp = Nothing
End Sub
-
