تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين
#1
مسا الخير ي اخوان..
والله عقلي طار وانا ابحث عن كود او مثال بسيط يجول بيسك ..
مثال انا معي تاريخ بداية وتاريخ نهايه ابي اخزنهم بقاعدة بيانات اكسس هذا كله ضابط معي ..

لمشكله ابي كود يكون ب خانة نهاية التاريخ يعني لما يوصل ل تاريخ نهاية او قبله ب يومين يعطيني تنبيه انه تاريخ فلاني شارف ع النهايه ..ياليت اذا احد معه مثال يساعدني لضروره لاني كثير محتاج له مشروعي واقف بسببه ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
ششكرا لك فالبداية ع ردك علي ..

تفضل اخي هذا اربط نموذج المشروع الي انا شغال عليه
http://gulf-up.com/do.php?id=253918

يوجد به في فورم اضاقة مستخدم
تاريخ بداية وتاريخ النهايه ايضا ..

مثال ع الي احتاجه مثلا
تاريخ البداية هو
12/1/2107
وتاريخ النهاية هو
29/12017
قبل تاريخ نهاية بيومين يظهر لللمستخدم تنبيه او رسالة لما يكون داخل البرنامج يقول المستخدم الفلاني الي اضفته تاريخ نهايته باقي لها يومين

اتمنى اني شرحت الفكره عدل ..
الرد }}}
تم الشكر بواسطة:
#3
الكود :

PHP كود :
Dim da1da2 As Date
        da1 
Today
        da2 
DateTimePicker1.Value

        Dim DayDiff 
As Integer

        DayDiff 
DateDiff(DateInterval.Dayda1da2)

 
       If DayDiff <= "0" Then
            MsgBox
("منتهي")

 
       ElseIf DayDiff Val("3") Or DayDiff Val("2") Or DayDiff Val("1"Then
            MsgBox
("تنبيه")

 
       ElseIf DayDiff >= Val("4"Then
            MsgBox
("ساري")

 
       End If 


أتمنى يكون هذا اللي تحتاجه, لأني ما قدرت أنزل المشروع 
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

جرب هذا التعديل، وانتظر تضع رد بالنتيجة

عفوا هناك خطأ
الرد }}}
تم الشكر بواسطة:
#5
(28-01-17, 02:01 PM)أسامة السالمي كتب : الكود :

PHP كود :
Dim da1da2 As Date
        da1 
Today
        da2 
DateTimePicker1.Value

        Dim DayDiff 
As Integer

        DayDiff 
DateDiff(DateInterval.Dayda1da2)

 
       If DayDiff <= "0" Then
            MsgBox
("منتهي")

 
       ElseIf DayDiff Val("3") Or DayDiff Val("2") Or DayDiff Val("1"Then
            MsgBox
("تنبيه")

 
       ElseIf DayDiff >= Val("4"Then
            MsgBox
("ساري")

 
       End If 


أتمنى يكون هذا اللي تحتاجه, لأني ما قدرت أنزل المشروع 

اخي جربت اصافة الكود الى التكس الخاص ب انتهاء المشروغ .. ولكن توجد مشكلتين الاولى اني اول ما افتح صفحة اضافة مستخدم تظهر لي رسالة منتهي مع اني لم اقم بتحديد احد من ليسته .. الثانيه انه الكود هذا ما يشيك لي ل حاله قاعدة بيانات الاكسس ويشوف وين التاريخ الي باقي له يومين مثلا من اليوم ..



لتوضيح اكثر ..
تكس خاص بداية التاريخ 
وتكس بنهاية التاريخ ..
مع العلم انه كلهم مربوطين بقاعدة بيانات اكسس .. 
ف انا ابي اضيف مستخدمين الى قاعدة الباانات مثلا 
احمد واسعد وعلي وحسين وناصر ...الخ 
وكل واحد فيهم له تاريخ بداية ونهاية
ابي لما افتح قائمة الاضافة او اكون شغال ع برنامج البرنامج يشيك لي قاعدة الاكسس هل من ضمن المستخدمين معي احد شارف تاريخ نهايته من تاريخ ليوم ؟ اذا في ف هو يعطيني تنبيه ع طول اول من افتح هذا قائمة تبع الاضافه ويقولي لي ع حسب قاعدة البيانات انه مستخدم فلاني انتهاء تاريخه .. 



مع العلم اني ارفقت مشروعي فوق وكل شي بيه جاهز الخانات وقاعدة بيانات .. فقط محتاج مساعده بعمل هذا الغرض لاني حاولت ابحث وابحث ولا قدرت احصل ...

وجدة مثال ويمكنني ارفقه لكم فيه كل الي ابيه ولكني حاولت ادمجه حسب مشروعي في مشروعي ولا نجحت وهذا بسبب ضعف خبرتي ف فيجول بيسك ...
رابط المثال..

http://gulf-up.com/do.php?id=253975


واسف ع الاطاله الكبيره

(28-01-17, 02:54 PM)مساعدة كتب : السلام عليكم

جرب هذا التعديل، وانتظر تضع رد بالنتيجة
http://gulf-up.com/do.php?id=253962

عفوا اخي نزلت المشروع وشغلته وقمت بتضبيط تاريخين ل نفس تاريخ اليوم ولكن لم يحصل اي شي .. اسف تعبتك معي ولكن اكيد فكرتي لم تصل جيدا اليك ردي السابق اكيد كان فيه الفكره بشكل اوضح
الرد }}}
تم الشكر بواسطة:
#6
حاولت أنزل ملفك سابقا لكن SmartScreen  منع التنزيل,
المهم اذا كنت ربطت قاعدة البيانات عن طريق المعالج فارفع المشروع على سيرفر الموقع, أما إذا كان الربط عن طريق الأكواد فما أقدر أخدمك كثير.

طريقة الرفع
يمكنك إرفاق المشروع عن طريق الردود
والطريقة كالتالي:
1.انسخ مجلد المشروع
2.حول المجلد المنسوخ الى ملف مضغوط امتداده (rar.)
3.رد جديد ---> من اسفل الصفحة اضغط استعراض ---> حدد الملف ---> إضافة الملف ---> أدخله في المشاركة ---> إضافة الرد
الرد }}}
تم الشكر بواسطة:
#7
تم اخي رفعته ك مرفقات واسف بخصوص موقع تحميل ما ادري ليش ما يصير معكم..

هذا مشروعي الي ابي تعديل يكون في فورم اضافة مستخدم الجديد

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

تم ارفاقه ب مرفقات


الملفات المرفقة
.rar   User Permissions.rar (الحجم : 4.94 م ب / التحميلات : 306)
.rar   MHB_Reminder-1.rar (الحجم : 785.87 ك ب / التحميلات : 242)
الرد }}}
تم الشكر بواسطة:
#8
(28-01-17, 04:23 PM)Marwan9990 كتب : تم اخي رفعته ك مرفقات واسف بخصوص موقع تحميل ما ادري ليش ما يصير معكم..

هذا مشروعي الي ابي تعديل يكون في فورم اضافة مستخدم الجديد

للأسف مشروعك مربوط بقاعدة البيانات عن طريق الكود, لذلك لن أستطيع التعديل عليه.

لكن أحضرت لك كود آخر أتمنى أن يفيدك :

PHP كود :
Dim Before1 As Integer 1
        Dim Before2 
As Integer ' سيكون التنبيه قبل تاريخ الانتهاء بهذا العدد من الأيام 

        Dim da1, da2 As Date
        da1 = Today.AddDays(-Before1)
        da2 = Today.AddDays(-Before2)

     
        '
ضع أمر البحث هنا 
        
'ابحث في عامود تاريخ الإنتهاء
        '
كقيمة (da2و (da1استخدم
        
'ستظهر لك أسماء الذين تبقى على انتهائهم يومان
        '
اذا أردت تغيير عدد الايام الى ثلاثة أيام على سبيل المثال فسيلزمك اضافة متغيرات جديدة
        
'فاذا أردت ان تجعلها ثلاثة أيام فسيصبح الكود بهذا الشكل

        '
Dim Before1 As Integer 1
        
'Dim Before2 As Integer = 2
        '
Dim Before3 As Integer ' سيكون التنبيه قبل تاريخ الانتهاء بهذا العدد من الأيام

        '
Dim da1da2da3 As Date
        
'da1 = Today.AddDays(-Before1)
        '
da2 Today.AddDays(-Before2)
 
       'da3 = Today.AddDays(-Before2)
        '
Me.DateTimePicker1.Value da1

        
'كقيمة (da3) و (da2) و (da1) وستستخدم 

انسخ الكود الى برنامج الفيجوال لتتمكن من قراءتها بسهوله
الرد }}}
تم الشكر بواسطة:
#9
الاخ السائل بما انك تعمل على قاعدة اكسس يمكنك الاستفادة من بعض الوظائف الجاهزة في القاعدة كما يلي
اصنع استعلام في القاعدة بهذا الشكل الموضح بالصورة




صورة عند تشغيل الاستعلام



كما ترى اصبح لدي جدول جديد (استعلام ) فيه حقل جديد (DateDifer) يقوم باحتساب الفرق بين تاريخين بالايام و ذلك حسب الدالة السابقة في الاستعلام DateDiff و هي تقوم بحساب الفرق بالايام بين تاريخين وفق الوسيطة "d" و يمكنك حساب الفرق بالشهور او السنة او بالساعات و ذلك بتغير نوع الوسيطة كما تريد 
اشكال الوسائط 
(yyyy) سنوات , (َq) دقائق , (m) شهر , (ww) اسابيع ...... الخ

بهذه العملية انت اختصرت على نفسك الوقت و الجهد و ارحت البرنامج من عملية الحساب و بقي لديك امر واحد فقط ان تقوم بالتشييك على هذا الحقل كل ما دعت الحاجة لذلك فاذا كانت قيمة الحقل اصغر من 4 مثلاً عندها يعطيك تنبيه بان هذا المستخدم بقي له اربع ايام على انتهاء صلاحيته و هكذا

