تقصد
1-مشتريات الشهر السابق أم أخر شهر ( قبل 30 يوم من الأن )
2- مشتريات الاسبوع السابق أم أخر أسبوع ( قبل 7 يوم من الأن )
3- مشتريات السنة السابقة أم أخر سنة ( قبل 365 يوم من الأن )
حدد من فضلك لأنه بيفرق كثيراً بالكود .
تفضل أخي .
'Table1 حسب اسم الجدول لديك
'ID حسب اسم لديك
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Table1"
DoCmd.RunSQL "INSERT INTO Table1 (ID) VALUES (0)"
DoCmd.RunSQL "DELETE * FROM Table1"
Me.Requery
Refresh
استاذ حمدي أنا أدري أنك تحب تفهم وتقرأ وتمحص في أي اجابة لذا أنا كنت شاركت بهدية للمنتدى وبها طلبك ( ححز مقاعد أو حجز مكان معين ) وهذه مشاركتي لك مرةً أخري اقرأها جيداً بتحصل مبتغاك .