ما الخطأ في الكود

[athal1]

السلام عليكم

كود احذف كل السجلات من كل الجداول  يعطي خطأ

ارجو المساعدة

بارك الله فيكم

Dim db As DAO.Database
    Dim td As DAO.TableDefs
   Dim sql As String
    Set db = CurrentDb()
    Set td = db.TableDefs

For Each t In td
        If Left(t.Name, 4) = "MSys" Or Left(t.Name, 1) = "~" Then GoTo Continue


sql = "DELETE t.* FROM t"
DoCmd.RunSQL (sql)


Continue:
Next

MsgBox " all records in all tables are deleted"
Me.Requery

 

Database1.accdb

تم تعديل نوفمبر 17, 2024 بواسطه athal1

[ابوخليل]

العلاقات بين الجداول .. تأكد منها

خاصة .. خاصية تتالي الحذف 

[athal1]

الاستاذ الكريم ابو خليل

لا يوجد علاقات بين الجداول

واشكرك على ردك  المقدر وبارك الله فيك

[أبوبسمله]

السلام عليكم

مشاركه م اخى ومعلمى وشيخنا الجليل @ابوخليل

التعديل

sql = "DELETE t.* FROM " & t.Name

 

[ابوخليل]

شكرا للمشاركة اخي ابو بسملة

تفضل تعديل كامل على الكود مع المرفق

  Dim db As Database
  Dim td As TableDef
  Set db = CurrentDb()
For Each td In db.TableDefs
 If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue
DoCmd.RunSQL "DELETE * FROM " & td.Name & ";"
Continue:
Next
MsgBox " all records in all tables are deleted"
Me.Requery

 

Database2.rar

[MOHAMMAD IBRAHIM]

Dim db As DAO.Database
Dim td As DAO.TableDefs
Dim sql As String
Dim t As DAO.TableDef

Set db = CurrentDb()
Set td = db.TableDefs

For Each t In td
    ' تخطي الجداول النظامية والجداول المؤقتة
    If Left(t.Name, 4) = "MSys" Or Left(t.Name, 1) = "~" Then GoTo Continue

    ' بناء جملة SQL الديناميكية
    sql = "DELETE * FROM [" & t.Name & "]"
    
    ' تنفيذ الجملة SQL
    DoCmd.RunSQL sql

Continue:
Next t

MsgBox "All records in all tables are deleted"
Me.Requery

 

[athal1]

1 ساعه مضت, أبوبسمله said:

السلام عليكم

مشاركه م اخى ومعلمى وشيخنا الجليل @ابوخليل

التعديل

sql = "DELETE t.* FROM " & t.Name

 

وعليكم السلام ورحمة الله وبركاته

الاستاذ الكريم ابو بسملة جزاك الله خيرا وبارك الله فيك

منذ ساعه, ابوخليل said:

شكرا للمشاركة اخي ابو بسملة

تفضل تعديل كامل على الكود مع المرفق

  Dim db As Database
  Dim td As TableDef
  Set db = CurrentDb()
For Each td In db.TableDefs
 If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue
DoCmd.RunSQL "DELETE * FROM " & td.Name & ";"
Continue:
Next
MsgBox " all records in all tables are deleted"
Me.Requery

 

Database2.rar 18.84 kB · 1 download

الاستاذ الكريم وشيخنا الجليل ابو خليل

بارك الله فيك وجزاك  الله خيرا

تم تعديل نوفمبر 17, 2024 بواسطه athal1

[athal1]

21 دقائق مضت, MOHAMMAD IBRAHIM said:

Dim db As DAO.Database
Dim td As DAO.TableDefs
Dim sql As String
Dim t As DAO.TableDef

Set db = CurrentDb()
Set td = db.TableDefs

For Each t In td
    ' تخطي الجداول النظامية والجداول المؤقتة
    If Left(t.Name, 4) = "MSys" Or Left(t.Name, 1) = "~" Then GoTo Continue

    ' بناء جملة SQL الديناميكية
    sql = "DELETE * FROM [" & t.Name & "]"
    
    ' تنفيذ الجملة SQL
    DoCmd.RunSQL sql

Continue:
Next t

MsgBox "All records in all tables are deleted"
Me.Requery

 

الاستاذ الكريم محمد ابراهيم

جزاك الله خيرا وبارك الله فيك

تم تعديل نوفمبر 17, 2024 بواسطه athal1