اخي محمد طاهر
جزاك الله خيرا
استخدمت الكود الذي ذكرته وهو
Sub DropX2()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("Northwind.mdb")
' Delete the Employees table.
dbs.Execute "DROP TABLE Employees;"
dbs.Close
End Sub
لكن مااشتغل صح معي علما هو ماابغي لأنني اريد استبدال جدول بجدول آخر بنفس الاسم
اسم قاعدة البيانات : saeed
اسم الجدول : mad_mhar
القاعدة موجوده ب : c