کدی برای حذف تیبل های موجود در دیتابیس

[abdoreza57]

سلام

دوستان دنبال کدی میگردم که بتونم تمام جداول موجود اکسس را یکجا حذف کنم این درحالی است که مرتبط بودن جداول ممکنه مانع این کار بشه به هر حال میتونم با کدی دیتای موجود تو جداول را پاک کنم ولی میخواهم بشه کل جداول را یکجا حذفش کنم یعنی قسمت tables خالی بشه !:گیج::متفکر:

[Abbas Amiri]

ابتدا ریلیشن ها را حذف وبعد جدول ها را .


Dim r As Relation
For Each r In CurrentDb.Relations
CurrentDb.Relations.Delete r.Name
Next

[abdoreza57]

سلام

آقای امیری اگه بخوام اینو مثلا رو یه فرم و باتون اجرا کنم چه دستوری روی کلیک قرار میگیره که جداول موجود تماما حذف بشن

[Abbas Amiri]

از کدهای زیر استفاده کنید


Dim t As TableDef
For Each t In CurrentDb.TableDefs
If t.Attributes = 0 Then
CurrentDb.TableDefs.Delete t.Name
End If
Next

[abdoreza57]

ُسلام

به موردی برخورد کردم که ترجیح میدم تو همین تاپیک بگم و اونم اینه "

برای پاک کردن اطلاعات تمام جداول با این فرض که جداول دارای کلیدهای مستر و فورین بوده و روابط یک به چند و یک به یک دارند چطور امکان پذیر هست ؟
به طور خلاصه میخواهم تیبل ها را کلا تخلیه کنم ! با چه کدی امکان پذیر هست ؟

[Abbas Amiri]

سلام
عبارت داخل IF در پست قبلی را با کدزیر جایگزین کنید


CurrentDb.Execute "DELETE * FROM " & t.Name