[خالد كامل1]

احبتى فى الله السلام عليكم ورحمه الله
لو كان عندى فورم فيه مواعييد استحقاق للشيكات واجبه السداد بتاريخ محدد
اسأل عن طريقه تظهر لى رساله عند فتح البرنامج قبل 7 ايام من الاستحقاق مفادها ان هناك شيكات واجبه السداد فى اليوم المحدده
ولكم منى جزيل الشكر والمحبه

[عيد مبارك]

وعليكم السلام ورحمة الله

قم بعمل استعلام بعدد الشيكات التي تبقى على موعد سدادها 7 ايم فاقل
فاذا كانت النتيجه عدد اكبر من صفر فاظهر الرساله

table اسم الجدول
column عمود موعد السداد من نوع تاريخ Date

هذا الاستعلام ل اس كيو ال سيرفر SQLServer

كود :

SELECT COUNT(*)
FROM   [table]
WHERE  DATEDIFF(day,[column],GETDATE())<=7

هذا الاستعلام ل ميكروسوفت اكسس MSAccess

كود :

SELECT COUNT(*)
FROM   [table]
WHERE  DATEDIFF('d',[column],NOW())<=7

---

أيضا أنظر هذه المشاركة فيها صورة تتطابق مع طلبك
http://vb4arb.com/vb/showthread.php?tid=...6#pid14486

[Anas Mahmoud]

بالاضافة لرد الاخ قبلي 

يمكنك استخدام التالي لجلب الشيكات خلال اسبوع من اليوم ، متضمن شيكات اليوم الحالي ، غير متضمن الشيكات السابقة لليوم ، وغير مهتم بالوقت 

عدل Checks الى اسم جدول الشيكات وكذلك DueDate الى اسم حقل تاريخ الاستحقاق

كود :

       Dim query As String = "SELECT * FROM Checks
                               WHERE CAST(DueDate AS date) <= CAST(DATEADD(day,7, GETDATE()) AS date)
                               AND   CAST(DueDate AS date) >= CAST(getdate() AS date)"

       Dim cmd As New SqlCommand(query, conn)
       Dim sda As New SqlDataAdapter(cmd)
       Dim dt As New DataTable
       Dim RowCount As Integer

       conn.Open()

       RowCount = sda.Fill(dt)

       conn.Close()

       If RowCount > 0 Then
           MsgBox($"هناك عدد {RowCount} شيكات خلال الاسبوع")

           'عرض تفاصيل الشيكات
           DataGridView1.DataSource = dt

       End If

[عبد العزيز البسكري]

و من باب زيادة الخير .. خيريْن

و إضافة لما طرحه أساتذتي الأفاضل بالحلول أعلاه

جزاهم الله خير الجزاء و زادهم من علمه و فضله

يمكن كذلك .. التنويع بهذه الكيفية

http://vb4arb.com/vb/showthread.php?tid=28179

تحياتي

[خالد كامل1]

اشكركم احبتى فى الله سوف اجرب كل طريقه واهتدى الى الطريقه الافضل