خالي كردن يك ديتابيس؟

[yones.em]

سلام چطور ميتونم يك ديتابيس رو با كليك روي يه باتون خالي كنم؟؟؟؟؟؟؟؟؟؟؟

[payman_xxp]

دوست عزیز لطفا بیشتر توضیح بدید
دیتابیس رو خالی کنید!!؟
منظورتون پاک کردن تمام تیبلها و کوئری ها و گزارشات هست یا پاک کردن تمام رکوردهای یک تیبل؟

[mazoolagh]

باحتمال زیاد پاک کردن تمام رکوردها در تمام جداول منظور هست

[amirzazadeh]

سلام چطور ميتونم يك ديتابيس رو با كليك روي يه باتون خالي كنم؟؟؟؟؟؟؟؟؟؟؟
سلام
لطفا نمونه رو ببينيد:


Private Sub Command0_Click()

Dim AllTableDefs As TableDefs
On Err GoTo hell


Set wrkDefault = DBEngine.Workspaces(0)
Set AllTableDefs = CurrentDb.TableDefs

For i = 0 To AllTableDefs.Count - 1
If (AllTableDefs(i).Attributes = 0) Or systemtables Then
sql1 = "delete * from " & AllTableDefs(i).Name
DoCmd.RunSQL sql1
End If
Next
MsgBox ("All records deleted from All tables")

hell:
Exit Sub
End Sub
.............................
موفق باشيد

[MOR_MS]

با سلام
می خواستم یک سئوال بپرسم که اگر بین جدولها رابطه ای وجود داشته باشه این کد جواب می دهد یا نه اگر جواب نمی ده کدی هست که در صورت وجود این رابطه بشه این کار را انجام داد
ممنونم