[السيد الغالي]

(10-02-15, 09:47 PM)larbihamri كتب : ممكن كود البحث بتاريخ اليوم عن طريق اداة adodc

السلام عليكم
تفضل اخي العزيز

كود :

On Error Resume Next

Dim x As String
x = DTPicker1

Adodc1.RecordSource = " select * from Sheet1 where  date like '" & x & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

حيث sheet1  هو اسم الجدول و ال date  هو اسم الحقل اما x = DTPicker1 فيكمنك استبدال  DTPicker1  ب text التاريخ مثلا