تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة
#1
الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة وبمجرد فتح البرنامج يتم ظهور شاشة تنبيه
الرد
تم الشكر بواسطة:
#2
كود :
   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
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد
تم الشكر بواسطة:
#3
(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

انا حشرحلك الموضوع كامل
انا عندي برنامج لادارة الايجارات وعايز كل ما افتح البرنامج يظهري تقرير بالايجارات الاوشكت علي الانتهاء علي حسب المدة الانا محددها يعني تنبيه قبل ما ينتهي التاريخ بعشرة يوم
الرد
تم الشكر بواسطة:
#4
ما هي قاعدة البيانات المستخدمة ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد
تم الشكر بواسطة:
#5
(20-11-16, 05:37 PM)Genius Live كتب : ما هي قاعدة البيانات المستخدمة ؟
ما هي طريقة الربط ؟
ما هي الطريقة التي ترغب بها في عرض السجلات ؟
قاعدة البيانات المستخدمة  access 
الربط عادي   OLEDB
طريقة العرض علي  تقرير او datagrid
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] معادلة علي الاكسل وتطبيقها علي vb.net مرفق مثال بيسك لكل العرب 8 166 19-04-18, 09:49 PM
آخر رد: عبدالله الدوسري
Wink مساعدة فى انتهاء الفترة التجريبيةلـ Divelements.SandRibbon assem 0 67 04-04-18, 09:20 PM
آخر رد: assem
  [VB.NET] الاستعلام لاكثر من تاريخ محمد اسماعيل 2 108 31-03-18, 03:25 PM
آخر رد: محمد اسماعيل
  عرض البيانات التي تتوافق مع تاريخ اليوم emamtron2014 9 282 20-03-18, 06:10 AM
آخر رد: emamtron2014
  [كود] استفسار عن كود استعلام بشرط بيانات عمود ؟؟؟!!! بيسك لكل العرب 1 106 19-03-18, 09:13 PM
آخر رد: عبدالله الدوسري
  هل يوجد مثال للتفقيط حسب عملة البلد السيد الجوهري 7 253 11-03-18, 01:38 PM
آخر رد: السيد الجوهري
  [VB.NET] تحديد إستحقاق الترقية القادمة بناءً على تاريخ محدد أبووسم 5 108 06-03-18, 04:00 PM
آخر رد: أبووسم
  المساعدة في إيجاد حل كود للجريدفيو مرفق مثال بيسك لكل العرب 4 180 05-03-18, 07:23 PM
آخر رد: بيسك لكل العرب
  [VB.NET] تقيم المدة محمد اسماعيل 0 64 01-03-18, 02:45 PM
آخر رد: محمد اسماعيل
  [VB.NET] تحويل قيمة الي تاريخ محمد اسماعيل 2 74 22-02-18, 06:22 PM
آخر رد: محمد اسماعيل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم