تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود تنبيه لتاريخ
#11
(21-05-14, 11:25 PM)vb_net كتب : يجب ان تعدل تاريخ الانتهاء يكون 30 يوم بينه وبين تاريخ انتهاء هدا لتجرب النتيجة

لانه هناك شرط حددنا فيه 30 يوم ادا كانت اقل او اكثر لن تاتي الرسالة

راج اجرب حبييبي واشوف
الرد }}}
تم الشكر بواسطة:
#12
-
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-
الرد }}}
تم الشكر بواسطة:
#13
(22-05-14, 12:58 AM)vbnet كتب : -
هل تستخدم قاعدة بيانات Access أوSQLServer ؟
-

Access
الرد }}}
تم الشكر بواسطة:
#14
-
منقول مع تعديل بسيط ليناسب طلبك





استبدل (Val(Me.TextBox1.Text في السطر المشار إليه برقم لعدد الأيام
اسم الجدول table1
اسم حقل تاريخ الانتهاء date2 نوعه تاريخ
ملاحظة: الحقل remDays ليس حقل في الجدول وإنما حقل فقط مع ناتج الاستعلام لمعرفة عدد الأيام المتبقية
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.ListBox1.Items.Clear()

    Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;")

    Dim sql As String = " SELECT *, DATEDIFF('d',Now(),[date2]) AS remDays  " & _
                        " FROM   [table1] " & _
                        " WHERE  DATEDIFF('d',Now(),[date2]) <= @days " & _
                        " ORDER BY [date2] "

    Dim com As New OleDb.OleDbCommand(sql, conn)
    com.Parameters.AddWithValue("@days", Val(Me.TextBox1.Text)) '<<<<<<<<< حدد عدد الأيام

    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(com)
    If da.Fill(dt) > 0 Then

        For Each r As DataRow In dt.Rows
            Me.ListBox1.Items.Add(r("date2") & " (" & r("remDays") & ") = " & r("name"))
        Next

        MessageBox.Show("يوجد عدد [" & dt.Rows.Count & "] اقترب موعد انتهائها" & vbNewLine & _
                        "وأقربها بقي له [" & dt.Rows(0).Item("remDays") & "] يوم/أيام")

    End If

End Sub
الرد }}}
تم الشكر بواسطة: سعود , ﻣﺒﺘﺪﺉ
#15
مشكور حبيبي راح ادرسها كيف واشوف انشالله تزبط ماقصرت ربي يحفظك تعبتك معاي الله يجازيك الجنة يارب
الرد }}}
تم الشكر بواسطة:
#16
مرحبا حبيبي انا مأشر على تاريخ الأنتهاء لي الرخصه اوك ضغط عليه مرتين وحطيت الكود الي جبته لي طيب الحين شنو اغير فيه ..
الفورم


وهذا الكود ..

الرد }}}
تم الشكر بواسطة:
#17
سلام عليكم
اريد المساعدة اريد ملف لتنبية بانتهاء التاريخ
الرد }}}
تم الشكر بواسطة:
#18
ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده فيه حجز 
مثال:-
يوجد حجز من 2-4
وعند تشغيل الوقت من 1-3 يعطي رساله بوجود حجز من 2-4 لذا الوقت المتاح من 1-2
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تنبيه لمركز رفع صور (خطير) justforit 0 211 09-11-23, 03:34 AM
آخر رد: justforit
Information [كود] تنبيه إذا حدث تعديل في محتويات TextBox أبو خالد الشكري 6 675 17-12-22, 11:09 PM
آخر رد: asmarsou
Rainbow [كود] كود اظهار تنبيه عند البحث بأقل من 3 حروف محمد مسافر 3 641 04-12-22, 10:10 AM
آخر رد: أبو خالد الشكري
  السلام عليكم اريد كود لما نتجاوز عدد محاولات 3 مرات في كلمة السر يطلعلي مسج تنبيه nosa 7 6,470 18-02-22, 11:34 PM
آخر رد: • abwryanmjahdhs
  فورم تنبيه باقتراب التاريخ khaled Mohammed 1 1,243 21-09-20, 07:26 PM
آخر رد: Anas Mahmoud
  [VB.NET] عمل تنبيه بتاريخ الصلاحية Moham 10 3,070 07-09-20, 12:53 AM
آخر رد: Moham
  كود تنبيه بقرب حلول قسط شهري الحسين احمد 1 1,091 20-06-20, 01:51 AM
آخر رد: ابراهيم ايبو
  [سؤال] هل يوجد صوت تنبيه غير صوت beebالموجود في فيجول بيسك محمد ايمن 9 2,677 26-05-20, 06:57 AM
آخر رد: محمد ايمن
  [كود] اريد كود رسالة تنبيه datagridview فارغة sidi bibi 3 2,033 26-05-20, 05:45 AM
آخر رد: sidi bibi
  [VB.NET] كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج mazentq 5 2,427 25-05-20, 10:16 PM
آخر رد: ابراهيم ايبو

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


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