[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