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
هذا هو الكود اخي منتصر أين غضيف الكود الذي ذكرته لني حاولت وضعه ولكن لم يحدث شيء