Notification date échéance (access vba) [Résolu/Fermé]

Signaler
-
 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.

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
Utilisateur anonyme > raya87
Merci ;)
> Utilisateur anonyme
juste une question,
Est ce que vous avez une idée sur la façon dont je peut laisser la notification afficher pour 5 jours??