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

وعليكــم السـلام ورحمة الله وبركاتـه..

تفضل أخي الفاضل

تم تحويل الماكرو الى كود وتم عمل رساله تفيد الحذف

أو تفيد عدم وجود الجدول .. والسلام

Ek_DelTab.rar

شكرا اخى

هل يمكن اختبار هل الجدول موجود بقاعدة البيانات ام لا

اى كتابة كود يفيد

فى حالة وجود الجدول بقاعدة البيانات ارسل رسالة " الجدول موجدود بقاعدة البيانات "

وفى حالة عدم وجوده بقاعدة البيانات ارسل رسالة " الجدول غير موجدود بقاعدة البيانات "

جزاك الله خيرا

السلام عليكــم ورحمـة الله وبركاتــه ،،

اقتباس

هل يمكن اختبار هل الجدول موجود بقاعدة البيانات ام لا

اى كتابة كود يفيد

فى حالة وجود الجدول بقاعدة البيانات ارسل رسالة " الجدول موجدود بقاعدة البيانات "

وفى حالة عدم وجوده بقاعدة البيانات ارسل رسالة " الجدول غير موجدود بقاعدة البيانات "

نعم يمكن أخي الكريم .. هذا مثال مرفق تأمل الكود

Dim db As Database
Dim rst As Recordset
Dim CountNum, I As Long
Set db = CurrentDb
Set rst = db.OpenRecordset("ShowTabl", dbOpenSnapshot)
CountNum = DCount("*", "ShowTabl", "[Name]=[Forms]![Form1]![txtname]")
If CountNum = 0 Then GoTo m
MsgBox"موجود"_
	vbExclamation + vbOKOnly, _
	"موجود"
Exit Sub
m:
MsgBox "غير موجود"_
	vbExclamation + vbOKOnly, _
	"غير موجود"

ek2DelTab.rar

جزاك الله كل الخير

اعتذر عن سرعة الرد بالشكر لظروف النت هنا