كود تفريغ البيانات من الجداول

[abo3aesha_2014]

هل يوجد كود يوضع في زر أمر تكون وظيفته تفريغ جميع البيانات من الجدول ؟؟

أو من عدة جداول ؟؟

[Shivan Rekany]

اليك هذا
 

DoCmd.RunSQL " delete * from TABLE1"

غير TABLE1 ب اسم جدولك

[abo3aesha_2014]

جزاك الله خيرا أخي Shivan

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

فما رأيك في كودك بعد التعديل ؟؟

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TABLE1"
MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه"
Else
DoCmd.CancelEvent
End If
End Sub

 

[ahmedeg_eg]

هل يمكن حذف البيانات فقط

والابقاء على السجلات كما هي

[Shivan Rekany]

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

[ahmedeg_eg]

حذف بيانات.rar

[Shivan Rekany]

اتفضل 

استخدمت هذا الكود

Dim sql As String
sql = "UPDATE tab SET tab.a = Null, tab.b = Null, tab.c = Null, tab.d = Null, tab.e = Null, tab.f = Null, tab.g = Null, tab.h = Null;"
If MsgBox("هل انت متأكد من تفريغ البيانات", vbYesNo) = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
MsgBox "تم تفريغ البيانات"
Else
Exit Sub
End If

مرفقك بعد تعديل

 

حذف بيانات.rar

[ahmedeg_eg]

الف شكر أخي الفاضل

هذا هو المطلوب

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

[alihussiendod]

في ١٨‏/٢‏/٢٠١٧ at 20:16, abo3aesha_2014 said:

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If

احسنت شكرا جزيلا حليتلي المشكلة جعله الله في ميزان حسناتك

[TAMER AGOOR]

الكود ده جميل وشغال .. لكن لو فيه جداول كتير هل لازم اقعد اضفها كلها وحتى لو ضفتها كلها ممكن فيما بعد يتم اضافه جداول اخرى والموضوع كده حيبقى صعب  ولا  فيه طريق اسهل للحزف الجماعى 

if MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TABLE1"
MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه"
Else
DoCmd.CancelEvent
End If
End Sub 

 

[أ / محمد صالح]

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

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

DoCmd.SetWarnings False
Dim T As TableDef
For Each T In CurrentDb.TableDefs
If Not (T.Name Like "MSys*" Or T.Name Like "~*" Or Len(T.Connect) > 0) Then
DoCmd.RunSQL "DELETE * FROM " & "[" & T.Name & "]"
End If
Next T
DoCmd.SetWarnings True

بالتوفيق 

[TAMER AGOOR]

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

 

 

تم تعديل أغسطس 30, 2021 بواسطه TAMER AGOOR

[عمر ضاحى]

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

لعله يجد فيه ما يريد لانه موضوع غني 

فى هذا الموضوع سوف تجد ما تريد ان شاء الله

[أ / محمد صالح]

في حالتك هذه أ/ @TAMER AGOOR

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

myT = Array("table1", "table2", "table3")
DoCmd.SetWarnings False
For Each T In myT
DoCmd.RunSQL "DELETE * FROM " & T & ";"
Next T
DoCmd.SetWarnings True

بالتوفيق

[TAMER AGOOR]

 

ا.محمد صالح

هل الكود باشكل ده سليم

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then
myT = Array("table1", "table2", "table3")
DoCmd.SetWarnings False
For Each T In myT
DoCmd.RunSQL "DELETE * FROM " & T & ";"
Next T
DoCmd.SetWarnings True
MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه"
Else
DoCmd.CancelEvent
End If
End Sub

 

[أ / محمد صالح]

إن شاء الله سليم

والتجربة خير برهان

طبعا مع تعديل أسماء الجداول في المصفوفة table1 & table2 & table3 وهكذا

[ابو جودي]

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

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

Reset Select Table.mdb

تم تعديل أغسطس 31, 2021 بواسطه ابا جودى