Docmd.RunSQL"strSql = "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _
"FROM TPstoudnt " & vbCrLf & _
"WHERE (((TPstoudnt.alsaf)=6));""
الاخطاء :
"strSql = هذه جملة زائدة تستخدم في مكان آخر
" آخر علامة تنصيص مزدوجة هي ايضا زائدة
اذا استبعدنا الزوائد سيصبح الكود هكذا :
Docmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _
"FROM TPstoudnt " & vbCrLf & _
"WHERE (((TPstoudnt.alsaf)=6))"
ويمكن اضافة اكثر من جملة برمجية وتكون مرتبة حسب الحدث كما ذكر اخونا طالب العلم
اما السطر الخاص بمنع التحذيرات فيكتفى بواحد اول الجمل مهما كان عددها ولسطر الآخر في آخرها