تحديث بيانات التقرير لم تنفع الاكواد في المنتدى

جربت هذا الكود

Adodc1.Refresh

DataReport1.Show

ولكن ذلك لم ينفع

كما جربت هذا الكود في التقرير

Private Sub DataReport_Activate()

DataReport1.Refresh

End Sub

ولكن ذلك لم ينجح ايضا لذا انتظر الرد

اخي في المثال السابق قم باضافة هذه الاسطر قبل اظهار التقرير

'اغلاق الداتا اينفيرمنت اذا كان مفتوحاً
If DataEnvironment1.rsCommand1.State = 1 Then DataEnvironment1.rsCommand1.Close
'فتح الداتا انفيرمنت  
 DataEnvironment1.rsCommand1.Open
'تحديث البيانات باستخدام اعادة الاستعلام  Requery
 DataEnvironment1.rsCommand1.Requery
' تأخير زمني لاكمال التنفيذ
 DoEvents

جزاك الله كل خير اخي الكريم والحمدلله تمت اضافة الكود وانتهت المشكلة

جرب هذا

If DataEnvironment1.rsCar.State = 1 Then DataEnvironment1.rsCar.Close
DataEnvironment1.rsCar.Open
DataEnvironment1.rsCar.Filter = ""

DataEnvironment1.rsCar.Requery

DoEvents

DataEnvironment1.rsCar.Filter = ""
DataEnvironment1.rsCar.Filter = "date >= #" & DTPicker1 & "# and date <= #" & DTPicker2 & "# "
car.Show

تحياتي

شكرا لك اخي omani يبدو انه لا يوجد اعضاء في المنتدى سواك ولكن الكود الذي قمت باضافته لا يختلف عن الكود الذي طرحته انا الا انني اضفت car.Show مرتين المهم ان الطريقة تنفع مرات ولا تنفع مرات ولست ادري لماذا؟