crystal report

dim x
ادخال التاريخ
x= inputbox"ادخل التاريخ"
هل القيمة المدخلة تاريخ
if not isdate(x) then exit sub
تحديد الملف
cr1.reportfilename="t1.rpt"
تحديد ملف قاعدة البيانات
cr1.datafiles(0)="db1.mdb")
ترتيب التقرير على حقل معين
cr1.sortfields(0)= "+name"
تحديد قيمة التاريخ
cr1.selectionformula= "{T1.T_date} = Date ( "   format(x,"yyyy,mm,dd") & " ) "
cr1.action= 1

Cr1 هو متغير الاداة كريستال ريبورت

انا لم اجرب الكود المكتوب السابق ارجو اعلامي لو وجت به اي خطا

مع تحياتي

شكرك يااخي طارق موسى لقد استخدمت الكود المراد وهو

cr1.selectionformula= "{T1.T_date} = Date ( " format(x,"yyyy,mm,dd") & " ) "

وهو يعمل بشكل ممتاز ولكن هناك علامة & ناقصه قبل ال format