تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 11 201 14-09-20, 12:32 PM
آخر رد: asemshahen5
  [سؤال] بخصوص متابعة تواريخ انتهاء الوثائق محمد العامر 9 356 06-09-20, 12:40 AM
آخر رد: محمد العامر
  [VB.NET] فلترة الداتاجريد فيو بشرط محمد اسماعيل 7 253 05-09-20, 11:23 AM
آخر رد: محمد اسماعيل
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 165 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  [VB.NET] اضافة بشرط مرور 7 ايام محمد بوقزاحة 3 186 19-08-20, 10:43 PM
آخر رد: ابراهيم ايبو
  أفضل مثال في عمل النسخة الاحتياطية باقي له خطوة بس ويكتمل المهنا 13 869 01-08-20, 12:27 AM
آخر رد: atefkhalf2004
  [سؤال] ظهور رسالة انتهاء صلاحية مهلة الاتصال !!! محمد العامر 2 363 30-07-20, 04:19 AM
آخر رد: محمد العامر
  حساب ناتج عمود بشرط alshandodi 5 323 24-07-20, 07:51 PM
آخر رد: asemshahen5
  خصم الكميات الموجوده باكتر من تاريخ NABILWARSAW 14 655 20-07-20, 08:29 PM
آخر رد: WaeLx
  أبحث عن مثال كامل للطباعةReport Viewer المهنا 2 290 17-07-20, 03:12 AM
آخر رد: المهنا

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


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