عند الضغط على حذف دون وجود سجل يتم حذفة يعترض البرنامج

عند الضغط على حذف دون وجود سجل يتم حذفة يعترض البرنامج
يمكنك التأكد من وجود بيانات عن طريق معرفة عدد السجلات الموجودة بالجدول وذلك عن طريق الخاصية
RecordCount
وهى تحمل عدد السجلات فى الجدول
معنى هذا انها لو كانت تساوى صفر انة لا يوجد بيانات
ويكون الكود كالتالى
Code:
if data1.recordset.recordcount=0 then
msgbox "لا يوجد بيانات"
exit sub
endif
data1.recordset.delete