كيف يمكن حذف السطر الفارغ فى النموذج الفرعى المرتبط بنموذج رئيسي

[السيد الجوهرى]

كيف يمكن حذف السطر الفارغ فى النموذج الفرعى المرتبط بنموذج رئيسي

[عبدالرحمن هاشم]

لو افترضنا أن مصدر النموذج الفرعي هو الجدول Sub_Tabl والحقل الأساسي الذي إذا كان فارغا وليس به بيانات فيحذف الصف بكامله هو txt..

فضع هذا الكود في حدث عند الإغلاق للنموذج الفرعي

Dim sqlDELETE As String
sqlDELETE = "DELETE Sub_Tabl FROM Sub_Tabl WHERE isnull([txt]) "
DoCmd.SetWarnings False
DoCmd.RunSQL sqlDELETE