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

[الحلبي]

السلام عليكم 

كيف يمكن عمل استعلام واحد فقط (استعلام واحد فقط) لحذف جميع سجلات جميع الجداول اى تفريع قاعدة البيانات كاملا من جمي البيانات

جزاكم الله خير 

[ابو جودي]

ليه بس كده امساك البيانت بمعروف يا دكتور او تغور البيانات اللى زعلتك دى فى ستين داهية المهم انت ما تزعلش نفسك

[jjafferr]

وعليكم السلام 🙂

 

اذا كانت عندك علاقة بين الجداول ، وتكون مختار الاختيار الثالث اللي عليه السهم :

.

فلما تحذف سجلات الجدول 1 ، سيتم حذف سجلات جميع الجداول التي لها علاقة بهذا الجدول 🙂

 

جعفر

[ابو جودي]

45 دقائق مضت, حلبي said:

السلام عليكم 

كيف يمكن عمل استعلام واحد فقط (استعلام واحد فقط) لحذف جميع سجلات جميع الجداول اى تفريع قاعدة البيانات كاملا من جمي البيانات

جزاكم الله خير 

اتفضل يا دكتور محمد @حلبي علشان بس انت حبيبى 

عملت لك كود ضغنون ومحندق كده يتحط فى موديول عام

وتستطيع استخدامه من نموذج بقه او من استعلام زى ما تحب

فكما تعلمت من استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل  تستطيع استخدامه فى كل زوايا التطبيق

Public Function DelDataAllTbl()
Dim T As TableDef
    DoCmd.SetWarnings False
        For Each T In CurrentDb.TableDefs
            If Not Left(T.Name, 4) = "MSys" Then
                DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]"
            End If
        Next T
    DoCmd.SetWarnings True
End Function

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

DelDataAllTbl()

 

تم تعديل ديسمبر 3, 2020 بواسطه ابا جودى

[الحلبي]

استاذى الفاضل بشمهندسنا ومروض الاكسس / @ابا جودى

تمام التمام الله يفتح عليك ويعطيك الصحة والعافية 

والله وحشنا كلماتك التى ترسم البسمه على الوجه 

طب سؤال صغنون قوى كيف يمكن استدعائه داخل استعلام (استدعاء الموديول) 

[ابو جودي]

3 دقائق مضت, حلبي said:

استاذى الفاضل بشمهندسنا ومروض الاكسس / @ابا جودى

تمام التمام الله يفتح عليك ويعطيك الصحة والعافية 

والله وحشنا كلماتك التى ترسم البسمه على الوجه 

طب سؤال صغنون قوى كيف يمكن استدعائه داخل استعلام (استدعاء الموديول) 

طيب استنى اعمل لك مرفق

[الحلبي]

منتظرك على الهوا 

[ابو جودي]

فك ضغط المرفق فى القطاع 

D:\

- لا يمكن من الاستعلام اعتذر

انظر المرفق يحتوى

- جداول مرتبطه بقاعدة خلفية

-جداول غير مرتبطه

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

الكود محى كل شئ من كل الجداول 

 

test.zip

[الحلبي]

من فضلك استاذى امهلنى بعض الوقت حتى اضبط  التطبيق 

[ابو جودي]

اه نسيت اقول لك ممكن تستخدم ماكرو

 

[الحلبي]

والله انك مروض اكسس فعلا  يابشمهندس

بهذا تم عمل الماكرو الذى قام  بالمهمة مثل الاستعلام  ووصلنا الى المراد

تحملنى شويه استاذى / محمد عصام

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

[الحلبي]

اسف جدا جدا جدا جدا  استاذى الجليل / @jjafferr

حياك الله

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

طريقة اخرى جميلة وروعة من احد اهرامات المنتدى استاذى الجليل / جعفر

بارك الله فيك وفى علمك زرادك الله علما وصحة

ومازال السؤال الذي لم اوضحه فى بدايه الامر

هل يمكن حذف بيانات (سجلات) جدولين او ثلاثة فقط من كامل الجداول

[ابو جودي]

43 دقائق مضت, حلبي said:

اسف جدا جدا جدا جدا  استاذى الجليل / @jjafferr

حياك الله

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

طريقة اخرى جميلة وروعة من احد اهرامات المنتدى استاذى الجليل / جعفر

بارك الله فيك وفى علمك زرادك الله علما وصحة

ومازال السؤال الذي لم اوضحه فى بدايه الامر

هل يمكن حذف بيانات (سجلات) جدولين او ثلاثة فقط من كامل الجداول

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

 

على العموم دكتور محمد حلبى جرب معى استبدال الموديول فى المقال اللى ارفقته لحضرتك بالكود الاتى 

Public Function DelDataAllTbl()

Dim T As TableDef

DoCmd.SetWarnings False
For Each T In CurrentDb.TableDefs
If T.Name <> "tblSites" And T.Name <> "tblSecurityIP" Then
    If Not Left(T.Name, 4) = "MSys" Then
        DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]"
    End If
End If
Next T
DoCmd.SetWarnings True

End Function

انا تقريبا جاوبت نظرى لان مش هأعرف أجرب الان 

لو الدنيا تمام وقشطه ان شاء الله يكمن الحل فى السطر الاتى

If T.Name <> "tblSites" And T.Name <> "tblSecurityIP" Then

شرح السطر 

If T.Name <> "اسم الجدول" And T.Name <> "سم الجدول" Then

