السلام عليكم
لدى نموذج فرعي به عدد كبير من السجلات وأريد التخلص (حذف) اي سجل في النموذج الفرعي مر عليه سنة كاملة أو أكثر علماً .
هل توجد طريقة لذلك
وشكراً للجميع
حذف السجل اوتوماتيكياً
مغلق
هذا يبدو اجراء لا يتم كثيرا و لا لا داعي لعمله بالكود
فقط اصنع اسعلام حذف و ضع فيه شرط التاريخ
أو ان كنت تريد الكود
DoCmd.RunSQL "DELETE Table1.* FROM Table1 WHERE (((Table1.date)<#5/2/2002#));"
السلام عليكم
الشكر الجزيل للأخ محمد طاهر على سرعة الرد والتواصل
لقد عملت بالكود السابق وهو جيد ويفي بالغرض في حالة التعامل مع تاريخ مسجل في جدول
لكن بالنسبة لسؤالي يوجد لدي بالسجل بالنموذج الفرعي توجد خانة وليكن اسمها End تقوم باضافة 24 شهراً على خانة وليكن اسمها Date1 يقوم المستخدم بادخال التاريخ الذي يرغب . علما أن End موحودة فقط على الفورم
فيكف أقوم بمسح السجل عندما تكون تاريخ اليوم (عن طريق الدالةDate())أكبر من التاريخ الموجود بالخانة End
ولكم الشكر الجزيل
DoCmd.RunSQL "DELETE Table1.* FROM Table1 WHERE (((Table1.date)
السلام عليكم ورحمة الله وبركاته
أسف لتأخري عن الرد فقد حاولت أن أعملها بالطريقة التي ذكرها الأستاذ محمد طاهر حفظه الله لكن لم أستطع فهل من مساعدة
مرفق القاعدة
http://mypage.ayna.com/khaleel20002/q1.zip
وشكراً
للرفع
بالنسبة لمثالك يكفي أن تضع في النموذج في حدث عند الفتح
DoCmd.RunSQL "DELETE '*' FROM tvw WHERE ((((DateAdd('m',24,[enddatetvw])))
وبرفقه مثال فيه أكثر من طريقة (انقر بالزر الأيمن واختر حفظ الهدف باسم)
السلام عليكم
شكراً جزيلا لجيع الأخوة الذين ساعوني بحل هذه المشكلة وأخص بالذكر الأخ العزيز محمد طاهر والأخ العزيز حارث
جزاكما الله عني خيرا وجعل في ميزان حسناتكم
هذا الموضوع مغلق.