تنبيه للمستخدم بعدم وجود بيانات بالجدول قبل تصديره لملف أكسل

[أحمد العيسى]

السلام عليكم

مطلوب رسالة تنبيه للمستخدم بعدم وجود بيانات يمكن تصديرها من جدول أكسس الأساسى إلى ملف أكسل قبل استخدام الأمر

DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS, "C:\" & "Teacher" & ".xls", False

 

 

كما هو متبع مع التقارير  بالتعليمة Report_NoData

مع جزيل الشكر

[king5star]

Dim Q as Integer

Q = Dcount("*","Teacher")
           
if Q > 0 then          
DoCmd.OutputTo acOutputTable, stDocName, acFormatXLS, "C:\" & "Teacher" & ".xls", False
else
msgbox " لا يوجد سجلات لتصديرها "
endif

 

[أحمد العيسى]

أشكرك أخى الفاضل

بارك الله فيك