حذف مساعده فى افراغ الجداول

[king5star]

السلام عليكم اخوانى .

معى مشكلة فى كود اقوم من خلاله بحذف البيانات بداخل جداول القاعدة فيوجد فى المثال ثلاث جداول ونموذج للحذف ،

ما اريده او عندما يتم الضغط على زر افراغ الجداول يفرغ الجداول من كافة البيانات

وزر اخر لافراغ جميع الجداول عدا جدول محدد

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

Delete.zip

[king5star]

الحمد لله توصلت الى نتيجة جيدة ومرضيه حتى الان ولكن لو يمكن تبسيط الكود كون افضل حتى يستوعب الجداول جميعها مهما كان عددها

Delete.zip

[sandanet]

ماشاء الله مثال جميل جداً .. بارك الله فيك 

[Shivan Rekany]

في ٥‏/٥‏/٢٠١٧ at 18:19, king5star said:

الحمد لله توصلت الى نتيجة جيدة ومرضيه حتى الان ولكن لو يمكن تبسيط الكود كون افضل حتى يستوعب الجداول جميعها مهما كان عددها

Delete.zip

اتفضل

اليك هذا فانكشن

Public Function ClearAllData() As Boolean

Dim tdf As DAO.TableDef
Dim dbs as DAO.Database

Set dbs = CurrentDB
For Each tdf in dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
dbs.Execute "DELETE * FROM " & tdf.Name
End IF
Next tdf

Set dbs = Nothing

End Function

وفي خلف الزر الحذف اكتب

Call ClearAllData

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

[king5star]

7 ساعات مضت, Shivan Rekany said:

اتفضل

اليك هذا فانكشن

Public Function ClearAllData() As Boolean

Dim tdf As DAO.TableDef
Dim dbs as DAO.Database

Set dbs = CurrentDB
For Each tdf in dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
dbs.Execute "DELETE * FROM " & tdf.Name
End IF
Next tdf

Set dbs = Nothing

End Function

وفي خلف الزر الحذف اكتب

Call ClearAllData

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

تسلم ايدك اخى شيفان وشكراً على هذا الكود  .