[trfa8899]

الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة وبمجرد فتح البرنامج يتم ظهور شاشة تنبيه

[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

[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: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

انا حشرحلك الموضوع كامل
انا عندي برنامج لادارة الايجارات وعايز كل ما افتح البرنامج يظهري تقرير بالايجارات الاوشكت علي الانتهاء علي حسب المدة الانا محددها يعني تنبيه قبل ما ينتهي التاريخ بعشرة يوم

[Genius Live]

ما هي قاعدة البيانات المستخدمة ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟

[trfa8899]

(20-11-16, 05:37 PM)Genius Live كتب : ما هي قاعدة البيانات المستخدمة ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟

قاعدة البيانات المستخدمة  access 
الربط عادي   OLEDB
طريقة العرض علي  تقرير او datagrid