إفراغ البيانات دفعة واحدة عن طريق زر في النموذج

[ferhi]

أريد أن أسأل هل يجوز عمل زر أمر في النموذج لإفراغ جميع البيانات دفعة واحدة 

دون اللجوء إلى الطريقة التقليدية وحذف كل سجل على حدى ، وإن كان هذا لايجوز فهل هناك طريقة أسهل.

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

 

13 دقائق مضت, ferhi said:

أسهل

 

تم تعديل يونيو 30, 2018 بواسطه ferhi

[kanory]

نعم يجوز أقصد ممكن .... استخدم هذا الكود .... بارك الله فيك

 CurrentDb.Execute ("Delete * From Tbl_reg")
' Tbl_reg اسم الجدول المراد حذف بياناتة

 

[jjafferr]

السلام عليكم

 

فقط ملاحظة عن الامر CurrentDb.Execute:

1. هناك حالات لا يمكن للاكسس استخدامه ،

2. ميزة الامر انه يقوم بالعمل بدون رسائل تحذيرية ، ولكن اذا لم يستطع اكسس ان ينفذ الامر ، فلن تعرف السبب ، فهو لا يعطي رسالة الخطأ ،

 

لذا ، يمكنك استعمال:

docmd.runsql ("Delete * From Tbl_reg")

 

جعفر

[عبد اللطيف سلوم]

13 ساعات مضت, ferhi said:

أريد أن أسأل هل يجوز عمل زر أمر في النموذج لإفراغ جميع البيانات دفعة واحدة 

دون اللجوء إلى الطريقة التقليدية وحذف كل سجل على حدى ، وإن كان هذا لايجوز فهل هناك طريقة أسهل.

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

 

 

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

وشغل الاستلام من وين ما بدك 

اذا طريقة الاخ جعفر صعبة 

هذه اسهل

[kanory]

تنويه ممتاز اخي @jjafferr بارك الله فيك

[محمد التميمي]

السلام عليكم

احسنت اخي @jjafferr كد سهل وبسيط لمسح بيانات جدول واحد

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

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

تم تعديل يوليو 1, 2018 بواسطه محمد التميمي

[jjafferr]

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

 

غالبا لتصغير البرنامج ، عمل ضغط واصلاح يكون كافي.

 

ومن الاكسس ، اخذت هذا الكود وعدلت عليه ،

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

ولاحظ بأني استخدمت طريقة اخوي @kanory ، لأني ما اريد احصل على رسائل اكسس ،

ومن ضمن الرسائل ممكن تكون رسالة بعدم امكانية حذف بيانات جدول بسبب ارتباطه بجدول آخر !! :

Sub AllTables()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables
       'docmd.setwarning false
       'docmd.runsql("Delete * From " & obj.Name
       'docmd.setwarning true

        dbs.execute("Delete * From " & obj.Name
    Next obj

End Sub

.

وبعد هذا اعمل ضغط واصلاح.

 

جعفر

 

 

[محمد التميمي]

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

[ferhi]

أشكركم جزيل الشكر وأدعوا الله أن ينير بصيرتكم فلقد افدتموني كثيراً  لأنني أعمل لدى عيادة طب الأسنان 

وأعمل على قاعدة بيانات اكسس وهناك جدول لبيانات حجز المواعيد للمرضى المؤقتة التي لاتكون  صمن الأرشيف

فاكرر بذلك شكري لكم جميعاً .

[محمدنجار]

10 ساعات مضت, jjafferr said:

من الاكسس ، اخذت هذا الكود وعدلت عليه ،

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

أستاذنا العزيز جعفر رعاك الله ومن تحب ....

:: هل يمكن استثناء بيانات احد الجداول من الحذف ؟.

[jjafferr]

السلام عليكم 

 

حيالله اخوي محمد ، من زمان ما سمعنا منك

11 ساعات مضت, محمدنجار said:

هل يمكن استثناء بيانات احد الجداول من الحذف ؟

.

اذا افترضنا ان الجدول الذي لا نريد حذف بياناته ، اسمه tbl_2  ، فيصبح الكود:

Sub AllTables()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

      if obj.name <>"tbl_2" then

       'docmd.setwarning false
       'docmd.runsql("Delete * From " & obj.Name
       'docmd.setwarning true

        dbs.execute("Delete * From " & obj.Name
      end if
   
   Next obj

End Sub

 

جعفر

[kaser906]

8 دقائق مضت, jjafferr said:

ذا افترضنا ان الجدول الذي لا نريد حذف بياناته ، اسمه tbl_2  ، فيصبح الكود:

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

وإذا اردنا اسثناء أكثر من جدول ؟

كيف سيكون شكل هذا السطر

if obj.name <>"tbl_2" then

 

[jjafferr]

2 دقائق مضت, kaser906 said:

وإذا اردنا اسثناء أكثر من جدول ؟

كيف سيكون شكل هذا السطر

 

هلا والله بأخوي كاسر

if obj.name <>"tbl_2" or obj.name <>"tbl_3" or obj.name <>"tbl_4" then

 

 

بينما ، وعلشان يكون المثال اعم ،

اذا اردنا حذف بيانات مجموعة معينة من الجداول فقط ، فيمكننا عمل:

if obj.name ="tbl_2" or obj.name ="tbl_3" or obj.name "tbl_4" then



او طبعا
dbs.execute ("delete * from tbl_2")
dbs.execute ("delete * from tbl_3")
dbs.execute ("delete * from tbl_4")

.

جعفر

 

جعفر

[kaser906]

حلو

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

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

dbs.execute ("delete * from tbl_2")
dbs.execute ("delete * from tbl_3")
dbs.execute ("delete * from tbl_4")

 

شكراً لك استاذنا

[محمدنجار]

22 دقائق مضت, jjafferr said:

حيالله اخوي محمد ، من زمان ما سمعنا منك

:: الله محييك اخي جعفر ... انا عالق في هذا المنتدى الى ماشاء الله ... من له اخوه مثلكم لا يمكنه الابتعاد عنهم , كل ما في الامر دخولي للمنتدى اصبح هالايام بشكل سريع ..

:: الكود جميل جدا ولا اروع ... عاشت ايدك . وسلمك الله لمحبيك ...

[jjafferr]

[محمد التميمي]

ربما اخ لك لم تلده امك

بارك الله فيكم جميعاً 

[jjafferr]

[فقير ومشتري الدنيه بضحكتي]

 

Dim s1,  As String

On Error GoTo y:

If MsgBox("هل تريد حذف كافة البيناات من الجودل  ", vbYesNo, " تحذير  ") = vbYes Then

s1 = "DELETE * FROM [in]"

DoCmd.SetWarnings False

DoCmd.RunSQL s1

DoCmd.Requery

MsgBox " تم الحذف بنجاح !!!!"

Else

End If

y: MsgBox Err.Description