منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة (/showthread.php?tid=18092)



الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - trfa8899 - 20-11-16

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


RE: الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - Genius Live - 20-11-16

كود :
   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



RE: الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - trfa8899 - 20-11-16

(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

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



RE: الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - Genius Live - 20-11-16

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


RE: الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة - trfa8899 - 21-11-16

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