منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكله فى البحث بين تاريخين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : مشكله فى البحث بين تاريخين (/showthread.php?tid=18059)

الصفحات: 1 2

RE: مشكله فى البحث بين تاريخين - ahmedabdelaliem - 25-11-16

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

اخي راجع التعليمات في الصورة المرفقه

بالتوفيق

RE: مشكله فى البحث بين تاريخين - Ashraf Elafify - 25-11-16

السلام عليكم ورحمه الله و بركاته
اخى الكريم / احمد

تم ضبط تنسيق التاريخ من لوحه التحكم كما اشرت

و لكن المشكله مازالت قائمة


انظر على الصورة التاليه


تم البحث من تاريخ 01/011/2016
الى تاريخ اليوم 25/11/2016

ولكن النتيجه جميع عمليات البيع السابقة.




[attachment=12314]

RE: مشكله فى البحث بين تاريخين - Ahmed_Mansoor - 26-11-16

أهلا أخي الكريم , عدلت على المثال , في البداية تظهر لي رسائل خطأ ربما مشكلة في إصدار الأداوت المستخدمه , وأنا لم أتعامل مع أداة DBGrid من قبل ولم تظهر بيانات في القريد رغم أنه تظهر صفوف بعد البحث لكن فارغه عدلت الأكواد وجربت البحث وأعتقد أنه عمل بشكل جيد تأكد لأنه لم تظهر البيانات في القريد عندي , وبالتوفيق .

RE: مشكله فى البحث بين تاريخين - Ashraf Elafify - 26-11-16

بارك الله فيك اخى الكريم / احمد منصور

وبارك الله فى كل اعضاء المنتدى الغالى

وجعلها الله فى ميزان حسناتكم
تم بحمد لله التوصل لحل للمشكله

الفضل لله سبحانه وتعالى ثم اساتذتنا الكبار المحترمين ( ا/ احمد منصور - ا/ احمد عبد العليم ) وكل من حاول مساعدتى فى هذه المشكله

اولا تم ادراج اثنين تكست بوكس و تم تسميتهم على التوالى ( TDTPicker1 & TDTPicker2).

و تم تمرير قيمه التاريخ اليهما عن طريق

TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value

ثم تم تنسيق التاريخ من لوحة التحكم ليكون dd/mm/yyyy

ثم تم تنسيق التكست بوكس ( TDTPicker1 & TDTPicker2) ليكون mm/dd/yyyy

و التالى هو الكود النهائى


كود :
Private Sub CMDSearch_Click()
On Error Resume Next
If CClientName.Text = "" Then CClientName.Text = "*"
TDTPicker1.Text = DTPicker1.Value
TDTPicker1.Text = Format(TDTPicker1, "mm/dd/yyyy")
TDTPicker2.Text = DTPicker2.Value
TDTPicker2.Text = Format(TDTPicker2, "mm/dd/yyyy")
Data1.RecordSource = " select * from QInvoice where ClientName like '" & CClientName.Text & "*" & "' and Date Between #" & TDTPicker1.Text & "# and #" & TDTPicker2.Text & "# and Date >= #" & TDTPicker1.Text & "# and Date <= #" & TDTPicker2.Text & "#"
     Data1.Refresh
     Data1.Recordset.MoveLast
Data3.RecordSource = "select * from QCreditors where ClientName like '" & CClientName.Text & "*" & "' and Date Between '" & Format$(TDTPicker1.Text, "dd/MMM/yyyy") & "' and '" & Format$(TDTPicker2.Text, "dd/MMM/yyyy") & "'"
     Data3.Refresh
     Data3.Recordset.MoveLast
Form_Activate
Me.Textsum
Me.refreshall
Me.RefreshTDiccountTotal
TDifF.Text = Val(TTotalٍSellingPrice.Text) - Val(TTotalCostPrice.Text) - Val(TDisccount.Text)
End Sub

و الشكر مرة اخرى لجميع اعضاء المنتدى

و جعل الله كل كلمه و معلومه فى ميزان صاحبها

وبارك الله فى الجميع
ولله الحمد.