اذهب الي المحتوي
أوفيسنا

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


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

 

  • Like 2
رابط هذا التعليق
شارك

  • 1 month later...

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

  • Like 1
رابط هذا التعليق
شارك

اتفضل 

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 4 years later...
في ١٨‏/٢‏/٢٠١٧ 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

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

رابط هذا التعليق
شارك

  • 2 months later...
 

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

بالتوفيق 

رابط هذا التعليق
شارك

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

 

 

SNAG-43012211341700.png.46bc31840b04d87e6789423afd60897d.png

تم تعديل بواسطه 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

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

 

ا.محمد صالح

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

Reset Select Table.mdb

تم تعديل بواسطه ابا جودى
  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information