(27-05-20, 01:54 PM)boudyonline كتب : أولا :
بالنسبة لإظهار بيانات الجدول التي يوافق تاريخ الاستلام (TransferDate) اليوم الحالي استخدم جملة Select  كالتالي :

PHP كود :

"SELECT * FROM اسم الجدول WHERE TransferDate= CURDATE()" 


ثانيا :
بالنسبة لتلوين السجل الذي استلم
هل تم عمل حقل أو خانة تدل على أن العميل استلم أم لا  ؟؟؟؟
اذا لم يكن كذلك ... اقترح عليك اضافة حقل للجدول من النوع المنطقي (Y/N) لتحديد الحالة أولا
بعد ذلك سيكون من السهولة عمل كل ما تريد من عمليات على قاعدة البيانات

(27-05-20, 03:59 PM)rochdi191 كتب : السلام عليكم اخي
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي

Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك

Dim dt1 As Date = DateTimePicker2.Value
       Dim dt2 As Date = DateTimePicker3.Value
       dt.Clear()
       da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
       da.Fill(dt)
       DataGridView1.DataSource = dt

       If dt.Rows.Count = 0 Then
           MsgBox("No match found")
           Cleardata_table1()
       End If

(27-05-20, 06:02 PM)mazentq كتب :

(27-05-20, 03:59 PM)rochdi191 كتب : السلام عليكم اخي
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي

Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك

Dim dt1 As Date = DateTimePicker2.Value
       Dim dt2 As Date = DateTimePicker3.Value
       dt.Clear()
       da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
       da.Fill(dt)
       DataGridView1.DataSource = dt

       If dt.Rows.Count = 0 Then
           MsgBox("No match found")
           Cleardata_table1()
       End If

شكرا اخي بس ان عاوز اعرض بيانات الصف الي فيه حقل TransferDate  موافق لتاريخ اليوم 
يعني لما ادوس عليه يظهر كل تواريخ الاستلام الي مواقفة انهاردة وهكذا مع باقي اليوم يعني لو جيت بكرة دوست علي نفس الزرار يجبلي انهاردة فيه حد هيستلم ولا لا

---

تمام الف شكر ليكم كلكم قدرت الاقي طريقة باستخدام الكود ده فضلت اجرب لحد ما اشتغلت تمام 
كود الاخ الفاضل [b]rochdi191  بس عدلت فيه حد مشتغل بنفس الطريقة الي كنت عاوزها [/b]

كود :

Dim dt As New DataTable()
       Dim dt1 As Date = date1.Value
       dt.Clear()
       Dim da As New OleDbDataAdapter("Select * from Convertcar where TransferDate = #" & Date.Today & "# order by TransferDate ", con)
       da.Fill(dt)
       DataGridView1.DataSource = dt

       If dt.Rows.Count = 0 Then
           MsgBox("No match found")
       End If