26-11-16, 03:52 PM
(آخر تعديل لهذه المشاركة : 26-11-16, 04:12 PM {2} بواسطة Ashraf Elafify.)
بارك الله فيك اخى الكريم / احمد منصور
وبارك الله فى كل اعضاء المنتدى الغالى
وجعلها الله فى ميزان حسناتكم
تم بحمد لله التوصل لحل للمشكله
الفضل لله سبحانه وتعالى ثم اساتذتنا الكبار المحترمين ( ا/ احمد منصور - ا/ احمد عبد العليم ) وكل من حاول مساعدتى فى هذه المشكله
اولا تم ادراج اثنين تكست بوكس و تم تسميتهم على التوالى ( 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و الشكر مرة اخرى لجميع اعضاء المنتدى
و جعل الله كل كلمه و معلومه فى ميزان صاحبها
وبارك الله فى الجميع
ولله الحمد.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
