احبتى فى الله السلام عليكم ورحمه الله
لو كان عندى فورم فيه مواعييد استحقاق للشيكات واجبه السداد بتاريخ محدد
اسأل عن طريقه تظهر لى رساله عند فتح البرنامج قبل 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
أيضا أنظر هذه المشاركة فيها صورة تتطابق مع طلبك
https://vb4arb.com/vb/showthread.php?tid...6#pid14486
بالاضافة لرد الاخ قبلي
يمكنك استخدام التالي لجلب الشيكات خلال اسبوع من اليوم ، متضمن شيكات اليوم الحالي ، غير متضمن الشيكات السابقة لليوم ، وغير مهتم بالوقت
عدل 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
و من باب زيادة الخير .. خيريْن
و إضافة لما طرحه أساتذتي الأفاضل بالحلول أعلاه
جزاهم الله خير الجزاء و زادهم من علمه و فضله
يمكن كذلك .. التنويع بهذه الكيفية
تحياتي
اشكركم احبتى فى الله سوف اجرب كل طريقه واهتدى الى الطريقه الافضل