25-11-16, 10:14 PM
الصفحات : 1 2
25-11-16, 10:27 PM
السلام عليكم ورحمه الله و بركاته
اخى الكريم / احمد
تم ضبط تنسيق التاريخ من لوحه التحكم كما اشرت
و لكن المشكله مازالت قائمة
انظر على الصورة التاليه
تم البحث من تاريخ 01/011/2016
الى تاريخ اليوم 25/11/2016
ولكن النتيجه جميع عمليات البيع السابقة.
[attachment=12314]
اخى الكريم / احمد
تم ضبط تنسيق التاريخ من لوحه التحكم كما اشرت
و لكن المشكله مازالت قائمة
انظر على الصورة التاليه
تم البحث من تاريخ 01/011/2016
الى تاريخ اليوم 25/11/2016
ولكن النتيجه جميع عمليات البيع السابقة.
[attachment=12314]
26-11-16, 02:21 PM
أهلا أخي الكريم , عدلت على المثال , في البداية تظهر لي رسائل خطأ ربما مشكلة في إصدار الأداوت المستخدمه , وأنا لم أتعامل مع أداة DBGrid من قبل ولم تظهر بيانات في القريد رغم أنه تظهر صفوف بعد البحث لكن فارغه عدلت الأكواد وجربت البحث وأعتقد أنه عمل بشكل جيد تأكد لأنه لم تظهر البيانات في القريد عندي , وبالتوفيق .
26-11-16, 03:52 PM
بارك الله فيك اخى الكريم / احمد منصور
وبارك الله فى كل اعضاء المنتدى الغالى
وجعلها الله فى ميزان حسناتكم
تم بحمد لله التوصل لحل للمشكله
الفضل لله سبحانه وتعالى ثم اساتذتنا الكبار المحترمين ( ا/ احمد منصور - ا/ احمد عبد العليم ) وكل من حاول مساعدتى فى هذه المشكله
اولا تم ادراج اثنين تكست بوكس و تم تسميتهم على التوالى ( TDTPicker1 & TDTPicker2).
و تم تمرير قيمه التاريخ اليهما عن طريق
TDTPicker1.Text = DTPicker1.Value
TDTPicker2.Text = DTPicker2.Value
ثم تم تنسيق التاريخ من لوحة التحكم ليكون dd/mm/yyyy
ثم تم تنسيق التكست بوكس ( TDTPicker1 & TDTPicker2) ليكون mm/dd/yyyy
و التالى هو الكود النهائى
و الشكر مرة اخرى لجميع اعضاء المنتدى
و جعل الله كل كلمه و معلومه فى ميزان صاحبها
وبارك الله فى الجميع
ولله الحمد.
وبارك الله فى كل اعضاء المنتدى الغالى
وجعلها الله فى ميزان حسناتكم
تم بحمد لله التوصل لحل للمشكله
الفضل لله سبحانه وتعالى ثم اساتذتنا الكبار المحترمين ( ا/ احمد منصور - ا/ احمد عبد العليم ) وكل من حاول مساعدتى فى هذه المشكله
اولا تم ادراج اثنين تكست بوكس و تم تسميتهم على التوالى ( 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و الشكر مرة اخرى لجميع اعضاء المنتدى
و جعل الله كل كلمه و معلومه فى ميزان صاحبها
وبارك الله فى الجميع
ولله الحمد.
الصفحات : 1 2