كيف الغى كلمة #محذوف من جدول

[ابوحاتم]

سؤال للخبراء : لدي نموذج فرعي مبني على جدول غير مرتبط

وضعت امر حذف لجميع السجلات في الجدول لكن المشكلة بعد الحذف تظهر هذه العبارة بالجدول #محذوف

كيف الغى هذه العبارة

[منتصر الانسي]

اخي العزيز

اذا افترضنا أن النموذج الفرعي اسمه "SubForm" اذهب إلى اخر سطر في كود الحذف وضيف السطر التالي

SubForm.Requery

تحياتي,,,

تم تعديل مارس 5, 2010 بواسطه منتصر الانسي

[ابوحاتم]

Private Sub ÃãÑ31_Click()

On Error GoTo Err_ÃãÑ31_Click

Dim strSQLDEl As String

strSQLDEl = "DELETE * FROM MOAAD "

DoCmd.RunSQL (strSQLDEl)

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_ÃãÑ31_Click:

Exit Sub

Err_ÃãÑ31_Click:

MsgBox err.Description

Resume Exit_ÃãÑ31_Click

هذا هو الكود اخي منتصر أين غضيف الكود الذي ذكرته لني حاولت وضعه ولكن لم يحدث شيء

[منتصر الانسي]

Private Sub ÃãÑ31_Click()

On Error GoTo Err_ÃãÑ31_Click

Dim strSQLDEl As String

strSQLDEl = "DELETE * FROM MOAAD "


DoCmd.RunSQL (strSQLDEl)



DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



Exit_ÃãÑ31_Click:

Exit Sub


Err_ÃãÑ31_Click:

MsgBox err.Description

Resume Exit_ÃãÑ31_Click

SubForm.Requery

End Sub

جرب الكود الان ولكن لا تنسى تعديل اسم النموذج الفرعي في الكود "SubForm" باسم النموذج الفرعي في الواقع

تحياتي,,,