تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن استفسار الى احبتى فى المنتدى
#1
احبتى فى الله السلام عليكم ورحمه الله
لو كان عندى فورم فيه مواعييد استحقاق للشيكات واجبه السداد بتاريخ محدد
اسأل عن طريقه تظهر لى رساله عند فتح البرنامج قبل 7 ايام من الاستحقاق مفادها ان هناك شيكات واجبه السداد فى اليوم المحدده
ولكم منى جزيل الشكر والمحبه
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله

قم بعمل استعلام بعدد الشيكات التي تبقى على موعد سدادها 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
الرد
#3
بالاضافة لرد الاخ قبلي 

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

عدل 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
الرد
#4
و من باب زيادة الخير .. خيريْن
و إضافة لما طرحه أساتذتي الأفاضل بالحلول أعلاه
جزاهم الله خير الجزاء و زادهم من علمه و فضله
يمكن كذلك .. التنويع بهذه الكيفية
تحياتي
الرد
#5
اشكركم احبتى فى الله سوف اجرب كل طريقه واهتدى الى الطريقه الافضل
الرد
تم الشكر بواسطة: WaeLx , WaeLx , ابراهيم ايبو



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


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