كود حذف بيانات الجدول

[2saad]

اريد تطبيق هذا الكود علي الملف المرفق

Private Sub Command18_Click()
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
End Sub

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

 

قاعدة بيانات مدرسية (2).accdb

أنا اسف ارجو تطبيقه علي جدول data

[kkhalifa1960]

استاذ @2saad 

أولاً........... لماذا لم ترد على المشاركة السابقة لطلبك استخراج المحافظة من الرقم القومي والسن في أول اكتوبر ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ثانياً ........... بالنسبة لطلبك تطبيق الكود على الجدول (Data) ... الجدول به حقل الصورة (Attachment) فلايمكن عمل لها (Update) وسيخرج لك (Error) لذا استخدم الكود التالي .بالمرفق .

 

 

 

قاعدة بيانات مدرسية (22).rar

[2saad]

شكرا لحضرتك وأنا بتعب حضرتك معك

مفيش حد رد علي في السؤال السابق

[kkhalifa1960]

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

المشاركة السابقة ... انظر أخرها..............

 

[2saad]

شكرا لحضرتك وأنا اسف لم الاحظ ذلك

بالنسبة لكود الحذف

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

[2saad]

شكرا جزيلا تم العمل

عند الخروج من الجدول والرجوع مرة أخري أجده تم تفريغ الجدول

[kkhalifa1960]

استاذ @2saad شكراً ورمضان كريم.

 

تم تعديل مارس 21 بواسطه kkhalifa1960

[2saad]

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

هل ينفع أفرغ أي جدول عن طريق زر في نموذج واحد

ولا لازم النموذج يكون مرتبط بالجدول

[Foksh]

4 ساعات مضت, 2saad said:

شكرا جزيلا تم العمل

عند الخروج من الجدول والرجوع مرة أخري أجده تم تفريغ الجدول

بعد امر الحذف استخدم الأمر

Docmd.Requery

 

3 ساعات مضت, 2saad said:

هل ينفع أفرغ أي جدول عن طريق زر في نموذج واحد

ولا لازم النموذج يكون مرتبط بالجدول

ينفع

[2saad]

شكرا جزيلا وبارك الله فيكم