الفكرة واضحة و بسيطة اتمنى لك التوفيق
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: أبووسم , sendbad100 , sendbad100
#10
(28-01-17, 05:18 PM)أسامة السالمي كتب :
(28-01-17, 04:23 PM)Marwan9990 كتب : تم اخي رفعته ك مرفقات واسف بخصوص موقع تحميل ما ادري ليش ما يصير معكم..

هذا مشروعي الي ابي تعديل يكون في فورم اضافة مستخدم الجديد

للأسف مشروعك مربوط بقاعدة البيانات عن طريق الكود, لذلك لن أستطيع التعديل عليه.

لكن أحضرت لك كود آخر أتمنى أن يفيدك :

PHP كود :
Dim Before1 As Integer 1
        Dim Before2 
As Integer ' سيكون التنبيه قبل تاريخ الانتهاء بهذا العدد من الأيام 

        Dim da1, da2 As Date
        da1 = Today.AddDays(-Before1)
        da2 = Today.AddDays(-Before2)

     
        '
ضع أمر البحث هنا 
        
'ابحث في عامود تاريخ الإنتهاء
        '
كقيمة (da2و (da1استخدم
        
'ستظهر لك أسماء الذين تبقى على انتهائهم يومان
        '
اذا أردت تغيير عدد الايام الى ثلاثة أيام على سبيل المثال فسيلزمك اضافة متغيرات جديدة
        
'فاذا أردت ان تجعلها ثلاثة أيام فسيصبح الكود بهذا الشكل

        '
Dim Before1 As Integer 1
        
'Dim Before2 As Integer = 2
        '
Dim Before3 As Integer ' سيكون التنبيه قبل تاريخ الانتهاء بهذا العدد من الأيام

        '
Dim da1da2da3 As Date
        
'da1 = Today.AddDays(-Before1)
        '
da2 Today.AddDays(-Before2)
 
       'da3 = Today.AddDays(-Before2)
        '
Me.DateTimePicker1.Value da1

        
'كقيمة (da3) و (da2) و (da1) وستستخدم 

انسخ الكود الى برنامج الفيجوال لتتمكن من قراءتها بسهوله

  
للا عليك ي غالي تشريف لي مرورك من هنا ومبادرتك بمساعده الي تسلم والف شكر لك ربي يرزقك جنات النعيم ..
ستفسار اخير بس لا هنت هل اضع هذا الكود في خانة التاريخ النهائي ? ام ماذا السموحه تعبتك بس لانه خبرتي قليله

(28-01-17, 07:37 PM)ابو ليلى كتب : الاخ السائل بما انك تعمل على قاعدة اكسس يمكنك الاستفادة من بعض الوظائف الجاهزة في القاعدة كما يلي
اصنع استعلام في القاعدة بهذا الشكل الموضح بالصورة




صورة عند تشغيل الاستعلام



كما ترى اصبح لدي جدول جديد (استعلام ) فيه حقل جديد (DateDifer) يقوم باحتساب الفرق بين تاريخين بالايام و ذلك حسب الدالة السابقة في الاستعلام DateDiff و هي تقوم بحساب الفرق بالايام بين تاريخين وفق الوسيطة "d" و يمكنك حساب الفرق بالشهور او السنة او بالساعات و ذلك بتغير نوع الوسيطة كما تريد 
اشكال الوسائط 
(yyyy) سنوات , (َq) دقائق , (m) شهر , (ww) اسابيع ...... الخ

بهذه العملية انت اختصرت على نفسك الوقت و الجهد و ارحت البرنامج من عملية الحساب و بقي لديك امر واحد فقط ان تقوم بالتشييك على هذا الحقل كل ما دعت الحاجة لذلك فاذا كانت قيمة الحقل اصغر من 4 مثلاً عندها يعطيك تنبيه بان هذا المستخدم بقي له اربع ايام على انتهاء صلاحيته و هكذا

الفكرة واضحة و بسيطة اتمنى لك التوفيق

اخي الكريم اولا اشكرك كثير الشكر لمرورك من هنا وتقديم المساعده الي ..
وبخصوص طريقتك مع الاسف ي اخوي ما بينفع اعمله كذا لانه يتعارض مع سبب تصميم ل هذا المشروع فالحقيقه انا طالب وادرس هذا الماده ولكن خبرتي للحين قليله ولكني اهدف الى تقديم بعض المساعده ل بعض الناس الغالين معي بتصميم هذا المشروع بعد طلبهم مني تقديم المساعده لهم ..


كرر شكري للك اخي الكريم
الرد }}}
تم الشكر بواسطة: ابو ليلى , أسامة السالمي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 462 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  التاريخ الهجرى mmaalmesry 9 1,075 07-12-23, 01:32 PM
آخر رد: kebboud

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


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