كود التحقق من عدم وجود بيانات في جدول

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام

طلبي هو كو في زر امر للتحقق من وجود بيانات في جدول  بمعني اذا كانت توجد بيانات في جدول يلغي الامر ويعطيني رساله تنبيه

السبب من عمل ذلك لاني اريد حذف البيانات الموجوده بالجدول قبل الترحيل  

 

ولكم جزيل الشكر

[ابو ياسين المشولي]

55 دقائق مضت, حسين العربى said:

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام

طلبي هو كو في زر امر للتحقق من وجود بيانات في جدول  بمعني اذا كانت توجد بيانات في جدول يلغي الامر ويعطيني رساله تنبيه

السبب من عمل ذلك لاني اريد حذف البيانات الموجوده بالجدول قبل الترحيل  

 

ولكم جزيل الشكر

جرب هذا

    If Nz(DCount("*", "Data")) > 0 Then

       MsgBox " الجدول غير فارغ", , "خطأ"
    End If
 Data هو اسم الجدول

 

[حسين العربى]

الف الف شكر استاذي الفاضل هذا هو المطلوب جزاك الله خيرا 

[ابو ياسين المشولي]

2 دقائق مضت, حسين العربى said:

الف الف شكر استاذي الفاضل هذا هو المطلوب جزاك الله خيرا 

بالتوفيق اخي حسين