شباب ابي برنامج الرسائل التذكيرية

السلام عليكم

أولاً : يجب أن يكون البرنامج يعمل طوال وقت عمل الحاسب.

ثانياً : ضع Timer Control على النموذج وأكتب الكود التالي :

Private Sub Timer1_Timer()
If DateAdd("d", -2, Date) = RentDate And Reminder = True Then
    MsgBox "Here the message you want to tell"
    Reminder = False
End If
End Sub

RentDate : هو تاريخ موعد الايجار

Reminder : متغير يضبط لعدم التذكير لأكثر من مرة عند حلول الوقت

ياخوي انا جربتها لكن

ابيك تعطيني ايميلك وانا برسلك البرنامج