كود حذف بيانات اكثر من جدول

[عفرنس]

أريد كود حذف بيانات اكثر من جدول مرة واحدة من خلال زر أمر .

لدي موديول يحوي هذا الكود 

Public Sub TruncateTables()

Dim T As TableDef
DoCmd.SetWarnings False
    
      
DoCmd.RunSQL "DELETE * FROM CS_GetStudentScheduleReport "
DoCmd.RunSQL "DELETE * FROM ImportSheet "



DoCmd.SetWarnings True
End Sub

 

تم تعديل أغسطس 25, 2020 بواسطه فايز..

[د.كاف يار]

اتفضل يابو عبدالرحمن

فقط حدد اسماء الجداول الي تحتاج تحذف بياناتها

On Error GoTo errorhandle
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM " & "TableName1"
DoCmd.RunSQL "DELETE FROM " & "TableName2"
DoCmd.RunSQL "DELETE FROM " & "TableName3"
DoCmd.RunSQL "DELETE FROM " & "TableName4"
DoCmd.SetWarnings True
MsgBox "تم افراغ الجداول بنجاح"
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

[عفرنس]

2 ساعات مضت, د.كاف يار said:

اتفضل يابو عبدالرحمن

فقط حدد اسماء الجداول الي تحتاج تحذف بياناتها

On Error GoTo errorhandle
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM " & "TableName1"
DoCmd.RunSQL "DELETE FROM " & "TableName2"
DoCmd.RunSQL "DELETE FROM " & "TableName3"
DoCmd.RunSQL "DELETE FROM " & "TableName4"
DoCmd.SetWarnings True
MsgBox "تم افراغ الجداول بنجاح"
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

جزيت الجنة  أخي الفاضل @د.كاف يار 

 

تم تعديل أغسطس 25, 2020 بواسطه فايز..

[jjafferr]

همممم

 

ليش كل هذه الاسطر !!

اذا كنت عامل علاقات بين الجداول ، وكنت مختار "حذف البيانات المرتبطة" (الاختيار الثالث في المربع الاحمر والذي عليه السهم) :

يكفي ان تحذف بيانات الجدول الرئيسي فقط ، وبقية الجداول سوف تحذف بياناتها تلقائيا 🙂 

يعني حسب اسماء الجداول في الصورة ، لو حذفنا بيانات الجدول tbl_Persone_Static (الجدول الذي حوله المربع الاحمر) ، فتلقائيا بيانات جميع الجداول المرتبطة به سوف يتم حذفها ، هذه ميزة وعمل الاختيار رقم 3 🙂 

 

جعفر