كيفية عرض بيانات محصورة بين تاريخين بالكريستال ريبورت

تفضل اخي الكود مع تغيير اسماء الجداول الى اسماء جداول الخاصة بك

Dim str1 As String

Dim str2 As String

CrystalReport1.SelectionFormula = ""

str1 = Format(Text1.Text, "dd/mm/yyyy")

str2 = Format(Text2.Text, "dd/mm/yyyy")

CrystalReport1.SelectionFormula = "{fax_h.date}>=" & "date(" & Format(str1, "yyyy,mm,dd") & ")"

CrystalReport1.SelectionFormula = CrystalReport1.SelectionFormula & "AND" & "{fax_h.date}<=" & "date(" & Format(str2, "yyyy ,mm ,dd") & ")"

CrystalReport1.ReportFileName = App.Path & "\report\fax_h.rpt"

CrystalReport1.RetrieveDataFiles

CrystalReport1.Destination = 0

CrystalReport1.Action = 1

السلام عليكم

شكراً اخي الكريم علي الرد السريع علي الموضوع

لكن بسراحة في مشكلة في الكود مش راضي يشتغل عندي

ارجو انك تصيغ الكود مرة ثانية

و اسم قاعدة البيانات

SaleTax

و اسم الجدول

tax

و اسم الحقل اللي هقوم بالاستعاء علية

Dcheck

وشكراً جداً علي الرد السابق

اخى الكرم بارك لله فيك وهذا الكود وفى حال عدم تنفيذ العملية برجاء إرفاق البرنامج وسأقوم بالتعديل علية وارفاقة لك

Dim str1 As String

Dim str2 As String

CrystalReport1.SelectionFormula = ""

str1 = Format(Text1.Text, "dd/mm/yyyy")

str2 = Format(Text2.Text, "dd/mm/yyyy")

' هذا الكود لأستخراج التاريخ من جدول ( Tax للحقل الا اسمة Dcheck )

CrystalReport1.SelectionFormula = "{tax.Dcheck}>=" & "date(" & Format(str1, "yyyy,mm,dd") & ")"

' هذا الكود لأستخراج التاريخ من جدول ( Tax للحقل الا اسمة Dcheck2 ) وهنا انا عملت حقل بنفس الأسم الأول ولكن زاد علية رقم 2 لأن على حد علمى انه لابد انا تعمل حقلين تاريخ بحيث يحصر الناتج بينهم

CrystalReport1.SelectionFormula = CrystalReport1.SelectionFormula & "AND" & "{tax.Dcheck2}<=" & "date(" & Format(str2, "yyyy ,mm ,dd") & ")"

CrystalReport1.ReportFileName = App.Path & "\report\fax_h.rpt"

CrystalReport1.RetrieveDataFiles

CrystalReport1.Destination = 0

CrystalReport1.Action = 1

شكراً علي الاهتمام

تم رفع البرنامج علي الوصلة التالية

http://www.rogepost.com/n/6419788632

اخى الكريم برجاء تحميل الملف على رابط اخر لأن هذا الرابط لا يعمل

وشكرا لك

الاخ الفاضل عماد

بداية ابلغ شكري على هذا الكود الرائع ولك ات تعلم اني ابحث عن هذا الكود منذ اسبوع واضفت موضوع بالمنتدي للسؤال عنه ولم احصل علي نتيجة

جزالك الله خيراً واعطاك العافية

اخى الكريم تم تحميل البرنامج والتعديل علية ومرفق لك البرنامج بعد التعديل علية وارفاقة

ولكي يعمل معك بشكل صحيح يرجة وضعه الفولدر الخاص بالبرنامج على الدريف سي -----فى هذا المسار c:/System

للمعلومية اخي الكريم تم حذف قاعدة البيانات من هذا المرفق لكي اقدر احمله لك هنا يجب عليك بعد تحميل المرفق وضع قاعدة البيانات بنفس المسر الذي بالألى

وشكرا لك

الأخ / black_boxer

يا اخي لا شكر على واجب انا ما سويت شئ ونحن هنا جميعا اخوه والله يوفقنا جميعا ويزيدنا من علمة

System.rar

شكراً جزيلاً علي التعديل و الاهتمام بالموضوع

تقبل تحياتي و خالص شكري

لا شكر على واجب حببي بالخدمة بأى وقت وبالتوفيق اخي الكريم

مشكور اخي العزيز على ها الكود

ممكن بعض المستخدمين يجدوا خطأ عند هذه النقطة

CrystalReport1.SelectionFormula

وفي هذه الحالة تقوم بإستبدالها الى

Report.RecordSelectionFormula

حيث واجهتني هذه المشكلة وتم معالجتها والحمد لله

ربما لأني استخدم اصدار لم يتوافق مع الإصدار الذي تستخدمه , حيث استخدم الإصدار العاشر

وشكرا