عندما تكون قاعدة البيانات فارغه

بعد فتح القاعدة وفتح الجدول ضع الكود التالي
if rs.Eof= True then
أكتب الكود المراد تنفيذه لو الجدول ماهو فارغ
Else
msgbox "الجدول المحدد من قاعدة البيانات فارغ"
exit sub
end if

..تحياتي

اخي الفاضل ارجو ان تجرب وضع الكود التالي في sub الذي يظهر فيه الخطأ

private xxxxx_Sub()
on error goto mysol



exit sub

mysol:
if err.number = ضع رقم الخطأ الذي يظهر لك then
resume next
end if

end sub