[larbihamri]

ممكن كود البحث بتاريخ اليوم عن طريق اداة adodc

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

(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 التاريخ مثلا

[larbihamri]

استاذ السيد الغالي
شكرا على ردك لكن
جربت هذا الكود لكن لم يفلح معي لا ادري لماذا رغم انني اعرف هذا الكود صحيح
المشكله ان الداتا قريد عندما اضغط على زر البحث يطلع فارغ

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

السلام عليكم
ممكن ارفاق المشروع