طريقة تفريغ بيانات حقل واحد في الجدول

[cudi]

السلام عليكم 

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

فقط أريد حذف بيانات كمية متوفرة 

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

لكن حذف جميع البيانات أخرى مع حقل كمية متوفرة 

 

 

[Shivan Rekany]

4 ساعات مضت, cudi said:

السلام عليكم 

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

فقط أريد حذف بيانات كمية متوفرة 

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

لكن حذف جميع البيانات أخرى مع حقل كمية متوفرة 

اتفضل اليك هذا كود
سيحذف الحقل

DoCmd.SetWarnings (warningsoff)
DoCmd.OpenTable "rrrr", acViewNormal
DoCmd.GoToControl "vil"
DoCmd.RunCommand acCmdDeleteTableColumn
DoCmd.Close acTable, "rrrr", acSaveYes
DoCmd.SetWarnings (warningson)

وهذا الكود سيفرع الحقل 

DoCmd.SetWarnings (warningsoff)
Dim sql as string
sql = "UPDATE rrrr SET rrrr.Vil = "";"
docmd.runsql (sql )
DoCmd.SetWarnings (warningson)

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

وغير "vil" باسم حقل تريد ان يحذفه

 

تم تعديل أبريل 16, 2017 بواسطه Shivan Rekany

[cudi]

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

أنا سويتها على جدول لكن يعطيني مشكلة يظهر في هذه الصورة

 

تم تعديل أبريل 17, 2017 بواسطه cudi

[Shivan Rekany]

ارفق القاعدة لكي نتم العملية عليه

[ابوخليل]

السلام عليكم  ,, ومشاركة مع استاذنا وحبيبنا شفان

استبدل علامتي الاقتباس  ""  بـــ صفر

لان نوع الحقل الذي ستجري عليه التحديث  رقمي

[cudi]

هذه هو المرفق

 

Items.rar

[Shivan Rekany]

25 دقائق مضت, cudi said:

هذه هو المرفق

 

Items.rar

اتفضل 

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

Dim Sql As String
Sql = "UPDATE ItemsT SET ItemsT.item_available = 0;"
If MsgBox("هل تريد ان تفريغ البيانات حقل الكمية المتوفرة", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
End If

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

و بدلت علامة "" الى صفر كما قال استاذنا @ابو خليل لان الحقل هو رقمي
وتكدر تستخدم علامة ايضا لكن من الاحسن ان يكون صفر

اتفضل قاعدة بياناتك بعد اضافة الكود الاعلاه

 

 

Items.rar

[cudi]

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

 

[علي هندسة]

في ١٧‏/٤‏/٢٠١٧ at 10:04, ابوخليل said:

السلام عليكم  ,, ومشاركة مع استاذنا وحبيبنا شفان

استبدل علامتي الاقتباس  ""  بـــ صفر

لان نوع الحقل الذي ستجري عليه التحديث  رقمي

السلام عليكم استاذنا الفاضل

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

examel.accdb

[essam rabea]

فقط قم بوضع كلمة Table بين قوسين لتصبح [Table]

Dim Sql As String
Sql = "UPDATE [Table] SET [Table].card = 0;"
If MsgBox("هل تريد تفريغ بيانات الحقل", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
End If

ونفس الشيئ للتاريخ ولكن غير آخر جملة الـ Sql الى ="""" بدل 0 حيث أنه حقل تاريخ وليس رقمى 

[علي هندسة]

منذ ساعه, essam rabea said:

فقط قم بوضع كلمة Table بين قوسين لتصبح [Table]

Dim Sql As String
Sql = "UPDATE [Table] SET [Table].card = 0;"
If MsgBox("هل تريد تفريغ بيانات الحقل", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
End If

ونفس الشيئ للتاريخ ولكن غير آخر جملة الـ Sql الى ="""" بدل 0 حيث أنه حقل تاريخ وليس رقمى 

شكرا استاذ essam rabea المحترم

وهو المطلوب