الجدوال الت تم كتابة اسمائها لن تخذف بياناتها

[ابو جودي]

ملاحظة هامة جدا جدا جدا جدا جدا جدا جدا

قبل الشروع فى اى شئ لابد من أخذ نسخة احتياطية من قاعدة البيانات

الا هل بلغت اللهم فأشهد

[الحلبي]

بشمهندس / محمد

اشكرك كثيرا على ما تقدمه لى بارك الله فيك ـ لا تخاف من ناحية اخذ نسخة احتياطية

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

اقتباس

If T.Name <> "tblSites" And T.Name <> "tblSecurityIP" Then

اسف لازعاجك ولكنه قدرك

[ابو جودي]

4 ساعات مضت, حلبي said:

محمد

اشكرك-لا تخاف من ناحية اخذ نسخة احتياطية

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

اسف لازعاجك ولكنه قدرك

يا اهلا بك يا دكتور
اولا لا شكر على واجب
وانا احب قدرى والحمد لله
ويستبدل مكان هذا السطر 

Public Function DelDataAllTbl()

Dim T As TableDef

DoCmd.SetWarnings False
For Each T In CurrentDb.TableDefs
If T.Name <> "اسم الجدول" And T.Name <> "اسم الجدول" Then ' >>-----> اكتب هنا اسماء الجداول التى لا تريد حذف البيانات بداخلها 
    If Not Left(T.Name, 4) = "MSys" Then
        DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]"
    End If
End If
Next T
DoCmd.SetWarnings True

End Function

 

تدلل يا دكتور 

تم تعديل ديسمبر 4, 2020 بواسطه ابا جودى

[ابو جودي]

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

واجهزها لك ان شاء الله ان أحببت

[الحلبي]

ok

[kha9009lid]

السلام عليكم

مشاركة متواضعة

رأيي الشخصي افضل ان يكون حذف البيانات بشكل نهائي من خلال نموذج وباختيار المستخدم مع وضع اكثر من رسالة تحذير

والنموذج لايتم فتحة الا من خلال مسئول النظام باستخدام نظام الصلاحيات

وبالتالي اذا كان اختيارنا لحذف الكل فيتم استخدام ما اشار اليها الاستاذ محمد عصام او اي كود مشابه هذا للجداول الرئيسية والجداول المرتبطة فعند حذفنا للجداول الرئيسية فيقوم الاكسس بحذفها كما اشار استاذنا ابو عبدالله اذا قمنا عند انشاء العلاقة باختيار
فرض التكامل المرجعي
تتالي تحديث الحقول المرتبطة
تتالي حذف السجلات المرتبطة

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

البيانات اكثر قيمة واهمية من البرنامج

 

 

[الحلبي]

استاذنا الجليل / @kha9009lid

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

كلامك مصبوط وتمام التمام ولكن انا فكرت فى موضوع حذف بيانات بعض الجداول لانى اثناء تطوير برنامجى الاصلى او عند زيادة شئ برمجى عليه 

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

جزاك الله كل خير استاذى ومعلمى / خالد وبارك الله فيك زادك الله علما وادبا وتواضعا

اقتباس

يا دكتور ان أردت هات مرفق

بشمهندس

عملت اربع جداول على السريع

اريد ان احذف بيانات جدول t4 - t3 

ويبقى بيانات جدول  t2 -t1delete tables.accdb

[ابو جودي]

21 دقائق مضت, حلبي said:

عملت اربع جداول على السريع

اريد ان احذف بيانات جدول t4 - t3 

ويبقى بيانات جدول  t2 -t1

 تدلل يا دكتور

 

delete tables.accdb

[الحلبي]

الله عليك بشمهندسنا

انا يمكن بدلل عليك ولكن من عشمى فى معلمى ومروض اكسس / محمد عصام 

روح ياشيخ ربنا يرزقك ويبارك فى اولادك ويرحم والديك فى الدنيا والآخره

كل شئ تمام التمام   

وانتهز الفرصة واشكر كلا من معلمينا واعمدة المنتدى استاذى الجليل / @jjafferr واستاذى الجليل / @kha9009lid 

على تشريفهم لنا ونصائحهم الغالية جزاهم الله كل خير وبارك الله فيهم

[ابو جودي]

11 دقائق مضت, حلبي said:

انا يمكن بدلل عليك ولكن من عشمى محمد عصام 

روح ياشيخ ربنا يرزقك ويبارك فى اولادك ويرحم والديك فى الدنيا والآخره

كل شئ تمام التمام   

تدلل مثل ما بدك يا سلام

وجزاكم الله خيــرا على كل تلك الدعوات الطيبات المباركات واسأل الله تعالى ان يرزقكم بالمثل ويزيدكم من فضلة وكرمه اضعافا مضاعفة انت وكل اساتذتنا واخواننا وكل المسلمين ان شاء الله

وتدور ببالى فكرة ستكون اجمل ان وفقنى لها ربى إن شاء الله سوف أجعلك تتدلل أكثر وأكثر

[ابو جودي]

يلا يا دكتور محمد اتفضل 

قلت لك فى اخر رد لى 

9 ساعات مضت, ابا جودى said:

وتدور ببالى فكرة ستكون اجمل ان وفقنى لها ربى إن شاء الله سوف أجعلك تتدلل أكثر وأكثر

تدلل ع الاخر يا دكتور