20-11-16, 03:31 PM
20-11-16, 04:49 PM
كود :
Dim a As Date = " اكتب التاريخ الذي تريده هنا مثلاً 31-12-2016"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'لو تاريخ اليوم اصغر من التاريخ المطلوب بخمسة ايام أظهر رسالة
If Today < a.AddDays(-5) Then
MsgBox("اكتب رسالتك هنا")
End If
End Sub20-11-16, 05:02 PM
(20-11-16, 04:49 PM)Genius Live كتب : [ -> ]كود :
Dim a As Date = " اكتب التاريخ الذي تريده هنا مثلاً 31-12-2016"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'لو تاريخ اليوم اصغر من التاريخ المطلوب بخمسة ايام أظهر رسالة
If Today < a.AddDays(-5) Then
MsgBox("اكتب رسالتك هنا")
End If
End Sub
ممتاز بس الفكرة في انووو يعرض لك السجلات المنتهية علي شاشة وتعرف تطبعهم منها يا ريت لو في مثال جاهز لو امكن
(20-11-16, 05:02 PM)trfa8899 كتب : [ -> ](20-11-16, 04:49 PM)Genius Live كتب : [ -> ]كود :
Dim a As Date = " اكتب التاريخ الذي تريده هنا مثلاً 31-12-2016"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'لو تاريخ اليوم اصغر من التاريخ المطلوب بخمسة ايام أظهر رسالة
If Today < a.AddDays(-5) Then
MsgBox("اكتب رسالتك هنا")
End If
End Sub
انا حشرحلك الموضوع كامل
انا عندي برنامج لادارة الايجارات وعايز كل ما افتح البرنامج يظهري تقرير بالايجارات الاوشكت علي الانتهاء علي حسب المدة الانا محددها يعني تنبيه قبل ما ينتهي التاريخ بعشرة يوم
20-11-16, 05:37 PM
ما هي قاعدة البيانات المستخدمة ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