كود لحذف جميع السجلات

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

انشئ استعلامات حذف وقم بتشغيلها عن طريق الامر :

Docmd.open query "aaa"

aaa - هو اسم استعلام الحذف

اعتقد انه يريد كود بدون استعلام وهذه طريقة اخرى

وهي عن طريق الكود

ضع هذا الامر تحت زر امر

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

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE tab.* FROM tab;"

DoCmd.SetWarnings True

طبعا الفائدة من وضع هذا السطر

DoCmd.SetWarnings False

وهذا

DoCmd.SetWarnings True

لمنع ظهور الرسائل التحذيرية وبإمكانك تركها والاكتفاء ب

DoCmd.RunSQL "DELETE tab.* FROM tab;"

تحياتي

الاستاذ الفاضل ايهاب عثمان شكرا جزيل لك 100%

الاستاذ الفاضل المبرمج2003 شكرا جزيل لك 100%

وعسى الله ان لايحرمنا منك وكلا الطريقتين مطلوبتان وما قصرتو ..................... تحياتي لكم

الاستاذ الفاضل ايهاب عثمان شكرا جزيل لك 100%

الاستاذ الفاضل المبرمج2003 شكرا جزيل لك 100%

ولكن ما قصدته هو كود يحذف جميع السجلات الموجودة في جميع الجداول دفعة واحدة من غير التطرق الى اسم الجدول ... ليكون الكود على النحو التالي

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

ولكن ما ذكرتمها اعلاه يوفي بالغرض

وعسى الله ان لايحرمنا منك وكلا الطريقتين مطلوبتان وما قصرتو ..................... تحياتي لكم

تفضل أخوي هذا هو الكود ألصقه في النموذج

مع التذكير بحجز المكتبة dao 3.6

If MsgBox("  هل متاكد من حذف جميع بيانات الجداول  " + vbCrLf, vbYesNo + vbCritical + vbMsgBoxRight, " أبو صفاء ") = vbNo Then Exit Sub

Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef
Dim N_TABLE As String

    Set dbs = Application.CurrentData
    Set db = CurrentDb

    For Each obj In dbs.AllTables
    Set tdf = db.TableDefs(obj.Name)

    If Left(tdf.Name, 4) <> "msys" Then

    N_TABLE = obj.Name
    Dim dq As Database, rs As Recordset
    
    Set dq = CurrentDb
    Set rs = dq.OpenRecordset([N_TABLE])
    With rs
    While Not .EOF
        .Delete
    .MoveNext
    Wend
   End With
   End If
Next obj
  
Set tbl = Nothing
db.Close
Set db = Nothing

MsgBox " لقد تم حذف جميع بيانات الجداول ", vbInformation, "أبو صفاء"

بأنتظار ردك .....

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

الأخوة الكرام

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

For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "msys" Then
DoCmd.RunSQL ("DELETE * FROM " & tbl.Name)
End If
Next

وبعد وضع رسائل التنبيه كما فعل أخونا أبو صفاء , وكذلك بعد الغاء رسائل التحذير حتى لا تضايق المستخدم يصبح الكود بالشكل التالى

If MsgBox("  سيتم حذف جميع البيانات بجميع الجداول , هل تريد الإستمرار ؟ " + vbCrLf, vbYesNo + vbCritical + vbMsgBoxRight, " تحذير ") = vbNo Then Exit Sub
DoCmd.SetWarnings False

For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "msys" Then
DoCmd.RunSQL ("DELETE * FROM " & tbl.Name)
End If
Next

DoCmd.SetWarnings True
MsgBox "تم حذف جميع البيانات بالجداول ", vbInformation, " انتهى "

وعلى فكرة لسنا فى حاجة لتفعيل المكتبة Dao 3.6

بالتوفيق بعون الله ,,,

اخوي عماد

نفس الكود بس بطريقة أسهل ،،،،،،، تحياتي

الاستاذ الفاضل أبو صفاء شكرا جزيل لك 100%

الاستاذ الفاضل عماد حمدي احمد شكرا جزيل لك 100%

وعسى الله ان لايحرمنا منك وكلا الطريقتين مطلوبتان وما قصرتو ..................... تحياتي لكم