تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن طريقة اخفاء ملف bat عند ضغط على زر في اداة jam3h 10 179 25-09-20, 02:55 PM
آخر رد: Anas Mahmoud
  [سؤال] ممكن كود فتح موقع على انترنت عند فتح الاداة تلقائي jam3h 2 47 24-09-20, 08:01 PM
آخر رد: jam3h
  ممكن مساعدة (الخطأ غير واضح في كود الحفظ) sofiane-phy 2 62 22-09-20, 12:15 PM
آخر رد: sofiane-phy
  [VB.NET] ممكن كود تخطي اعلان للبرنامج مثل الفديو دا ahmed112001 2 110 21-09-20, 03:53 PM
آخر رد: ahmed112001
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 403 20-09-20, 08:46 PM
آخر رد: jam3h
  استفسار بخصوص حجم قاعدة بيانات سيكوال سيرفر momani33 0 62 16-09-20, 02:22 PM
آخر رد: momani33
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 197 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] ممكن شرح لتعامل مع مكتبه اليوم السابع 0 64 10-09-20, 05:08 PM
آخر رد: اليوم السابع
  استفسار عن برنامج mazentq 0 143 09-09-20, 12:25 AM
آخر رد: mazentq
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 349 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري

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


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