01-12-14, 05:20 PM
السلام عليكم
عند فتح الفورم يتم تلقائيا البحث عن تاريخ اليوم في قاعدة أكسس و تخميل البيانات غلى الفورم
أستعمل هذا الكود
كيف يكمن تعيير هذا الكود بخيث يبحث عن تاريخ اليوم انطلاقا من اليوم و الشهر فقط دون النظر الى السنة . بحيث ان كان التاريخ
01/01/2014 او 01/01/2099 فانه يظهر نفس البيانات
مع الشكر مسبقا
عند فتح الفورم يتم تلقائيا البحث عن تاريخ اليوم في قاعدة أكسس و تخميل البيانات غلى الفورم
أستعمل هذا الكود
كود :
On Error Resume Next
Application.DoEvents()
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE Data LIKE '" & DateTimePicker1.Text.Trim & "'", con)
'Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM Tab WHERE month(Tab.Nom)= DateTimePicker1.customformat="dd" and day((Tab.Nom)= DateTimePicker1.customformat="MM"& "'",con)
con.Open()
DataSet1.Clear()
DataAdapter.Fill(DataSet1, "Tab")
con.Close()
كيف يكمن تعيير هذا الكود بخيث يبحث عن تاريخ اليوم انطلاقا من اليوم و الشهر فقط دون النظر الى السنة . بحيث ان كان التاريخ
01/01/2014 او 01/01/2099 فانه يظهر نفس البيانات
مع الشكر مسبقا