السلام عليكم و رحمة الله و بركاته
استكمالا لما افادتني به الاخت الفاضلة زهرة جزاها الله خيرا في سؤال سايق قمت بوضع شرط في حال عدم وجوده يتم حذف جداول معينة
DoCmd.DeleteObject acTable, "Tb1"
DoCmd.DeleteObject acTable, "TB2"
DoCmd.DeleteObject acTable, "TB3"
و ان لا يُظهر ما في النموذج من عناصر لعدم امكانية حذف النماذج كون الوحدات النمطية محمية بكلمة سر كمثال
Me.Command101.Visible = False
و ما اطلبه هنا هو كود لحذف عناصر النموذج بدلا من اخفائها مع رسالة تظهر توضح انه تم حذف عناصر النموذج
و ان كان بالامكان امر واحد لحذف جميع العناصر مرة واحدة بدل ذكر اسمها واحدا واحدا
بارك الله فيكم
و السلام عليكم



